Lisp创建图层时出错

OMEGA-ThundeR · 发表于 2022-7-5 16:20:15

你好

我想制作一个“创建层”lisp，这样我就可以通过命令切换层。

我不希望出现任何错误，它们不会显示在非常基本的版本中。

(Defun C:HulplijnA ()
(command "-Layer" "make" "X-XX-AL-HULPLIJN-G" "color" "yellow" "" "")
(Command "-Layer" "set" "X-XX-AL-HULPLIJN-G" "")
(princ)
)

由于上面的代码在几个级别上是错误的，所以我想用if语句创建一个检查。

copy

(Defun C:hulplijn ()
(if (tblsearch "LAYER" "X-XX-AL-HULPLIJN-G") ; Bestaat deze laag?
((Command "-Layer" "set" "X-XX-AL-HULPLIJN-G" "")(princ)) ; Zo ja dan doen we dit
((command "-Layer" "make" "X-XX-AL-HULPLIJN-G" "color" "yellow" "" "")) ; Zo nee dan doen we dit
)
(princ)
)

所以，上面的代码在两种情况下都给了我一个“命令：；错误：无函数定义：nil”错误。

我做错了什么来制造那个错误？

BKT · 发表于 2022-7-5 16:42:40

您需要去掉额外的括号和（princ）：

copy

(Defun C:hulplijn ()
(if (tblsearch "LAYER" "X-XX-AL-HULPLIJN-G") ; Bestaat deze laag?
   [color=red]([/color](Command "-Layer" "set" "X-XX-AL-HULPLIJN-G" "")[color=red](princ))[/color] ; Zo ja dan doen we dit
   [color=red]([/color](command "-Layer" "make" "X-XX-AL-HULPLIJN-G" "color" "yellow" "" "")[color=red])[/color] ; Zo nee dan doen we dit
)
(princ)
)