AutoLisp用于缩放、扩展、purg

Dadgad · 发表于 2022-7-5 17:09:24

BIGAL，不错的一个，听起来就像医生点的！

lalcalac · 发表于 2022-7-5 17:13:28

好吧，我是个新手，看起来这个命令：；错误：没有函数定义：autocad上的SCALESET，似乎也可以，所以我似乎是问题所在，无法获取信息。感谢您的帮助！

OMEGA-ThundeR · 发表于 2022-7-5 17:16:03

制作简单的lisp文件非常简单。

只需使用生成的命令启动lisp代码：


(Defun C:commandname ()

然后运行通常在AutoCAD中键入的命令（以及相应的设置）

copy


(command "-purge" "a" "*" "n" "-purge" "z" "-purge" "r" "*" "n" "audit" "y" "-purge" "a" "*" "n")
(command "_zoom" "e")
(command "qsave")

然后用这段代码关闭lisp例程

copy


(princ)
)

在记事本（或任何首选的文本编辑器）中创建文件，并将其另存为*。LSP文件。在autocad中使用APPLOAD命令加载文件，并使用set命令运行lisp（在上述情况下为“commandname”）。

就这么简单。

以上代码清除和清理图形，然后缩放->扩展当前模型/布局，然后保存图形。
我不知道如何在事后或使用命令行命令快速设置线宽。

lalcalac · 发表于 2022-7-5 17:20:45

好的，我再次尝试了Alan发布的代码，但我仍然无法使其工作，它不断抛出错误，我不知道为什么，正如我所说，我还不太熟悉autolisp的东西，很想知道你是如何做到的Dadgad，谢谢b4：）

Dadgad · 发表于 2022-7-5 17:22:09

我没有Lisp程序，只是看到比加尔有一个他觉得可以帮助你的Lisp程序。
最好等待BIGAL的反馈，正如他所写的那样，他知道应该如何使用它，并且可能能够帮助您解决问题。

事实上，你不熟悉lisp是无关紧要的，计算机既不知道也不关心，它只是遵循它给出的命令。
我也不懂lisp，但我一直在使用它们，它们是上帝派来的。
在我的例子中，Lisp程序的上帝有一个名字，李-麦克！

BIGAL · 发表于 2022-7-5 17:24:03

这是一个旧的lisp，我没有仔细检查它，缺少的scaleset是因为它是一个更大的lisp组的一部分，因此是lay_miss。

明天我会有时间修复的，对不起。注：仅适用于第2版的线路。

lalcalac · 发表于 2022-7-5 17:28:19

哦，我明白了，我绞尽脑汁想弄明白，哈哈，我会等的，谢谢你的帮助！

BIGAL · 发表于 2022-7-5 17:30:29

上面帖子中的Ok代码更新了，它添加了一条TIC线。

lalcalac · 发表于 2022-7-5 17:35:45

这是一个很棒的lisp，但对我来说仍然不是最好的，它可以作为一个双扩展，将扩展线添加为一条新的，我只需要扩展角线，并将它们保留为现有的线，我尝试使用length命令编写代码，问题是它需要逐个选择对象，但是，fence可以很好地用于此，事情是，我不能只使用两点围栏，而不是多围栏线

我试过这个，但是，它首先尝试选择fence，然后显示命令，正好相反。谢谢你的帮助！！

BIGAL · 发表于 2022-7-5 17:38:07

为了只做角点，我认为你必须分别拾取每个角点，然后使用一个非常小的窗口来拾取和延伸两条线。它需要一些额外的位来完成已经完成的事情，你需要这个，我选择了哪一端，所以方向对于扩展是正确的，否则圆的想法可能是可行的。

不要使用“F”围栏，使用“C”穿越两个点，计算平方米的距离非常小，如0.5。

[编程交流] AutoLisp用于缩放、扩展、purg

发表回复

精选推荐