CAD考试：用autolisp编程

Question

利用AUTOLISP编写绘制正三角形的命令。要求：
1：用getpoint函数获得三角形的顶点，用getdist函数获得正三角形的边长，通过输入正三角形的某顶点和它的边长来绘制。
2：利用command函数调用PLINE命令绘制。

求高手帮忙速度给出答案。

Answer 1

(defun c:xxx()
(setvar "cmdecho" 0)
(setq pt1 (getpoint " \n 第一点："))
(setq pt2 (getpoint pt1 " \n 第二点："))
(setq LL (distance pt1 pt2)) ;计算两点间距离
(setq ang (angle pt1 pt2)) ;计算两点间角度
(setq pt3 (polar pt2 (+ ang (/ (* 120 pi) 180)) LL)) ;计算三角形第三点坐标
(command "polygon" 3 "e" pt1 pt2) ;绘制三角形
(prin1)
)

Answer 2

要求这么清楚，函数这么明确，还不会？？