任瀚-CAD、CAM第3次作业.docxVIP

CAD/CAM: Modeling report CLASS 072102 NAME 任 瀚 TECHER 文国军 Parametric Drawing Report Name:任瀚 NO.: 072102 Expecting Score:85 Introduction of object to be drawn: (Attached Picture) Program codes: 1.the main program code ( defun C:BOLT() (setq filename bolt) ; (if( (setq index_value(load_dialog filename)) 0 ) ; (progn (setq do_what 8) (while ( do_what 1) (if(new_dialog filename index_value) ; (progn (start_image bolt_image) ; (setq max_x (dimx_tile bolt_image)) ; (setq max_y (dimy_tile bolt_image)) (slide_image 0 0 max_x max_y bolt) ; (end_image) ;关闭图像按钮 (action_tile d (setq d (atof $value))) ; (action_tile L1 (setq L1 (atof $value))) ; (action_tile L (setq L (atof $value))) ; (action_tile n (setq n (atof $value))) ; (action_tile k (setq k (atof $value))) ; (action_tile h (setq h (atof $value))) ; (action_tile Dk (setq Dk (atof $value))) ; (setq do_what (start_dialog)) ) ; (alert 不能显示对话框！) ) ; ) ; (unload_dialog index_value) ; ) ; (alert 不能装载对话框！) ) ; (if(= do_what 1) (draw_bolt d L1 L n k h Dk) ) ) ; (defun draw_bolt (d L1 L n k h Dk) ; (setq p0 (getpoint \n 输入螺栓基点:)) ; (setq p13 (polar p0 (* 0.5 3.14) (* 0.5 d))) (setq p1 (polar p0 (* 0.5 3.14) (* 0.5 Dk))) (setq p5 (polar p0 3.14 (- h k))) (setq p12 (polar p0 0 (- L (* 0.1 d)))) (setq p7 (polar P12 (* 0.5 3.14) (* 0.5 d))) (setq p4 (polar p5 (* 0.5 3.14) (* 0.5 n))) (setq p3 (polar p4 3.14 k)) (setq p2 (polar p3 (* 0.5 3.14) (* 0.5 (- Dk n)))) (setq p6 (polar p13 0 (- L L1))) (setq p10