我一直在试图用别人提供的命令编辑我的图形块,以设置所有块的标准:
- (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
- (vla-put-color ent 0)
- (vla-put-linetype ent "Bylayer")
- (vla-put-lineweight ent aclnwtbyblock)
- ) ;_ end of vlax-for
- ) ;_ end of if
- ) ;_ end of vlax-for
- (vla-regen adoc acactiveviewport)
- (vla-endundomark adoc)
出于某种原因,每次我使用这个命令时,它都只运行“缩放”命令。
我有一次成功地使用了这个命令,但再也没有了。有人能告诉我为什么会这样吗?
我正在更改250多个需要此块修复的图形。
感谢您的帮助!
*编辑:它正在重新激活我的上一个命令,zoom恰好是使用的上一个命令。 |