本文介绍了一个使用AutoCAD Lisp编写的程序，该程序能够根据用户输入的一个顶点坐标及三条边的长度来绘制一个三角形。通过计算极坐标和三角形面积等关键步骤完成绘制。
AutoCAD LISP利用一顶点和三边长绘制三角形，代码如下。
(defun c:test()
(setq pointa (getpoint "请输入左下角点："))
(setq A (getreal "\n请输入底边长："))
(setq B (getreal "\n请输入左下角点对边长："))
(setq C (getreal "\n请输入第三边长："))
(setq pointb (polar pointa 0 a))
(setq pointh (polar pointa 0 (/ a 2)))
(setq s (/ (+ a b c) 2))
(setq area (sqrt (* s (- s a) (- s b) (- s c))))
(setq pointc (polar pointh (/ pi 2) (/ (* 2 area) a)))
(command "line" pointa pointb pointc "c")
)
代码完。
扫一扫
359
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
