长高颈法兰AUTOLISP自动绘制程序.docxVIP

长高颈法兰AUTOLISP自动绘制程序法兰编号；HG20615-2009LWNRF-150(20)-3主要编写人、组长：江世杰 15号 组员：李诵 17号郭其明 13号王冬冬 23号以下是程序代码：Cgjfl.mun(菜单)***menugroup=menu4***POP1[长高颈法兰][绘制法兰]*^C(load cgjfl);cgjfl[保存]^C^CSAVE[打印]^C^CPLOT[-----][取消]^CCgjfl.DCL(窗体)cgjfl:dialog{ label=长高颈法兰;:row{ :boxed_column{ label=法兰参数; :edit_box{ label=法兰两段距离D:; key=D; edit_limit=15; edit_width=10; value=110;} :edit_box{ label=螺孔心距K; key=K; edit_limit=15; edit_width=10; value=79.4;} :edit_box{ label=密封面G:; key=G; edit_limit=15; edit_width=10; value=50.8;} :edit_box{ label=法兰厚度C：; key=C; edit_limit=15; edit_width=10; value=12.7;} :edit_box{ label=螺孔直径L:; key=L; edit_limit=15; edit_width=10; value=16;} :edit_box{ label=法兰高度H:; key=H; edit_limit=15; edit_width=10; value=229;}:edit_box{ label=凸台两端距离A:; key=A; edit_limit=15; edit_width=10; value=49;}:edit_box{ label=圆角半径R:; key=R; edit_limit=15; edit_width=10; value=7;}:edit_box{ label=凸台孔径b:; key=b; edit_limit=15; edit_width=10; value=27;}:edit_box{ label=螺孔个数n:; key=n; edit_limit=15; edit_width=10; value=4;}:edit_box{ label=密封面f:; key=f; edit_limit=15; edit_width=10; value=2;}} :column{ :boxed_column{ label=绘制法兰位置（左下角点）; :edit_box{ label=横坐标:; key=xxx; edit_limit=15; edit_width=10; value=100; } :edit_box{ label=纵坐标:; key=yyy; edit_limit=15; edit_width=10; value=100; }} :boxed_column{ label=各参数位置示意图; :image{ key=cgjfl_image; aspect_ratio=0.5; height=50; color=-2;}}}}ok_only;}以下是窗体对话框截图：Cgjfl.lsp（主程序）(defun c:cgjfl();定义命令(setq dcl_id(load_dialog cgjfl.dcl));加载窗体(if ( dcl_id 0)(exit) ) (if (not (new_dialog cgjfl dcl_id)) (exit)) (image1 cgjfl_image cgjfl);定义图形函数 (action_tile accept (data_set)) (start_dialog) (unload_dialog dcl_id) (draw_cgjfl);执行绘图程序)(defun image1(key image_name / x x);加载图形 (start_image key) (setq x (dimx_tile key) y (dimy_tile key) ) (fill_image 0 0 x y 250) (slide_image 0 0 x y image_name) (end_image) )(defun data_set()//数据从窗体传入和处理 (setq D (atof (get_tile D))) (setq K (atof (get_tile K))) (setq G (atof (get_tile G))) (setq C (atof (get_tile C))) (setq L (at