Lisp问题

phillyphantom · 发表于 2022-7-6 11:40:17

你好

我对所有这些lisp例程都是新手，但当我在使用FLATTEN命令时遇到问题，我读到了一个效果更好的lisp命令。我将其保存为“flatting.LSP”，并能够在绘图中引导lisp。它说我成功了，但当我在命令行中输入“展平”时，它说这是一个未知的命令。我遵循了这个网站上的教程，但由于某种原因，它不起作用。我做错了什么？

谢谢

c2designkitchen · 发表于 2022-7-6 11:48:15

你好我对Lisps也很陌生，但wizman为我写了一个，并给了我一些加载Lisps的很好说明。以下是步骤：
[列表]

将文本文件另存为（文件名）。lsp

在命令行中键入“Appload”

在文件浏览器中查找Lisp文件

点击“加载”

单击“关闭”

键入Lisp的命令，它是文本文件顶部“c：”后面的单词
希望有帮助！

Lee Mac · 发表于 2022-7-6 11:55:24

此处的一般指南：

http://www.cadtutor.net/forum/showthread.php?t=1390

phillyphantom · 发表于 2022-7-6 12:00:44

是的，这就是我遵循的教程。也许我下载的lisp例程有问题。

在我将其输入命令行之前，一切都正常。然后我得到一个未知的命令。

我附上了一张照片，显示lisp已正确加载

c2designkitchen · 发表于 2022-7-6 12:04:10

你能把你的代码也发出来吗？

phillyphantom · 发表于 2022-7-6 12:11:34

好的，谢谢大家的快速回复。我想我已经弄明白了。

todouble22 · 发表于 2022-7-6 12:13:43

尝试在括号中键入命令，可能创建Lisp的人没有将其定义为（defun C:flatting（）中的命令。他们刚刚写道（defun flatting（）。。发出命令的其余代码是什么？

phillyphantom · 发表于 2022-7-6 12:19:41

好的，现在我有一个不同的问题。在我输入文件名而不是C之后的内容之前：我想我错过了读那部分，对不起。

这是代码。

（defun c：平坦（/总nabor）
（vl load com）
（如果
（setq total nabor（ssget“x”'（（410.“模型”）））
（程序
（setq总nabor
（mapcar“vlax ename->vla对象
（mapcar’cadr
（ssnamex总nabor）））
)
（foreach i’（1e99-1e99）
（mapcar（功能（λ（x））
（vla移动x
（vlax-3d-point（列表0）
（vlax-3d-point（列表0 0 i）））
))总nabor）））
)
（普林斯）
)

当我输入“flat”时，我得到了这个错误

命令：平面
; 错误：自动化错误。此代理不允许