在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  ...
查看答案