调用(*push-error-using-command*)前无法从 *error* 调用(command)。

尘缘一生

调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)

程序如下：什么原因？

;;说明:;;所有实体改颜色;;参数:sl-gs1:原色号
;;参数:sl-gs2:修改后色号
;;返回:
(defun sl-sxs (sl-gs1 sl-gs2 / ss n)
  (if (null vlax-dump-object) (vl-load-com) );;;将 Visual LISP 扩展功能加载到 AutoLISP
  (setq ss (ssget "X" (list (cons 62 sl-gs1))))
  (repeat (setq n (sslength ss))
    (vla-put-color (vlax-ename->vla-object (ssname ss (setq n (1- n)))) sl-gs2 )
  )
)
(sl-sxs 2 30)  ;;;;;;;所有颜色为2 的实体改为 30号色
(sl-sxs 8 7)
(sl-sxs 9 7)
(sl-sxs 253 7)
(sl-sxs 4 150)
(sl-sxs 130 150)

nyistjz

我也有遇到了同样的问题，还请高手指导。

e2002

随着acad的发展，有些老的代码需要修改了。
在以往的老的错误处理函数中，不能再支持command函数调用了。你有两种处理方法，要么command改为command-s ，或者在主程序中使用(*push-error-using-command*)这些错误处理函数。

具体在LISP参考中都有很详细的说明，大家遇到问题应该先找帮助文档，再搜索网络，最后没有答案才到论坛发帖提问

e2002

AutoCAD 帮助文档这些函数的说明参考文档。
在vlide中，还可以选中函数名称字符串后，右击选择symbol service，直接跳转到函数的参考文档。

尘缘一生

此问题已解决，需要句判断而已

;;说明:;;所有实体改颜色;;参数:sl-gs1:原色号
;;参数:sl-gs2:修改后色号
;;返回:
(defun sl-gst-ys (/ sl-sxs )
  (defun sl-sxs (sl-gs1 sl-gs2 / ss n)
    (if (setq ss (ssget "X" (list (cons 62 sl-gs1))))
      (repeat (setq n (sslength ss))
        (vla-put-color (vlax-ename->vla-object (ssname ss (setq n (1- n)))) sl-gs2)
      )
    )
  )
  (sl-sxs 2 30)  ;;;;;;;所有颜色为2 的实体改为 30号色
  (sl-sxs 8 7)
  (sl-sxs 9 7)
  (sl-sxs 253 7)
  (sl-sxs 4 150)
  (sl-sxs 130 150)
)
(sl-gst-ys)

烟盒迷唇

厉害啊，能自己找到办法解决了