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

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

写了好长，沙发厉害

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
像这样？

是的，谢谢！

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

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

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

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

评分

本帖子中包含更多资源

本帖子中包含更多资源

点评

评分

本帖子中包含更多资源

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

评分

本帖子中包含更多资源

本帖子中包含更多资源

点评

评分

本帖子中包含更多资源

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