引线标注块名

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

晕，明经币怎么给编程的人啊？

账号		自动登录	找回密码
密码			注册