Question

如何用Visual LISP绘制任意三边三角形

Answer 1

打开CAD

2
打开Visual LISP编辑器

3
点击新建，新建程序

4
点击保存，保存程序

5
输入程序名称，点击保存

6
保存好程序后，可以在输入框内写入程序，首选建立好主程序，定命令anytriangle。代码如下

7
使用海伦公式用代码获取角度值。代码如下

8
用代码获取三条高的长度。代码如下

9
获取对角底边长。代码如下

10
获取三个角弧度。代码如下

11
绘制三角形，代码如下

12
程序收尾，在最后可写出程序用途及作者。代码如下

点击保存并关闭

下面测试程序，在菜单栏点击工具--->加载应用程序。

在弹出的对话框中选择刚才完成的程序，点击加载后关闭。

在命令栏可看到程序情况。

输入之前设定的命令anytriangle回车。

在绘图区选择基点。

输入第一边长回车

输入第二边长回车

输入第三边长回车

在绘图区可看到已经完成的三角形。