使用V获取块TextString
使用AutoCAD VBA,是否可以访问块中的文本字符串?我想要一个块文本字符串来改变颜色或图层?注意,我不是在讨论块属性。我试图访问块中的字符串。我对访问感兴趣
块定义和块引用。
我还对访问块中的多行文字和维度感兴趣。
非常感谢。 这里是一个更改线型的示例,shopuld能够更改代码以搜索文本,然后进行更改。可以从VBA调用lisp
;(defun c:normblocks (/ adoc)
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark adoc)
(vlax-for block (vla-get-blocks adoc)
(if (not (wcmatch (strcase (vla-get-name block) t) "*_space*"))
(vlax-for ent block
(if(= (vla-get-linetype ent ) "solid" )
(progn
(vla-put-linetype ent "Continuous")
(princ (vla-get-name block))
)
);_ end of if
) ;_ end of vlax-for
) ;_ end of if
) ;_ end of vlax-for
(vla-regen adoc acactiveviewport)
(vla-endundomark adoc)
(princ)
尝试将(if(=(vla get linetype ent)“solid”)替换为(if(=(vla get text ent)mytext)不确定此代码是否由完成但满足我的需要。
页:
[1]