清理例程帮助
大家好我已经做了一段时间的附加例程，因为每次我完成它，老板都会不断添加额外的要求。
该例程在所有文字、多行文字、标注、引线和对新格式的更改中搜索被替代的文字样式名称。
他现在要求它在绑定的外部参照中包含文字样式，如果可能，在附着的外部参照中包含文字。
我试过使用“gettext”、“gettextstyle”和“getstyle”，但它无法识别这种调用。
你可以在文件末尾用++++标记出问题的部分。
一如既往，感谢您的帮助。
ps我还附上了使用vlisp浏览图形数据库的对象信息屏幕截图
清洁-23。lsp
修复当前图形后，对于附着的外部参照，可能会发现其名称写入脚本文件，打开并加载Clean-23。lisp等。作为最后一步，只需添加。请注意，您将使用新的textstyle保存外部参照。
not tested
(setqdoc (vla-get-activedocument (vlax-get-acad-object)))
(setq allblocks (vla-get-xrefs doc))
(vlax-for block allblocks
(if ( = (vla-get-isxref) vlax:true) (alert (vla-get-name block))
)
“绑定外部参照”不就是“普通”块吗？
页:
[1]