在CAD系统中，计算机可以定义函数完成图形绘制。
现要完成图示的平键图形，请用AutoLISP语言编程定义—个名为“圆头平键”(ytpj)的自定义函数。(对话输入位置、键宽和长度)
图A-1 平键的俯视图
参考答案：(defun c: ytpj(/pc1 pc2 r rr p1 p2 p3 p4)(setq pc1(getpoint”
请给出平键最左点（鼠标取点或坐标输入）：”))(setq r (getreal
输入平键宽度W：”)) (srtq rr(* r 0.707)) (srtq l (getreal
输入平键长度L：”)) (srtq a1 (/ pi4)) (setq p1(polar pc1 ...
查看答案
