简单lisp例程

stevo99 · 发表于 2022-7-5 19:46:34

大家好，

我正在尝试编写我的第一个lisp来绘制一个基本的门户框架。
我已经使用excel计算出坐标并构造了一个命令，一旦绘图命令工作，我就会用lisp做背景数学。

但现在，我有以下命令似乎不起作用，我不明白为什么。

（命令“pline”（getpoint“\n点击基点：”@07630”“@14143.51237.4”“@14143.5，-1237.4”“@0，-7630”“@530,0”“@08208.4”“@-14673.51769.4”“@-14673.5，-1769.4”）

它根据需要绘制一条线，但由于某种原因，“@530,0”点位于前一个点之上，并且线自身绘制。有什么想法吗？

此外，当我从excel粘贴命令时，它会立即执行，并给出错误消息：

命令：（命令“pline”（获取点“\n点击基点：”@07630”“@14143.51237.4”“@14143.5，-1237.4”“@0，-7630”“@530,0”“@08208.4”“@-14673.51769.4”“@-14673.5，-1769.4”）
选择基点：
未知命令“@07630”。按F1键获取帮助。
未知命令“51237.4”。按F1键获取帮助。
未知命令“5，-1237.4”。按F1键获取帮助。
未知命令“@0，-7630”。按F1键获取帮助。
未知命令“@530,0”。按F1键获取帮助。
未知命令“4”。按F1键获取帮助。
未知命令“51769.4”。按F1键获取帮助。
未知命令“5，-1769.4”。按F1键获取帮助。
无

非常感谢您的帮助

BlackBox · 发表于 2022-7-5 20:03:19

除非我忽略了什么，否则请尝试一下：

copy


(defun c:FOO (/ pt)
 (if (setq pt (getpoint "\nPick Base Point: "))
   (command "pline" pt "@0,7630" "@14143.5,1237.4" "@14143.5,-1237.4"
            "@0,-7630" "@530,0" "@0,8208.4" "@-14673.5,1769.4"
            "@-14673.5,-1769.4" [color="red"]"@0,-8208.4" "@530,0" "_c"[/color]
           )
 )
 (princ)
)