1、 過程裝備與控制工程專業過程裝備CAD技術上機作業班級： 姓名： 學號： 年 月第三題（1）;變量說明;p0是圓臉中心,p1、p2是眼睛中心，p3是鼻子中心，p4、p5是嘴的兩端點;R-圓臉半徑，r1-眼睛半徑，r2-鼻子半徑(initget 1)(setq p0 (getpoint "輸入圓臉中心點:")(initget(+ 1 2 4)(setq R(getreal "輸入圓臉半徑值:")(command "circle" p0 R)(setq r1 (/ R 4.0 )(setq r2 (/ R 9.0 )(setq p1 (p

2、olar p0 (/ pi 6.0) (/ R 2.0 )(command "circle" p1 r1)(setq p2 (polar p0 (/ (* pi 5.0) 6.0) (/ R 2.0 )(command "circle" p2 r1)(setq p3 (polar p0(-(/ pi 2.0) (/ R 4.0)(command "circle" p3 r2)(setq a (/ (* R 2.0) 3.0)(setq p4 (polar p0 (-(/ (* pi 3.0) 4.0) a)(setq p5 (pola

3、r p0 (-(/ pi 4.0) a)(command "arc" "c"p0 p4 p5)(setq p6 (polar p0 (/ pi 6.0) (/ R 4.0 )(setq p7 (polar p0 (/ (* pi 5.0) 6.0) (/ R 4.0 )(command "hatch" "solid" p6 "")(command "hatch" "solid" p7 "")第三題（2）;變量說明;plw-線寬(init

4、get 1)(setq p0 (getpoint "輸入左下角點:")(setq plw 1.0)(setq a 100)(setq b 150)(setq c (/ pi 2.0)(setq d (- (/ pi 2.0)(setq p1 (polar po c a)(setq p2 (polar p1 0 b)(setq p3 (polar p2 c a)(setq p4 (polar p3 0 b)(setq p5 (polar p4 d a)(setq p6 (polar p5 0 b)(setq p7 (polar p6 d a)(command "pl

5、ine" p0 "w" plew "" p1 p2 p3 "w" 0 ""p4 p5 p6 p7 "c")第三題（3）(initget 1)(setq p0 (getpoint "輸入起點位置:")(initget 1)(setq bb (getreal "輸入圓心連線與水平線夾角=")(setq aa (/ (* bb pi) 180.0)(initget(+ 1 2 4)(setq n (getint "圓的個數=")(i

6、nitget(+ 1 2 4)(setq r (getreal "圓的半徑=")(setq d (* r 2.0)(repeat n (command "circle" p0 r );end of command (setq p0 (polar p0 aa d) );end of repeat第五題(setq p0 '(100 100)(setq r 200)(setq p1 '(400 100)(command "circle" p0 r)(setq e1 (ssget "L")(command

7、"offset" 30 e1 p1 "")第六題;變量說明：p0為圖形中心，R為正五邊形外接圓半徑，R1為中心圓半徑，a為正五邊形邊長。(initget 1)(setq p0 (getpoint "指定p0點:")(initget (+ 1 2 4)(setq R (getreal "輸入正五邊形外接圓半徑:")(setq R1 (/ R 2.0)(command "circle" p0 R1 )(setq s1 (entlast)(setq d (- (* pi (/ 126.0 180)(s

8、etq p1 (polar p0 d R)(setq b (* pi (/ 36.0 180)(setq a (* 2.0 R (sin b)(setq p2 (polar p1 0 a)(setq p5 (polar p1 (* (/ 108.0 180) pi) a)(setq p3 (polar p2 (* (/ 72.0 180) pi) a)(setq p4 (polar p0 (/ pi 2.0) R)(command "pline" p1 p2 p3 p4 p5 "c")(setq s2 (entlast)(setq p6 (list(ca

9、r p1) (- (cadr p1) 50.0)(setq p7 (list(car p2) (- (cadr p2) 50.0)(command "mirror" s1 s2 "" p6 p7 "")第七、九題（1）DCL文件：lx1:dialog label="練習" spacer; children_fixed_width=true; :popup_list /*popup_list*/ label="彈出式列表" key="plist1" width=18; /*en

10、d of popup_list*/ spacer_1; :edit_box /*edbox_1*/ label="編 輯 框 " key="edbox" width=18; /*end of edbox_1*/ spacer_1; ok_cancel; /*end of dialog*/（2）驅動程序：(defun mainprogram();主程序 (setq plist_1 (list "200" "300" "400");彈出式列邊框中的內容 (setq plist_2 (list 200

11、 300 400);編輯框中的內容 (setq shuzhi "200") (liebiao);調用列表函數 );end of defun mainprogram (defun liebiao() (if (> (setq dlg_id1 (load_dialog "c:usersAdministratordesktopdialog_column1.dcl") 0);加載對話框文件 (progn ;progn1 (if (new_dialog "lx1" dlg_id1);顯示對話框 (progn ;progn2 以下初始化對話

12、框和描述控件活動 (start_list "plist1");初始化彈出式列表框 (mapcar 'add_list plist_1) (end_list) (set_tile "edbox" "200");初始化編輯框 (action_tile "plist1" "(plistaction)");列表框有動作時調用函數plistaction (start_dialog);激活對話框 );end of progn2 (alert"Unable to display dialog

13、 box") );end of new_dialog (unload_dialog dlg_id1);卸載對話框 );end of progn1 (alert "Unable to load dialog box") );end of load_dialog );end of defun liebiao(defun plistaction(/ a) (setq a (get_tile "plist1");得到列表的索引值 (setq a (atoi a) (setq shuzhi (nth a plist_2) (setq shuzhi (rt

14、os shuzhi 2 0);將相應的數值轉換成字符串 (set_tile "edbox" shuzhi);在編輯框中顯示數值);end of defun plistaction第十題（1） DCL文件：id0:dialog label="算屬相" spacer; children_fixed_width=true; :edit_box label="出生年份：" key="edbox1" width=28; :text label="(如1956)" :row/row1 :text label

15、="屬 相:" :column/column1 :text width=20; key="txt1" /end of column1 /end of low1 spacer; ok_only; spacer; /end of dialog（2） 驅動程序：(defun id0() (if (> (setq dlg_id(load_dialog"C:UsersAdministratorDesktopdialog_id0.dcl") 0);加載對話框文件 (progn;progn1 (if (new_dialog "id0

16、" dlg_id) (progn ;progn2 ;以下初始化對話框和描述控件活動 (action_tile "edbox1" "(edbox1action)") ;以上初始化對話框和描述控件活動 (start_dialog);激活對話框 );end of progn2(alert "Unable to display dialog box");end of new dialog (unload_dialog dlg_id);卸載對話框 );end of progn2 (alert "Unable to load

17、dialog box") );end of load dialog );end of defun(defun edbox1action() (setq idnum (get_tile "edbox1") (setq idnum (atoi idnum) (setq idnum (rem idnum 12) (set_tile "txt1" (cond(= idnum 0) "猴") (= idnum 1) "雞") (= idnum 2) "狗") (= idnum 3) "豬") (= idnum 4) "鼠") (= idnum 5) "牛") (= idnum 6) "虎") (= idnum 7) "兔") (= idnum 8) "龍") (= idnum 9) "蛇") (= idnum 10) &