德芬-没有乐趣！

firavolla · 发表于 2022-7-6 11:39:52

Wreaz（wbeam）被设置为nil，因为如果没有它，我在尝试附加新值时会在循环内出错。它应该在没有它的情况下工作，但由于某些原因，它不能工作。不知道为什么。

The Buzzard · 发表于 2022-7-6 11:40:11

正如我所说，你有两个独立的循环。

我将首先执行所需的次数。
然后，花环将执行所需的次数。

你还没有告诉我bBeam是做什么的。

这段代码应该做什么？
你能寄一张样图吗？
您只显示了需要在pline命令中绘制的四个点，
但你要重复循环和附加列表。这是怎么回事？
也许有一种更简单的方法来实现你想要做的事情。

firavolla · 发表于 2022-7-6 11:46:55

我必须画一个像给定图像中那样的光束。更准确地说，我必须实现一个脚本，在运行时根据用户输入绘制梁。
正如我所说，在lisp中我是一个新手。。我理解它，但现在我还不熟悉它，因为我应该。
我有一个C语言的应用程序，它完成了梁设计和微积分的每个部分，允许用户将平面图作为DXF文件导出到Autocad中。由于兼容性问题。。此外，由于它将在内部使用，并且仅用于加速Autocad中某些元素的绘制，因此我现在使用Autolisp编写脚本。

我的想法是这样的。让用户首先输入基本数据，例如梁的宽度（bBeam）、梁的高度（hBeam）、梁中的开口数（nOp）。支架数量为nSup=nOp+1，然后用户输入数据，如每个开口的长度（此处使用L）和每个支架的宽度（wReaz或wSup）。输入数据后，为了简化例程，调用了3个函数。一个是df，代表drawFirst。这一个绘制了最左侧支撑的左半部分。第三个绘制了最右侧支撑的右半部分。第二个函数用于绘制中间部分（如果您想象只有一个开口，因此有两个支撑，则第二个函数绘制最左侧支撑的后半部分、开口和最终支撑的前半部分）。第二个函数重复调用nOp次。图纸的起点被视为第一个支架的左上角点，用作参考并由用户给出。
目前，数据是使用autocad中的命令提示符输入的，但最后我将使用DCL。

Shuuuuu，就是这样。为什么调用（df）时会出现错误？

The Buzzard · 发表于 2022-7-6 11:47:24

试试这个：

copy

(defun df ()
 (setq wReazP2 (car L))
 (setq p0 pStart)
 (setq p1 (polar p0 (dtr   0.0) wReazP2))
 (setq p2 (polar p0 (dtr 270.0) hbeam))
 (setq p3 (polar p2 (dtr   0.0) wReazP2)))

它现在画了一些东西，不确定是什么。

firavolla · 发表于 2022-7-6 11:52:01

)我现在看到了。谢谢你的帮助，更重要的是，谢谢你的耐心。

The Buzzard · 发表于 2022-7-6 11:58:19

或者：

copy

 (defun df ()
 (setq wReazP2 (car L))
 (setq p1 pStart)
 (setq p0 (polar p1 (dtr   0.0) wReazP2))
 (setq p2 (polar p1 (dtr 270.0) hbeam))
 (setq p3 (polar p2 (dtr   0.0) wReazP2)))

对不起，我在上一篇文章中转移了观点。

The Buzzard · 发表于 2022-7-6 11:59:52

没问题，只是有几件事让人困惑。当问题真的很简单的时候，我以为是最坏的结果。我假设会有更多的编码，所以你在某个阶段做这件事。如果汽车获得列表中的第一个距离，则很可能会对该列表中的其余距离进行其他计算。

[编程交流] 德芬-没有乐趣！

发表回复

精选推荐