Autolisp代码问题

mwade93 · 发表于 2022-7-5 16:53:11

下面的代码是我一直在写的，用户点击后，只有在布局选项卡中，才会在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)

BIGAL · 发表于 2022-7-5 17:49:33

当您“setq cl”时，会出现一个命令行响应，只需将其返回到1行，同时也本地化了cl变量。

copy


^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)

mwade93 · 发表于 2022-7-5 17:57:06

谢谢BIGAL

[编程交流] Autolisp代码问题

发表回复

精选推荐