用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输人一个圆的圆心坐标和半径值,然后自动绘出该圆、两条中心线和一个正方形(该正方形由该圆与中心线的四个交点的连线组成)。
参考答案:(defun c:tuxing(/ pc r pl p2 p3 p4 xc yc) (setq pc(getpoint“
请输入圆心坐标点:”)) (setq r(getreal“
请输入圆的半径;”)) (setq pl(polar pc pi(+ r 3))) (setq p2(polar pc 0 (+ r 3))) (setq p3(pol...
查看答案