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

357785513

(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

https://www.bilibili.com/video/B ... id_from=333.999.0.0
直接用字段替代块名