社区 › Auto Lisp › 查找带引线的文字

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

 
只是一个提示

(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)
)

 
~'J'~

BearDyugin 发表于 2022-7-6 12:24:01

我的英语真的有问题。
因此，我不理解alanjt的意思
我觉得有点冒犯。
当然，有许多程序附加到反应器的文本中，但在纯AutoCAD中，它只做引线

alanjt 发表于 2022-7-6 12:37:28

 
我的意思是我完全误读了他的要求。

查看完整版本: 查找带引线的文字