清理例程帮助

Corro · 发表于 2022-7-5 17:15:58

大家好
我已经做了一段时间的附加例程，因为每次我完成它，老板都会不断添加额外的要求。
该例程在所有文字、多行文字、标注、引线和对新格式的更改中搜索被替代的文字样式名称。
他现在要求它在绑定的外部参照中包含文字样式，如果可能，在附着的外部参照中包含文字。
我试过使用“gettext”、“gettextstyle”和“getstyle”，但它无法识别这种调用。
你可以在文件末尾用++++标记出问题的部分。
一如既往，感谢您的帮助。
ps我还附上了使用vlisp浏览图形数据库的对象信息屏幕截图
清洁-23。lsp

BIGAL · 发表于 2022-7-5 18:00:17

修复当前图形后，对于附着的外部参照，可能会发现其名称写入脚本文件，打开并加载Clean-23。lisp等。作为最后一步，只需添加。请注意，您将使用新的textstyle保存外部参照。

copy


not tested
(setq  doc (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))
)

Roy_043 · 发表于 2022-7-5 18:22:02

“绑定外部参照”不就是“普通”块吗？

[编程交流] 清理例程帮助

发表回复

精选推荐

浏览过的版块