在Lisp中使用时

xspacex · 发表于 2022-7-6 12:18:50

大家好，
我想我有一个简单的问题，所以希望我能找到我的答案…
当我使用这段代码时，一切都很好
（而（/=dst1“400”）
（setq dst1（getstring T“\n输入宽度（400200）：”）
然而，当我尝试使用“或”时，我无法使其工作
（while（或（/=dst1“400”）（/=dst1“200”））
（setq dst1（getstring T“\n输入宽度（400200）：”）
提前感谢！

alanjt · 发表于 2022-7-6 12:28:50

如果dst1在or语句中不等于400或200，它将返回nil。因此，终止时。试着用and代替or。

flowerrobot · 发表于 2022-7-6 12:33:25

如果要使用getstring函数，为什么不按下面的方法操作呢

copy

(initget 7 "200 400")
(setq dst1 (getstring T "\nEnter Width (400,200): "))

但要回答你的问题，请尝试，
另一方面，我认为你需要一个“and”而不是“or”语句。
还有，如果我的记忆中断了，正确的“/”有时会引起问题，最好使用“不”。。。请注意，我年轻时很安静。

或

copy


(while (not (member dst1 '("200" "400")))....

alanjt · 发表于 2022-7-6 12:38:06

FlowerRobot，initget与getstring不兼容。

xspacex · 发表于 2022-7-6 12:48:52

感谢您的回复。
我没有成功使用（initget 7“400 200”），因为如果我输入400和200以外的值，程序将继续。然而，使用“and”和（not）（或在大多数情况下都不起作用，但我现在的问题是，如果我输入400作为宽度，然后在一分钟后重复该命令，它将跳过while循环（这是要求输入距离的部分）并移到下一步。它似乎是在记住第一次使用命令时输入的距离。。。有什么原因吗？
再次感谢

alanjt · 发表于 2022-7-6 12:49:55

您没有本地化变量。在没有看到代码的情况下很难猜测。

为什么不使用getreal、getdist或getint来消除用户输入字母字符？如果需要，您可以随时将其转换为字符串。

xspacex · 发表于 2022-7-6 12:58:56

一旦这段代码完成，我将把它添加到我们办公室的另一段代码中，这段代码绘制了辐射体线。这部分将有助于抵消线。。。

（定义c：测试（/en1 pt1和）
（setvar“cmdecho”0）
（而不是（或（=dst1“400”）（=dst1“200”））
（setq dst1（getstring T“\n输入宽度（400200）：”）
)
（setq en1（entlast））
（setq pt1（getpoint“\n指定偏移侧：”）
（如果（=dst1“400”）
（程序
（命令“.u offset”400 en1“\u non”pt1”）
))
（如果（=dst1“200”）
（程序
（命令“.u offset”200 en1“\u non”pt1”）
))
（setvar“cmdecho”1）
（普林斯）
)