357785513 发表于 2024-5-4 15:56:21

看看能不能改成按动态块的可见性标注

(defun c:KM(/ 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)
)
;---------------------------------------
各位大神，看看能不能改成按动态块的可见性标注

kozmosovia 发表于 2024-5-5 00:00:28

https://www.bilibili.com/video/BV1N34y1X7qr/?spm_id_from=333.999.0.0
直接用字段替代块名
页: [1]
查看完整版本: 看看能不能改成按动态块的可见性标注