gengjun2019 发表于 2019-6-9 17:04:58

求一个坐标标注程序

求一个程序可以自动标注所有选择的点的坐标值，需要每个点的（X，Y，Z）3个值

1291500406 发表于 2019-6-9 19:13:24

本帖最后由 1291500406 于 2019-6-9 20:27 编辑

(defun c:bb (/ sslst)(vl-load-com)(setvar "nomutt" 1)(setq ss (vl-catch-all-apply 'ssget '(((0 . "point" )))) b -1)
(repeat (sslength ss)(setq lst(cons (cdr(assoc 10 (entget(ssname ss (setq b (1+ b))))))lst)))
(foreach b lst(entmake (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText") '(7 . "Standard")
(cons 1(strcat "X="(rtos(car b))"\nY="(rtos(car(cdr b)))"\nZ="(rtos (car(cddr b)))))
(cons 10 b) (cons 40 1))))(setvar "nomutt" 0)(princ))

gengjun2019 发表于 2019-6-10 09:39:49

1291500406 发表于 2019-6-9 19:13
(defun c:bb (/ sslst)(vl-load-com)(setvar "nomutt" 1)(setq ss (vl-catch-all-apply 'ssget '(((0 . " ...

很好用，谢谢

yangchao2005090 发表于 2019-6-10 09:43:41

1291500406 发表于 2019-6-9 19:13
(defun c:bb (/ sslst)(vl-load-com)(setvar "nomutt" 1)(setq ss (vl-catch-all-apply 'ssget '(((0 . " ...

好像不能用

1291500406 发表于 2019-6-10 15:40:28

yangchao2005090 发表于 2019-6-10 09:43
好像不能用

提示了什么错误
页: [1]
查看完整版本: 求一个坐标标注程序