CAD
我用Lisp写了个小程序： (defun c:poxy() (setq en (entget (ssname (ssget) 0)) p1 (cdr (assoc 10 en)) p2 (cdr (assoc 11 en))) (setq a (strcat (rtos (car p1) 2 4) , (rtos (
CADr p1) 2 4) , (rtos (
CADdr p1) 2 4)) b (strcat (rtos (car p2) 2 4) , (rtos (
CADr p2) 2 4) , (rtos (
CADdr p2) 2 4))) (setq d (rtos (distance p1 p2) 2 4) d (strcat 三维长度= d)) (textscr) (prompt (strcat 起点为 a))(terpri)(prompt (strcat 到点为 b))(terpri)(prompt d))(princ) 操作步骤： 把这段代码复制到你
CAD里，命令行输入 (load poxy) 回车加载，然后再输入 poxy 回车。 这时候会提示你选线，用鼠标点一下线，再回车，就能看到起点坐标、终点坐标和三维长度啦～ 坐标格式是x,y,z，长度也会显示出来，超方便！
