Question

关于CADLISP问题 条件：任意两点A（x,y,z）,B(x,y,z) 求距离A（x,y）和B(x,y）的距离,Z的差

Answer 1

(setq D((sqrt ((+(*(- x1 x2) (- x1 x2)) (*(- y1 y2) (- y1 y2)))))"平距:"))这个不对吧

(defun C:pjgc ()

(setq p1(getpoint "n 第一点："))

(setq p2(getpoint "n 第二点："))

(setq x1(car p1))

(setq Y1(cadr p1))

(setq Z1(caddr p1))

(setq x2(car p2))

(setq Y2(cadr p2))

(setq Z2(caddr p2))

(setq D(sqrt (+ (expt (- x1 x2) 2) (expt (- y1 y2) 2))))

(setq H(- z2 z1))

(princ "n 平距:" )

(prin1 D)

(princ "n 高差:" )

(prin1 H)

)