gwpgc 发表于 2013-10-5 23:08:47

引线标注块名

如图
经常要画节点图，零件都要标注，很烦。
如能直接标出块名，哪有多好啊，求老大们帮忙！

danxingpen 发表于 2013-10-6 14:12:46

(defun c:test(/ oldcmdecho entsl ent sp bn)
(setq oldcmdecho(getvar "cmdecho"))
(setvar "cmdecho" 0)
(while(and (setq entsl(entsel "\n选择要标注的对象:"))
             (setq ent(entget (car entsl)))
             (= (cdr(assoc 0 ent)) "INSERT")
             (setq sp(cadr entsl))
             (setq bn(cdr(assoc 2 ent)))
             )
    (command "._qleader" sp pause pause 0 bn "")
)
(setvar "cmdecho" oldcmdecho)
(princ)
)

gwpgc 发表于 2013-10-6 15:37:31

谢谢 danxingpen 程序不错

要是能设置箭头和文字的大小，还有第二条引线默认保持水平，那就完美了

gwpgc 发表于 2013-10-6 15:40:42

晕，明经币 怎么给编程的人啊？
页: [1]
查看完整版本: 引线标注块名