2022年Autolisp源程序 .pdf
《2022年Autolisp源程序 .pdf》由会员分享,可在线阅读,更多相关《2022年Autolisp源程序 .pdf(6页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、(defun c:screw(/ sdt d l x y p0 alf d_n l_n cc tc sc user_md d1 l1 cen_md) ; 初始化变量、标准大径表和标准长度表(setq sdt 2 s_t 0 d 10 l 50 x 200 y 100 alf 0 d_n 5 l_n 7 cc 3 tc 4 sc 5 user_md 0 d1 10 l1 50 cen_md 1 p0 (list x y) (setq s_d_list (list 1.6 2 2.5 3 4 5 6 8 10 12 14 16 20) (setq s_l_list (list 2 2.5 3 4
2、5 6 8 10 12 14 16 20 25 30 35 40 45 50) (defun initdlg1 () (if(not (new_dialog main_dlg id)(exit) (f_img screw_0 d:examplesld13-1scr0);初始化图像按钮(f_img screw_1 d:examplesld13-1scr1) (f_img screw_2 d:examplesld13-1scr2) (f_img screw_3 d:examplesld13-1scr3) ;定义图像按钮的动作是确定螺钉的种类并且选中螺钉种类表的相应行(action_tile scr
3、ew_0 (setq s_t 0)(set_tile s_type 0) (action_tile screw_1 (setq s_t 1)(set_tile s_type 1) (action_tile screw_2 (setq s_t 2)(set_tile s_type 2) (action_tile screw_3 (setq s_t 3)(set_tile s_type 3) (action_tile s_type (f_stype ) ; 定义螺钉种类列表的动作(action_tile accept (done_dialog 2) ; 定义继续按钮的动作(action_tile
4、cancel (done_dialog 0) ; 定义退出按钮的动作(mode_tile screw_0 2); 聚焦在图像按钮screw_0上(set_tile s_type 0); 设置螺钉种类表的第一行为被选中状态(setq sdt (start_dialog) ) ;定义初始化子对话框函数(defun initdlg2 (s_t) (if(not (new_dialog children_dlg id)(exit) (setq sldname (strcat d:examplesld14-13screw s_t); 拼接幻灯片文件的名字和路径(f_img id_img sldname)
5、; 将幻灯片文件显示到图像按钮上(c_img ccolor cc); 填充中心线图像按钮的颜色(c_img tcolor tc) (c_img scolor sc) (set_tile p_x (rtos x 2 2); 设置定位点x 编辑框的值(set_tile p_y (rtos y 2 2) (set_tile alf (rtos alf 2 2) (set_tile user_d (rtos d1 2 2) (set_tile user_l (rtos l1 2 2) (set_tile user_dim user_md); 设置自定义尺寸切换开关的值(f_user user_md);
6、调用自定义尺寸函数(set_tile cenline cen_md); 设置中心线切换开关的值(action_tile p_p (getdata)(done_dialog 3) ;定义光标拾取定位点按钮的动作(action_tile p_a (getdata)(done_dialog 4);定义光标拾取旋转角按钮的动作(action_tile ccolor (setq cc (c_c cc) (c_img $key cc);定义中心线图像按钮的动作是调用选择颜色对话框并将选择的颜色赋给该按钮名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -
7、 - - 名师精心整理 - - - - - - - 第 1 页,共 6 页 - - - - - - - - - (action_tile tcolor (setq tc(c_c tc)(c_img $key tc) (action_tile scolor (setq sc(c_c sc)(c_img $key sc) (action_tile user_dim (f_user (get_tile user_dim) (getdata);定义自定义尺寸切换开关的动作(action_tile accept (getdata)(done_dialog 1); 定义 “ OK ” 按钮的动作(acti
8、on_tile cancel (done_dialog -1); 定义 “ Cancel”按钮的动作(setq sdt (start_dialog) ) ;定义初始化图像函数(defun f_img (key sld) (start_image key) (slide_image 0 0 (dimx_tile key) (dimy_tile key) sld) (end_image) ) ;定义获取AutoCAD 标准颜色函数(defun c_c(color / ccc) (setq ccc(acad_colordlg color nil) (if (not ccc) (setq ccc co
9、lor) ccc ) ;定义初始化颜色图像按钮数(defun c_img (key color) (if color (progn (start_image key) (fill_image 0 0 (dimx_tile key) (dimy_tile key) color) (end_image) ) ) ) ;定义螺钉种类列表的动作函数(defun f_stype () (setq s_t (get_tile s_type); 将获取的螺钉种类赋给s_t (setq img_key (strcat screw_ s_t) ; 拼接图像按钮的关键字(mode_tile img_key 2);
10、 设置相应的图像按钮为聚焦状态) ;定义自定义尺寸函数(defun f_user (user_md) (if (= user_md 0) (progn ;自定义尺寸切换开关为关闭状态时(mode_tile user_d 1); 禁用自定义大径编辑框(mode_tile user_l 1); 禁用自定义长度编辑框(mode_tile s_d 0); 设置大径列表为可用状态(mode_tile s_l 0); 设置长度列表为可用状态名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页,
11、共 6 页 - - - - - - - - - (set_tile s_d d_n); 设置大径列表的被选行号(set_tile s_l l_n); 设置长度列表的被选行号) (progn ;自定义尺寸切换开关为打开状态时(mode_tile s_d 1); 禁用大径列表(mode_tile s_l 1); 禁用长度列表(mode_tile “ user_d” 0);设置自定义大径编辑框为可用状态(mode_tile user_l 0); 设置自定义长度编辑框为可用状态(set_tile user_d (rtos d1 2 2); 设置自定义大径编辑框的值(set_tile user_l (r
12、tos l1 2 2); 设置自定义长度编辑框的值) ) ) ;定义获取所有控件当前数据的函数(defun getdata () (setq l_n (get_tile s_l); 获取大径表被选项的序号(setq d_n (get_tile s_d); 获取长度表被选项的序号(setq x (atof (get_tile p_x); 获取 x编辑框的值(setq y (atof (get_tile p_y); 获取 y编辑框的值(setq alf (atof (get_tile alf); 获取 alf 编辑框的值(setq user_md (get_tile user_dim); 获取自定
13、义尺寸切换开关的值(setq d1 (atof (get_tile user_d); 获取自定义大径编辑框的值(setq l1 (atof (get_tile user_l); 获取自定义长度编辑框的值(setq cen_md (get_tile cenline); 获取中心线切换开关的值(setq p0 (list x y) ) (if ( sdt 1);while 循环开始(initdlg2 s_t);初始化子对话框(if (= sdt 3) (progn ;用光标确定定位点(initget 1);禁止空输入(setq p0 (getpoint 输入定位点 : ) (setq x (car
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022年Autolisp源程序 2022 Autolisp 源程序
限制150内