qianyi0710 发表于 2019-12-30 18:45:01

求助，获取图块名称 再进行引线把名字标示出来

   求助，获取图块名称 再进行引线把名字标示出来，工作上用。

bai2000 发表于 2020-1-2 10:52:19

再上传一个：选择图块名插入图块的程序

bai2000 发表于 2019-12-30 19:26:56

;图块引出图块名
(defun c:yKM(/ 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)
)

qianyi0710 发表于 2019-12-30 19:49:51

本帖最后由 qianyi0710 于 2023-9-24 09:51 编辑

bai2000 发表于 2019-12-30 19:26
;图块引出图块名
(defun c:yKM(/ oldcmdecho entsl ent sp bn)
(setq oldcmdecho(getvar "cmdecho"))

非常感谢！

x_s_s_1 发表于 2019-12-30 21:25:35

qianyi0710 发表于 2019-12-30 19:49
非常感谢！加你，请你喝水！我的微信 13713157178

写了好长，沙发厉害:lol





qianyi0710 发表于 2020-1-1 11:16:49

x_s_s_1 发表于 2019-12-30 21:25
写了好长，沙发厉害

非常，感谢，大家的都很好用，工作上用，确实省了很多事。再次谢谢大家

qianyi0710 发表于 2020-1-1 11:38:38

x_s_s_1 发表于 2019-12-30 21:25
写了好长，沙发厉害

两段直线断了，可否不断开，连接一起？

x_s_s_1 发表于 2020-1-1 16:50:27

qianyi0710 发表于 2020-1-1 11:38
两段直线断了，可否不断开，连接一起？

像这样？

qianyi0710 发表于 2020-1-1 22:29:34

x_s_s_1 发表于 2020-1-1 16:50
像这样？

是的，谢谢！:handshake

sky899150 发表于 2023-9-17 22:32:45

能选择同名块并引线标注吗

页: [1] 2
查看完整版本: 求助，获取图块名称 再进行引线把名字标示出来