多行lisp

SstennizZ · 发表于 2022-7-6 17:21:32

我制作了以下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)
)

neekcotrack · 发表于 2022-7-6 17:37:28

我会尝试制作层而不是设置，因为如果没有它，它就会出错。从长远来看，这将更容易。

lpseifert · 发表于 2022-7-6 18:06:17

试着把这个放在后面
（命令“mline”“J”“Z”“S”“500”）。。。。未试验过

copy


(while (= 1 (getvar "cmdactive"))
 (command pause)
);while

SstennizZ · 发表于 2022-7-6 18:07:44

这不是问题所在，因为我们总是使用同一个模板。我要试试那个lpseifert。

SstennizZ · 发表于 2022-7-6 18:24:32

Briliant！这很好用！

[编程交流] 多行lisp

发表回复

精选推荐