CAD竞赛测试题22.doc

1.斜線區域面積為何?2.點A至點B距離為何?3.區域A周長為多少?4.區域B面積為多少?5.半圓球半徑為多少?6.圖形最外圍所圍成面積為多少?7.圖形最外圍所圍成的面積為多少?8.圓A半徑為多少?進階與系統規劃考題1希望插入BLOCK圖塊時，能出現交談框以供輸入屬性值，應該將哪一個變數打開?2希望R14繪製PLINE時，回復傳統的POLYLINE性質(具有Z值)，非LWPOLYLIN，應該設定哪一個變數，其值為何?3希望以指令方式執行SYTLE、LINETYPE、LAYER.等指令，應該如何執行?4剖面線定義時除了修改ACADISO.PAT還可以用什麼方式定義檔名?5要將下拉式功能表第三項(POP3)的第3個開關巨集語法應該如何寫?6AutoCAD除了DDMODIFY指令外還有哪一個可查詢到弧長與包含角，同時又可透過哪一個變數取的弧長資料AutoLISP 程式設計考題1將帶有逗號或空格的字串轉為串列，例如： AA,BB,CC,DD,EE = (AA BB CC DD EE) AA BB CC DD EE = (AA BB CC DD EE) 2取得LWPOLYLINE所有點座標，結合成一個串列，並於每一個頂點上畫一個點記號,如圖：將取得的點結合至PP_LST串列中：(139.292 185.475) (95.9699 150.003) (145.91 110.924) (159.749 153.61) (175.995 159.622) (193.444 133.77) (200.664 116.335) (263.24 120.544) (277.079 175.254) (306.562 159.622)題 目解 答1斜線區域面積為何?4423.79542點A至點B距離為何?105.00873區域A周長為多少?326.61784區域B面積為多少?2045.53335半圓球半徑為多少?28.28436圖形最外圍所圍成面積為多少?10721.49967圖形最外圍所圍成的面積為多少?7003.89868圓A半徑為多少?35進階與系統規劃考題1ATTDIA= 12PLINETYPE = 03在指令加入-如 -STYLE、-LINETYOE、-LAYER4同名定義：例如要設計名稱為AA的剖面線,其檔案名稱即為AA.PAT5關閉 ：$P3.3= 打開語法： $P3.3=6LENGTHEN(調整長度)直接碰選弧即可,PERIMETER可取得剛查詢完成的弧長AutoLISP 程式設計考題將帶有逗號或空格的字串轉為串列，例如：(defun c:test5_1() (setq txt (getstring t n輸入字串內容:) (initget S s D d) (setq typ (getkword n間格形式-空格(S)逗點(D):) (if (= TYP nil) (setq typ S) (if (= typ S) (setq typ ) (setq typ ,) (setq typ (strcase typ) (setq i 1 pp txt_lst () (repeat (strlen txt) (setq p (substr txt i 1) (if (/= p typ) (setq pp (strcat pp p) (setq txt_lst (cons pp txt_lst) pp ) ) (setq i (1+ i) ) (setq txt_lst (cons pp txt_lst) (setq txt_lst (reverse txt_lst) (princ (strcat n原字串內容: txt) (princ n轉換為串列:) (princ txt_lst) (prin1)輸入舊字串與新字串內容，選取圖面上的文字，如果符合條件則舊字串修改為新字串內容(defun c:test5_2() (setvar cmdecho 0) (setq ss (ssget X (0 . LWPOLYLINE) (setq i 0 pp_lst () (setvar pdmode 33) (repeat (sslength ss) (setq ssn (ssname ss i) (setq endata (entget ssn) (setq n 0) (repeat (length endata) (setq pp (nth n endata) (setq key (car pp) (if (= key 10) (progn (setq x (cadr pp) (setq y (caddr pp) (command point (list x y) (setq pp_lst (cons (