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

关于CADLISP问题 条件：任意两点A（x,y,z）,B(x,y,z) 求距离A（x,y）和B(x,y）的距离,Z的差值
采用LISP程序解决，本人不知道怎么去提去属性值，只知道采用Distance命令可以看到x、y、z的差值。本人设想如果能够提取x、y的差值便可得到平面距离，Z差值便可得到高差。希望回答问题的人能够有一个较详细的说明，以便学习。当然在这个问题实现后，再生成一个TEXT文件。
(defun c:pjgc ()
(setq p1(getpoint"第一点："))
(setq p2(getpoint"第二点："))
(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 ((+(*(- x1 x2) (- x1 x2)) (*(- y1 y2) (- y1 y2)))))"平距:"))
(prin1 D)
(setq H((- z2 z1)"高差："))
(prin1 H)
)
为什么不行呢?