《机械CADCAM》考题 2

答：(defun C:PL()

(SETQ B (GETREAL \请输入正方形边长B:\ (SETQ D (GETREAL \请输入圆弧直径D:\ (COMMAND \ (SETQ P0 (GETPOINT \输入绘图基点 P0:\ (SETQ P5 (POLAR P0 (* 0.5 PI) (* 0.5 B))) (SETQ P2 (POLAR P5 0 (* 0.5 B))) (SETQ P3 (POLAR P2 (* -0.5 PI) B)) (SETQ P4 (POLAR P3 (* PI) B)) (SETQ P1 (POLAR P4 (* 0.5 PI) B))

(setVar \

(COMMAND \ (COMMAND \ )

12. 如图输入圆的直径D 和 两个圆的中心距 A 的值，用AutoLISP编程自动绘制出该图（实线部分）。