《机械CADCAM》考题 2(7)

10. 如图输入 a、 b、线部分）。

、 d、 r 五个值，用AutoLISP编程自动绘制出该图（实 c

答:

(defun C:PL()

(SETQ A (GETREAL \请输入板料长度A:\ (SETQ B (GETREAL \请输入板料长度B:\ (SETQ C (GETREAL \请输入板料宽度C:\ (SETQ D (GETREAL \请输入板料宽度D:\ (SETQ R (GETREAL \请输入圆弧半径R:\ (COMMAND \ (SETQ P0 (GETPOINT \输入绘图基点 P0:\ (SETQ P1 (POLAR P0 0 A))

(SETQ P2 (POLAR P1 (* -0.5 PI) D))

(SETQ P3 (POLAR P2 (* -1 PI) (- A (+ B R)))) (SETQ P4 (POLAR P3 (* -0.5 PI) R)) (SETQ P6 (POLAR P0 (* -0.5 PI) C)) (SETQ P5 (POLAR P6 0 B))

(SETQ P7 (POLAR P5 (* 0.5 PI) (- C (+ D R)))) (setVar \ (COMMAND \

(COMMAND \ )

11. 如图输入圆的直径D 和 正方形边长 B二个值，用AutoLISP编程自动绘制出该图（实线部分）。

答：(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编程自动绘制出该图（实线部分）。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库《机械CADCAM》考题 2(7)在线全文阅读。