怎么编写一个求一点与其他各点高差的命令？求助大神

zandgang

命令功能是这样的：命令行输入该命令，提示选取第一点做为0点，然后依次选取其余各点，在点的右面标注上此点与0点的高度差（Y值得差），非常感谢

start4444

(defun c:tt5 (/ p1 p2)
        (setq p1 (getpoint"\n选取0点:"))
        (while (setq p2 (getpoint p1 "\n选取下一点:"))
                (entmake (list '(0 . "TEXT") (cons 10 p2) (cons 40 200) (cons 1 (rtos (- (cadr p2) (cadr p1)) 2 2))))
        )
)

zandgang

谢谢大神