zandgang 发表于 2019-12-15 22:39:21

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

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

start4444 发表于 2019-12-16 00:19:57

(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 发表于 2019-12-22 21:05:19

谢谢大神:hug:
页: [1]
查看完整版本: 怎么编写一个求一点与其他各点高差的命令？求助大神