没什么变化，但现在lisp

MikeP · 发表于 2022-7-6 08:47:25

当我创建这个时，它工作得很好。更改了命令行颜色，没有错误。现在它告诉我

Program ERROR
Resetting environment ; error: An error has occurred inside the *error* 
functionbad argument type: consp nil

copy

(defun c:PST (/ pickstyle)
(if (= (getvar "pickstyle") 1) (setvar "pickstyle" 0) (setvar "pickstyle" 1))
(if (= (getvar "pickstyle") 1) (CmdCol 255 0 0) (CmdCol 255 255 255))
 
(defun CmdCol (r g b)
 (vl-load-com)
 (vla-put-TextWinBackgrndColor
   (vla-get-Display
     (vla-get-Preferences
       (vlax-get-acad-object))) (+ r (* 256 g) (* 65536 b))))
(princ (getvar "pickstyle"))
(princ)
)

Lee Mac · 发表于 2022-7-6 09:00:14

由于您的代码没有定义局部*error*函数，因此您似乎正在运行其他LISP例程，这些例程覆盖默认*error*函数，而不是重置它（有关详细信息，请参阅此处）。

这不会解决您的问题，但会提供有关错误的更多信息；在命令行中键入：

然后重新运行上述代码。

将IF语句移到CmdCol函数定义下方，因为否则调用函数时不会定义该函数。

李

MikeP · 发表于 2022-7-6 09:08:02

谢谢它现在这样说

copy

Command: pst ; error: no function definition: CMDCOL

我在定义中添加了“cmdcol”
但仍然得到相同的错误

copy

(defun c:PST (/ pickstyle CmdCol)
(if (= (getvar "pickstyle") 1) (setvar "pickstyle" 0) (setvar "pickstyle" 1))
(if (= (getvar "pickstyle") 1) (CmdCol 255 0 0) (CmdCol 255 255 255))
 
(defun CmdCol (r g b CmdCol)
 (vl-load-com)
 (vla-put-TextWinBackgrndColor
   (vla-get-Display
     (vla-get-Preferences
       (vlax-get-acad-object))) (+ r (* 256 g) (* 65536 b))))
(princ (getvar "pickstyle"))
(princ)
)