lisp表示面积（平方英尺）

jcalla · 发表于 2022-7-6 09:22:57

我正在寻找一个lisp例程来创建一个给定平方英尺的面积。有人能帮我吗？

谢谢
JPC公司

CadEarner · 发表于 2022-7-6 09:27:54

面积是什么形状？
正方形、矩形、三角形、圆形、多边形等。。。请具体说明。

BlackBox · 发表于 2022-7-6 09:33:18

欢迎使用CADTutor-今后，请在AutoLISP、Visual LISP和DCL论坛上发布您的LISP问题。

至于你的要求。。。您是在寻找LISP例程来创建具有特定区域的对象，还是希望选择一个对象并标记所述对象的区域？

alanjt · 发表于 2022-7-6 09:37:25

面积的平方根将给出正方形每边的长度。

SLW210 · 发表于 2022-7-6 09:42:04

也许这会让你开始。。

jcalla · 发表于 2022-7-6 09:44:12

该区域的形状将为矩形。我有一个圆的Lisp程序。具体如下：

; ----- C测试。LSP-----
; 按面积绘制圆（平方码）
（defun C:CTEST（）
（setq ar（getreal“AreaSY？”））
（setq ar（*ar 1296））
（setq pt（getpoint“Centerpoint？”））
（setq rad（sqrt（/ar pi）））
（命令“circle”pt rad）
（普林斯）
)
可以为矩形区域修改此选项吗？

谢谢
JPC公司

BIGAL · 发表于 2022-7-6 09:47:25

如果它是一个矩形，那么问题是什么，面积=L x W，你只需要指定其中的一个，那么有很多方法可以绘制矩形，最简单的方法是使用矩形。

（setq pt1（getpoint“左下角？”））（car pt1）=x（cadr pt1）=y将L和W添加到这些值，然后为新Pt2（setq Pt2（list（+ptx L）（+pty W）））（命令“rectang”pt Pt2）

jcalla · 发表于 2022-7-6 09:54:27

好啊如果rectang命令会提示我输入以平方英尺为单位的面积，那么我就可以了。我需要一个lisp，它会提示我输入起点，然后要求我输入长度或宽度，然后提示我输入给定长度或宽度的平方英尺。

JPC公司

Lee Mac · 发表于 2022-7-6 09:57:21

copy


RECTANG
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:
Specify other corner point or [Area/Dimensions/Rotation]: A

jcalla · 发表于 2022-7-6 09:59:19

我忘了一件事。我使用R14版本，所以我没有使用rectang命令进入区域的选项，这就是为什么我要询问lisp例程。

JPC公司

[编程交流] lisp表示面积（平方英尺）

发表回复

精选推荐