重新输入Lisp

aloy · 发表于 2022-7-6 07:43:31

当我运行一个包含以下行的rouitine时，我得到了上面的消息：

 
(setq ip(car (reverse lx)))
(setq pr(polar ip devx 400))
(command "_line" "_non" ip "_non" pr "")
(setq x(getpoint "\nGive nearest point to ip on curve"))
(setq del(abs b))
(setq a(/ del 2))

devx的值已由之前的例程计算。
这发生在画完线之后。有什么问题吗？。hovever，例行程序继续评估renainder，并按预期做我需要做的事情。此外，在我最终接受x在线路上的位置之前，我如何在表格中显示变量值，如最小半径、超高、螺旋长度等。所有这些都是为x的变量位置计算的（根据当地标准）？。
如有任何帮助，我将不胜感激。

marko_ribar · 发表于 2022-7-6 08:00:42

在所示示例中，似乎没有什么指向重新输入lisp错误。。。

如果要确保（命令）功能已退出，请在（命令“\u行”\u非“ip”\u非“pr”之后插入此行

copy


(while (> (getvar 'cmdactive) 0) (command ""))

aloy · 发表于 2022-7-6 08:17:01

你好，Marko_redar，
谢谢你的回复。然而，它不起作用。用lx和devx的指定值自己尝试一下，如下所示：

copy

 
(setq lx '((500 500)))
(setq devx 1.0)
(setq b 1)
(setq ip(car (reverse lx)))
(setq pr(polar ip devx 400))
(command "_line" "_non" ip "_non" pr "")
(while (> (getvar 'cmdactive) 0) (command ""))
(setq x(getpoint "\nGive nearest point to ip on curve"))
(setq del(abs b))
(setq a(/ del 2))

您需要设置适当的限制（例如0,0和1000900）

marko_ribar · 发表于 2022-7-6 08:31:16

您必须将代码放入定义为命令或非命令的函数中-我的示例是命令函数X

copy


(defun c:x nil
(setq lx '((500 500)))
(setq devx 1.0)
(setq b 1)
(setq ip(car (reverse lx)))
(setq pr(polar ip devx 400))
(command "_line" "_non" ip "_non" pr)
(while (> (getvar 'cmdactive) 0) (command ""))
(setq x (getpoint "\nGive nearest point to ip on curve"))
(setq del (abs b))
(setq a (/ del 2))
)