Autolisp代码问题
下面的代码是我一直在写的，用户点击后，只有在布局选项卡中，才会在VPORT层上绘制视口。所有功能都正常，但ACAD总是在命令结束时将当前层输入命令行，当然会显示错误。我的问题是，我对这段代码做了什么错误，它一直在发生？^C^C^C(if (= (getvar "tilemode") 1) (alert "This command does not work in model space.") (command (setq CL (getvar "CLAYER")) "layer" "set" "VPORT" "" "rectang" pause pause "mview" "o" "l" (setvar "CLAYER" CL)))(princ) 当您“setq cl”时，会出现一个命令行响应，只需将其返回到1行，同时也本地化了cl变量。
^C^C^C(defun rectwade ( / CL) (if (= (getvar "tilemode") 1)
(alert "This command does not work in model space.")
(progn
(setq CL (getvar "CLAYER"))
(setvar 'clayer "VPORT")
(command "rectang" pause pause "mview" "o" "l")
(setvar "CLAYER" CL)
)
)
)
(rectwade)
(princ)
谢谢BIGAL
页:
[1]