查找带引线的文字

Beena · 发表于 2022-7-6 11:30:12

我想在autocad绘图（主平面图）中找到用引线显示的特定文本，因为其他人也希望看到这一点，如果您有任何lisp，请建议并帮助我，
谢谢

alanjt · 发表于 2022-7-6 11:45:08

你试过FIND命令了吗？

BearDyugin · 发表于 2022-7-6 11:50:44

如果我理解正确，您需要找到一个与leader关联的文本
在命令行中键入

(sssetfirst nil  (ssget "_X" '((0 . "MTEXT") (102 . "{ACAD_REACTORS"))))

alanjt · 发表于 2022-7-6 12:02:51

英雄联盟
一点也不知道我是怎么读的。

fixo · 发表于 2022-7-6 12:10:17

只是一个提示

copy


(vl-load-com)
(defun C:demo(/)
(setq oldString "Yes" newString "No");<-- change the desired values here
(setq ss (ssget "X" '((0 . "LEADER"))))
(setq obj_list (mapcar 'vlax-ename->vla-object
        (vl-remove-if 'listp
   (mapcar 'cadr (ssnamex ss)))))
(foreach leader_obj obj_list
 (if (vlax-property-available-p leader_obj 'Annotation)
   (progn
   (setq anno_text (vla-get-annotation leader_obj))
   (if (eq oldString (vla-get-textstring anno_text))
     (progn
     (vla-put-textstring anno_text newString)
     (vla-update leader_obj)))))
 )
 (princ)
 )