664571221 发表于 2018-12-7 13:53:52

求一个程序，输入tt，选择图元，把图元所在图层的名称标注在cad上

本帖最后由 664571221 于 2018-12-8 09:55 编辑

求一个程序，输入tt，选择图元，把图元所在图层的名称标注在cad上

Bao_lai 发表于 2018-12-7 22:23:23

看你描述问题应该不复杂，建议上个图说明需求。

664571221 发表于 2018-12-8 09:55:26

Bao_lai 发表于 2018-12-7 22:23
看你描述问题应该不复杂，建议上个图说明需求。

你好看一下

oistre 发表于 2018-12-10 09:55:36

谢谢!分享程序!!!

ketxu 发表于 2018-12-10 12:57:52

oistre 发表于 2018-12-10 09:55
谢谢!分享程序!!!

Are you Spammer ?

664571221 发表于 2018-12-10 13:20:46

oistre 发表于 2018-12-10 09:55
谢谢!分享程序!!!

??????????

pengfei2010 发表于 2018-12-11 09:32:37

这个不难的就几句话
(defun c:tt ( / en lay pt)
        (if (and (setq en (car (entsel "\n请选择图形："))) (setq lay (cdr (assoc 8 (entget en)))) (setq pt (cdr (assoc 10 (entget en)))))
                (vl-cmdf "text" pt 100 0 lay)
        )
)

ZZXXQQ 发表于 2018-12-11 11:44:19

(defun c:tt ()
(while (setq s1 (entsel "\n选择一个物体: "))
(setq lnm (strcat "图层名:" (cdr(assoc 8 (entget(car s1))))))
(setq pt (osnap (cadr s1) "NEA"))
(command "_.LEADER" pt (getpoint "\n文字点") "" lnm "" "")
)
(princ)
)

paulpipi 发表于 2018-12-15 22:34:33

页: [1]
查看完整版本: 求一个程序，输入tt，选择图元，把图元所在图层的名称标注在cad上