A-A+
用AutoL1SP语言编写一个名为 uxing的自定义函数。要求执行此函数时使用键盘输入
问题详情
用AutoL1SP语言编写一个名为"tuxing"的自定义函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆、两条中心线和一个正方形(该正方形由该圆与中心线的四个交点的连线组成)。
参考答案
参考答案(defun c: tuxing(/ pc r pl p2 p3 p4 xc yc)
(setq pc(getpoint "\n请输入圆心坐标点:"))
(setq r(getreal "\n请输入圆的半径:"))
(setq plCpolar pc pi (十 r 3)))
Cs etq p2 (polar pc 0 (十 r 3)))
(setq p3(polar pc (j pi 2) (十 r 3)))
(setq p4 (polar pc (/ (* pi 3) 2) (十 r 3)))
(command " circle" pc r)
(command "line" pl p2 “”)
(command "line" p3 p4 “”)
(setq xc(car pc) yc(cadr pc))
(setq p1 (list (- xc yc))
(setq p2(list xc (- yc r)) )
(setq p3(list (+ xc r) yc))
(setq p4(1ist xc (+ yc r)) )
(command "line" p1 p2 p3 p4 pl “”)
)
