输入命令激活zoo
我一直在试图用别人提供的命令编辑我的图形块，以设置所有块的标准：(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恰好是使用的上一个命令。 我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛。
请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。 欢迎来到CADTutor
您发布的代码没有定义命令（它只是一组独立的AutoLISP表达式）；您需要将表达式括在defun表达式中，以便定义可以在命令行计算的命令。
页:
[1]