AUTOLISP上機作業(yè)

1、過程裝備與控制工程專業(yè)過程裝備CAD技術(shù)上機作業(yè)班級:姓名:學(xué)號:第三題(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"圓的個數(shù)=")圓的半徑=")(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="練習(xí)"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)驅(qū)動程序：(defunmainprogram();主程序(setqplist_1(list"20

9、0""300""400");彈出式列邊框中的內(nèi)容(setqplist_2(list200300400);編輯框中的內(nèi)容(setqshuzhi"200")(liebiao);調(diào)用列表函數(shù));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)");列表框有動作時調(diào)用函數(shù)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將相應(yīng)的數(shù)值轉(zhuǎn)換成字符串在編輯框中顯示數(shù)值第十題(1)DCL文件：id0:dialoglabel="算屬相"spacer;children_fixed_width=true;:edit_boxlabel="出生年份："key="edbox1&qu