无法重新输入lisp错误

samifox · 发表于 2022-7-5 23:51:19

你好

我在探索（极）函数，所以我在弧度方案的背景上做了一个循环。问题是，我想输入一个lisp表达式，看看方案上发生了什么，但我得到“无法重新输入lisp错误”

exampel公司

命令：PLR
输入系数：
命令：（*pi 3）
无法重新输入LISP。

copy


(defun C:PLR ()
 (setq cen '(20.9463 13.5021 0.0))
 (while (setq n (getstring T "\nEnter a factor :"))
  
   (setq n  (atof n))
   (polar cen n 50)
   (command "line" cen (polar cen n 50) "")
   
   (
   )
 )
)

见附件

谢谢
谢伊
PLR。图纸

jdiala · 发表于 2022-7-5 23:57:07

copy

(defun C:PLR (/ cen)
 (setq cen '(20.9463 13.5021 0.0))
 (while (setq n (getangle  "\nEnter angle:"))
 (command "line" cen (polar cen n 50) "")
 )(princ)
)

samifox · 发表于 2022-7-6 00:04:13

请同时阅读我的按摩

satishrajdev · 发表于 2022-7-6 00:07:25

Samifox。。。。。我尝试了两种代码。。。。在你们上传的文件中，我并没有得到你们所说的错误。

下面的jdiala代码比你的工作正常。。。。

copy

(defun C:PLR (/ cen [color=red]n[/color])
 (setq cen '(20.9463 13.5021 0.0))
 (while (setq n (getangle  "\nEnter angle:"))
 (command "line" cen (polar cen n 50) "")
 )(princ)
)

samifox · 发表于 2022-7-6 00:12:02

当您要求键入因子时，请尝试键入类似（*pi 2）的表达式

satishrajdev · 发表于 2022-7-6 00:15:07

Getangle不接受（*pi 2），所以我尝试了下面给出的代码。。。。。
我没有得到任何错误。。。也可以查看附加图像
当我输入（*pi 2）时，它绘制了红线。。。。。

copy

(defun C:PLR (/ cen n)
 (setq cen '(20.9463 13.5021 0.0))
 (while (= (setq n (getstring T "\nEnter a factor :")) nil)
   (command "line" cen (polar cen (atof n) 50) "")
 )
 (princ)
)

pBe · 发表于 2022-7-6 00:19:10

copy


_$ (setq n (getstring T "\nEnter a factor :"))
"(* pi 1.5)"
_$ (atof n)
[b]0.0
[/b]

应该在270。。。。

pBe · 发表于 2022-7-6 00:27:59

Me认为，在将参数传递给极函数之前，应该先输入因子数，然后构造表达式（*pi n）。

MSasu · 发表于 2022-7-6 00:29:15

Samifox，请注意，您不能将AutoLISP语句输入GET*family函数的提示；帮助摘录：

samifox · 发表于 2022-7-6 00:33:28

那么我是否可以从命令行使用表达式？
</blockquote>

[编程交流] 无法重新输入lisp错误

发表回复

精选推荐