lisp表示面积（平方英尺）
我正在寻找一个lisp例程来创建一个给定平方英尺的面积。有人能帮我吗？谢谢
JPC公司 面积是什么形状？
正方形、矩形、三角形、圆形、多边形等。。。请具体说明。 欢迎使用CADTutor-今后，请在AutoLISP、Visual LISP和DCL论坛上发布您的LISP问题。
至于你的要求。。。您是在寻找LISP例程来创建具有特定区域的对象，还是希望选择一个对象并标记所述对象的区域？ 面积的平方根将给出正方形每边的长度。 也许这会让你开始。。 该区域的形状将为矩形。我有一个圆的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公司 如果它是一个矩形，那么问题是什么，面积=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） 好啊如果rectang命令会提示我输入以平方英尺为单位的面积，那么我就可以了。我需要一个lisp，它会提示我输入起点，然后要求我输入长度或宽度，然后提示我输入给定长度或宽度的平方英尺。
JPC公司
RECTANG
Specify first corner point or :
Specify other corner point or : A 我忘了一件事。我使用R14版本，所以我没有使用rectang命令进入区域的选项，这就是为什么我要询问lisp例程。
JPC公司
页:
[1]
2