我的基本路线需要帮助

Zykl0 · 发表于 2022-7-6 17:12:46

我试着做一个例程（我的第一个），每次调用函数时都切换两层状态。

你能告诉我代码有什么问题吗？

非常感谢。

neekcotrack · 发表于 2022-7-6 17:20:12


(defun c:layswitch (/ layvar)
(setvar "layvar" 1)
(if (=(getvar "layvar") 1)
 (command "layer" "A" "R" "T1" "")
 (setvar "layvar" 0)
) ;if
 (if (=(getvar "layvar") 0)
  (command "layer" "A" "R" "T2" "")
  (setvar "layvar" 1)
 ) ;if
(princ)
);defun

看起来很快，这就是我看到的，加上什么是LAYVAR？

Zykl0 · 发表于 2022-7-6 17:22:50

哼一个我创建的变量？对于每次调用函数时在layerstate T1和T2之间切换，是否良好？

编辑：这显然与layvar无关。。。我在某个地方读到需要调用defun（）括号中的变量。但我想我误解了

Lee Mac · 发表于 2022-7-6 17:27:15

您可能应该使用“setenv”来设置系统环境变量，或者只使用通常的“setq”来设置局部变量。

Zykl0 · 发表于 2022-7-6 17:29:23

好的，请问语法有什么问题？

copy


(defun c:layswitch ()
(setq "layvar" 1)
(if ("layvar" = 1)
 (command "layer" "A" "R" "T1" "")
 (setq "layvar" 0)
) ;if
 (if ("layvar" = 0)
  (command "layer" "A" "R" "T2" "")
  (setq "layvar" 1)
 ) ;if
(princ)
);defun

Lee Mac · 发表于 2022-7-6 17:32:07

使用“setq”时，不要在变量名周围使用引号，此外，为了检查等式，请使用：

copy

 (= xxxx yyy)

不是：

copy

 ("xxxx" = yyy)

copy

(defun c:layswitch (/ layvar)
(setq layvar 1)
(if (= layvar 1)
 (command "layer" "A" "R" "T1" "")
 (setq layvar 0)
) ;if
 (if (= layvar 0)
  (command "layer" "A" "R" "T2" "")
  (setq layvar 1)
 ) ;if
(princ)
);defun