AUTOLISP上机作业

1、过程装备与控制工程专业过程装备CAD技术上机作业班级:姓名:学号:第三题(1);变量说明p5 是嘴的两端点;p0是圆脸中心,p1、p2是眼睛中心，p3是鼻子中心，p4、;R-圆脸半径，r1-眼睛半径，r2-鼻子半径(initget1)(setqp0(getpoint"输入圆脸中心点:")(initget(+124)(setqR(getreal"输入圆脸半径值:")(command"circle"p0R)(setqr1(/R)(setqr2(/R)(setqp1(polarp0(/pi(/R)(command"circle&q

2、uot;p1r1)(setqp2(polarp0(/(*pi(/R)(command"circle"p2r1)(setqp3(polarp0(-(/pi)(/R)(command"circle"p3r2)(setqa(/(*R)(setqp4(polarp0(-(/(*pi)a)(setqp5(polarp0(-(/pi)a)(command"arc""c"p0p4p5)(setqp6(polarp0(/pi(/R)(setqp7(polarp0(/(*pi(/R)(command"hatch"

3、"solid"p6"")(command"hatch""solid"p7"")第三题(2)；变量说明;plw-线宽(initget1)(setqp0(getpoint"输入左下角点：")(setqplw(setqa100)(setqb150)(setqc(/pi)(setqd(-(/pi)(setqpl(polarpoca)(setqp2(polarp10b)(setqp3(polarp2ca)(setqp4(polarp30b)(setqp5(polarp4da)(setq

4、p6(polarp50b)(setqp7(polarp6da)(command"pline"p0"w"plew""plp2p3"w"0""p4p5p6p7"c")第三题(3)(initget1)(setqp0(getpoint"输入起点位置：")=")(initget1)(setqbb(getreal"输入圆心连线与水平线夹角(setqaa(/(*bbpi)(initget(+124)(setqn(getint"(initge

5、t(+124)(setqr(getreal"圆的个数=")圆的半径=")(setqd(*r)(repeatn(command"circle"p0r);endofcommand(setqp0(polarp0aad);endofrepeat第五题(setqp0'(100100)(setqr200)(setqpl'(400100)(command"circle"p0r)(setqe1(ssget"L")(command"offset"30e1p1"")第六

6、题a为正五边形；变量说明：p0为图形中心，R为正五边形外接圆半径，R1为中心圆半径,边长。(initget1)(setqp0(getpoint"指定p0点:")(initget(+124)(setqR(getreal"输入正五边形外接圆半径:")(setqR1(/R)(command"circle"p0R1)(setqs1(entlast)(setqd(-(*pi(/180)(setqp1(polarp0dR)(setqb(*pi(/180)(setqa(*R(sinb)(setqp2(polarp10a)(setqp5(polarp

7、1(*(/180)pi)a)(setqp3(polarp2(*(/180)pi)a)(setqp4(polarp0(/piR)(command"pline"p1p2p3p4p5"c")(setqs2(entlast)(setqp6(list(carp1)(-(cadrp1)(setqp7(list(carp2)(-(cadrp2)(command"mirror"s1s2""p6p7"")第七、九题(1)DCL文件：lx1:dialoglabel="练习"spacer;chil

8、dren_fixed_width=true;:popup_list/*popup_list*/label="弹出式列表"key="plist1"width=18;/*endofpopup_list*/spacer_1;:edit_box/*edbox_1*/label="编辑框key="edbox"width=18;/*endofedbox_1*/spacer_1;ok_cancel;/*endofdialog*/(2)驱动程序：(defunmainprogram();主程序(setqplist_1(list"20

9、0""300""400");弹出式列边框中的内容(setqplist_2(list200300400);编辑框中的内容(setqshuzhi"200")(liebiao);调用列表函数);endofdefunmainprogram(defunliebiao()(if(>(setqdlg_id1(load_dialog"c:usersAdministratordesktop")0);加载对话框文件(progn;progn1(if(new_dialog"lx1"dlg_id1);显示

10、对话框(progn;progn2以下初始化对话框和描述控件活动(start_list"plist1");初始化弹出式列表框(mapcar'add_listplist_1)(end_list)(set_tile"edbox""200");初始化编辑框(action_tile"plist1""(plistaction)");列表框有动作时调用函数plistaction(start_dialog);激活对话框);endofprogn2(alert"Unabletodisplaydia

11、logbox");endofnew_dialog(unload_dialogdlg_id1);卸载对话框);endofprogn1(alert"Unabletoloaddialogbox");endofload_dialog);endofdefunliebiao(defunplistaction(/a)得到列表的索引值(setqa(get_tile"plist1");(setqa(atoia)(setqshuzhi(nthaplist_2)(setqshuzhi(rtosshuzhi20);(set_tile"edbox"shuzhi););endofdefunplistaction将相应的数值转换成字符串在编辑框中显示数值第十题(1)DCL文件：id0:dialoglabel="算属相"spacer;children_fixed_width=true;:edit_boxlabel="出生年份："key="edbox1&qu