多行lisp
我制作了以下lisp，但由于某种原因，该层没有更改为指定的层，而是保持在当前层。我忽略了什么？
(defun c:5 (/)
(setq clyr (getvar "clayer")) ;store current layer
(setvar "cmdecho" 0)
(command "_.layer" "set" "Looproute" nil)
(setvar "cecolor" "bylayer")
(command "mline" "J" "Z" "S" "500")
(setvar "clayer" clyr)
(princ)
) 我会尝试制作层而不是设置，因为如果没有它，它就会出错。从长远来看，这将更容易。 试着把这个放在后面
（命令“mline”“J”“Z”“S”“500”）。。。。未试验过
(while (= 1 (getvar "cmdactive"))
(command pause)
);while
这不是问题所在，因为我们总是使用同一个模板。我要试试那个lpseifert。 Briliant！这很好用！
页:
[1]