这里是一个更改线型的示例，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）不确定此代码是否由完成但满足我的需要。 | 
置顶卡
