電大機械CADCAM期未復習題6 考試小抄 【精編直接打印版】

《電大機械CADCAM期未復習題6 考試小抄 【精編直接打印版】》由會員分享，可在線閱讀，更多相關(guān)《電大機械CADCAM期未復習題6 考試小抄 【精編直接打印版】（6頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、機械CAD/CAM期未復習題 一、選擇題（每題 分） 1、以結(jié)構(gòu)不屬于線性結(jié)構(gòu)的是（ D ） A．線性表 B．數(shù)組織上 C．隊列 D．數(shù)組 2、在Autolisp環(huán)境下，（*10（- 7 3）的運行結(jié)果為（C）。 A. 370 B. 730 C. 40 D. -40 3、下述CAD/CAM過程的概念中，屬于CAM范疇的是（

2、A ）。 A.進行過程控制及數(shù)控加工 B.CAD C.工程分析 D.機床調(diào)整 4、下列不屬于圖形輸入設(shè)備的是（ D ） A. 圖形輸入板 B. 鼠標器 C. 鍵盤 D. 打印機 5、在計算機技術(shù)的相關(guān)領(lǐng)域，通常將數(shù)據(jù)的存儲結(jié)構(gòu)稱為數(shù)據(jù)的（ C ）。 A.邏輯結(jié)構(gòu) B.數(shù)據(jù)結(jié)構(gòu) C.物理結(jié)構(gòu)

3、 D.磁盤結(jié)構(gòu) 6、在各種數(shù)據(jù)結(jié)構(gòu)中，最簡單的方式為（D )。 A.樹 B.二叉樹 C.圖 D.線性表 7、線性表是具有n個（ C ）的有限序列 (n≠0)。 A．表元素 B. 字符 C. 數(shù)據(jù)元素 D. 數(shù)據(jù)項 8、在AutoCAD繪圖軟件的菜單文件中，圖標菜單的段標題為（A

4、）。 A. ***image B. ***pop0 C. ***popn D. ***buttonsn 9、下述CAD/CAM過程的概念中，屬于CAM范疇的是（ C ）。 A．優(yōu)化設(shè)計 B．CAE C．數(shù)控加工 D．幾何造型 10、在AutoCAD的對話框中，button、edit_box、text是最為常用的，它們所對應的構(gòu)件的中文名稱分別是 ：（D

5、）。 A.按鈕、編輯框、標簽 B.按鈕、列表框、文本 C.滾動條、編輯框、標簽 D.按鈕、編輯框、文本 11、數(shù)控機床坐標系統(tǒng)Z坐標軸用于表示機床的（C）。 　　 A.主進給方向 B.第二進給方向 　　 C.主軸軸線 D.切深方向 12、在派生式CAPP系統(tǒng)中利用分類編碼進行零件分類成組的主要依據(jù)是（ B ）。 　　 A.零件的材料 B.特

6、征矩陣 　　 C.典型工藝 D.零件的種類 13、在CIMS的制造自動化系統(tǒng)中，最先進的加工手段是（D）。 　　 A.數(shù)控機床 B.裝配流水線 　　 C.組合機床 D.FMS 14、CIMS所研究的對象是( D )。 A.產(chǎn)品 B.零件 C.典型樣件 D.一個車間或一個企業(yè)

7、15.現(xiàn)代機械工業(yè)中的所謂數(shù)控編程一般是指（ A ）程序的編制 A.零件 B.數(shù)控系統(tǒng) 　　 C.檢測系統(tǒng) D.刀具 16、在對話框構(gòu)件中，滾動條構(gòu)件為（ D ） A. button B.toggle 　　 C. image D.slider 17、在CIMS中，早期的制造資源計劃簡稱為（ C ） A. MAP1.0

8、 B. MAP2.0 　　 C. MRP-Ⅱ D. MRP-Ⅲ 18、（ / 20（* 5 2））的運行結(jié)果為（ B ） A. 0.5 B.2.0 　　 C.50 D. 200 19、線性表的順序存儲結(jié)構(gòu)適合于存儲的數(shù)據(jù)是（ D ） 。 A．設(shè)計結(jié)果數(shù)據(jù) B. 數(shù)據(jù)元數(shù)長度不同的數(shù)據(jù) C. 中間結(jié)果數(shù)據(jù)

9、 D. 工程手冊中的數(shù)表 20、AutoCAD繪圖軟件的菜單中常用的兩種菜單是（ A ） A．下拉菜單和圖標菜單 B. 下拉菜單和圖形輸入板菜單 C. 屏幕菜單和圖形輸入板菜單 D. 按紐菜單和圖標菜單 21、在數(shù)控機床CNC系統(tǒng)的組成中，核心部分是（ B ） A．輸入輸出設(shè)備 B. CNC裝置 C. PLC D. 伺服機構(gòu) 22、AutoCAD繪圖軟件中字符“^C”的作用是（ A ）

10、 A．終止正在進行的命令 B. 退格作用 C. 回車 D. 正交方式切換 23、已知一點Pt(setq Pt (1.0 2.0 3.0))，則運行(caddr Pt)的結(jié)果為（ C ） A. 1.0 B.2.0 　　 C.3.0 D. 6.0 24、在對話框構(gòu)件中，切換開關(guān)為（ B ） A. button

11、B.toggle 　　 C. image-button D.radio-button 25、數(shù)據(jù)元素之間存儲順序與邏輯順序一致的數(shù)據(jù)結(jié)構(gòu)為（ D )。 A.樹 B.二叉樹 C.圖 D.線性表 26、在Autolisp中，標準表的第一個元素可以是一個（ ）。 A.合法的Autolisp函數(shù) B.未定義的 Autolisp函數(shù) C. 整型量

12、 D.標準表 27、在AutoCAD繪圖軟件的菜單文件中，光標菜單的段標題為（B）。 A. screen B. pop0 C. popn D. buttonsn 28、在AutoCAD的對話框中，確定（OK）按紐對應的關(guān)鍵字為（ A ） A. accept B. OK C.Cancel D.

13、help 29、CAD/CAM是（ B ）的英文縮寫。 A. 計算機輔助設(shè)計和計算機自動制造 B. 計算機輔助設(shè)計和計算機輔助制造 C. 計算機輔助設(shè)計和計算機輔助管理 D.計算機輔助設(shè)計和計算機自動編程 30、FoxPro是（ B ）數(shù)據(jù)庫系統(tǒng) A.層次型 B.關(guān)系型 　　 C網(wǎng)絡(luò)型 D.以上都不是 31、AutoLISP語言與LISP語言不同之處

14、在于它是一種（B ）。 　 A.表處理語言　 B.人工智能繪圖語言 　 C.高級語言　 D.人工智能語言 32、在二叉樹的數(shù)據(jù)結(jié)構(gòu)中，每個節(jié)點至多有（ B ）個子樹。 　 A.一　 B.二　 C.三　 D.四 33、在AutoLISP中，( cadr (list x y z) ) 的運算結(jié)果為（ B ）。 　 A.x　 B.y 　 C. z　 D.( y z ) 34、在順序分枝法的并枝過程中，屬于中親密度的分枝組是（ C ）。 　 A.125和124　 B.12

15、3和1234　 C.1245和145　 D.1234和135 35、CIMS的管理信息系統(tǒng)的基本功能之一為（ D ）。 　A.工程設(shè)計 　B.質(zhì)量控制　 C.工藝規(guī)程編制　 D.生產(chǎn)管理　　 36\下述CAD/CAM過程的概念中，屬于CAD范疇的為（ D ）。 A．GT B．CAPP C．數(shù)控加工 D．幾何造型 二、填空題（每題 分） 1、CAD/CAM系統(tǒng)一般由 、 和

16、 三大部分組成。 工作人員 硬件 軟件 2、AotuCAD軟件常用的菜單有 菜單、 菜單和 菜單。 屏幕 光標 圖標 3、在AutoCAD的對話框構(gòu)件中，Button、edit_box、text是最為常用的，它們所對應的構(gòu)件的中文名稱分別是： 、 、 。 按鈕 編輯框 文本 4、數(shù)控機床主要由 、 、 、輔助裝置和編輯機及其附屬設(shè)備5部分組成。

17、 主機 控制裝置 驅(qū)動裝置 5、在成組技術(shù)中零件分類的主要方法有 、 和 。 視檢法 生產(chǎn)流程分析法 編碼分類法 6、CAD/CAPP/CAM集成系統(tǒng)的類型可分為 、 和 三種。 傳統(tǒng)型 改進型 數(shù)據(jù)驅(qū)動型 7、成組技術(shù)（GT）中對零件分類編碼的基本依據(jù)是： 、 、 等三大特征。 結(jié)構(gòu)特征 工藝特征 生產(chǎn)組織與計劃特征 8、AotuLISP

18、語言使用的數(shù)值型數(shù)據(jù)有 數(shù)和 數(shù)兩類。 整型 實型 9、零件分類方法中的編碼分類法可細分為 法、 法和 法。 特征碼位 碼位 特征位碼域 10、柔性制造系統(tǒng)是由 系統(tǒng)、 系統(tǒng)和 系統(tǒng)三大部分組成的。 加工 物流 信息 11、數(shù)控機床的控制系統(tǒng)分為開環(huán)控制系統(tǒng)、 控制系統(tǒng)和 控制系統(tǒng)三種。 半閉環(huán) 閉環(huán) 12、數(shù)據(jù)庫中數(shù)據(jù)模型一般分為三種，它們

19、是 型、 型和 型。 層次 網(wǎng)絡(luò) 關(guān)系 13、OPITZ分類編碼系統(tǒng)的四個輔助碼分別表示 、 、 和 。 主要尺寸 材料及熱處理 毛坯原始形狀 精度 14、對話框構(gòu)件“OK”的關(guān)鍵字為 。 accept 15、在AutoCAD繪圖軟件的菜單文件中，屏幕菜單的標題為 。 ***SCREEN 16、在AutoCAD繪圖軟件的菜單文件中，下拉菜單的標題為

20、 。 ***POPn 17、數(shù)據(jù)庫系統(tǒng)的體系結(jié)構(gòu)為 模式、 模式和 模式三種。 外 內(nèi) 概念 18、機械CAD專家系統(tǒng)求解策略包括 設(shè)計、 設(shè)計、 設(shè)計和 設(shè)計 參數(shù)方案 結(jié)構(gòu)方案 工藝參數(shù) 圖形 19、線性表的鏈式存儲結(jié)構(gòu)有以下兩種： 鏈表和 鏈表。 單向 雙向 20、FoxPro的運算類型有四種，它們是

21、 運算、 運算、 運算和 運算。 算術(shù) 字符串 比較 邏輯 21、CAD/CAM系統(tǒng)內(nèi)部的計算機網(wǎng)絡(luò)一般采用 網(wǎng)。 局域 22、開發(fā)一個產(chǎn)品一般需要方案認證、 、 、 、 和修改定型等工作。 總體設(shè)計 技術(shù)設(shè)計 詳細設(shè)計 試生產(chǎn) 23、從零件的組成結(jié)構(gòu)看，CAPP系統(tǒng)中零信息的描述方法主要包括 、 、和

22、 。 分類法 型面法 形體法 24、AotuLISP語言中，對話框的回調(diào)函數(shù)是： 。 action＿tile 25、“產(chǎn)品模型數(shù)據(jù)交換“的英文縮寫為 ，它是由 制定的。 STEP ISO 三、簡答題 1、CAD/CAM系統(tǒng)的四項基本功能是什么？ 答：①快速計算和生成圖形的能力; ②存貯大量程序、信息及快速檢索的能力； ③人機交互通訊的操作功能； ④輸入、輸出圖形及信息的能力。 2、簡述刪除單向鏈表的一個數(shù)據(jù)元素的過程 答：若刪

23、除表的第i個數(shù)據(jù)元素 ①需要先找到表的第i-1個結(jié)點； ②將第i-1個結(jié)點指針域中原指向第i個結(jié)點的指針指向第i+1個結(jié)點； ③然后釋放第i個結(jié)點所占儲存空間。 3、簡述向單向鏈表插入一個數(shù)據(jù)元素的過程 答：若在第i個數(shù)據(jù)元素位置前插入一個數(shù)據(jù)元素 ①需先為這個數(shù)據(jù)元素申請一個儲存空間，得到一個新結(jié)點； ②然后找到第i-1個結(jié)點，將第i-1個結(jié)點的指針指向這個新結(jié)點的地址； ③再將這個新結(jié)點的指針指向第i個結(jié)點的地址即可。 4、零件分類編碼的基本依據(jù)是什么？ 答：（1）結(jié)構(gòu)特征：零件的幾何形狀、尺寸大小、結(jié)構(gòu)功能和毛坯類型等。 （2）工藝特征：零件的毛坯形狀、加工精度、表

24、面粗糙度、加工方法、材料、定位夾緊方式，選用的機床類型等。 （3）生產(chǎn)組織與計劃特征：加工批量、制造資源狀況和工藝過程跨車間、工段及廠際協(xié)作等情況。 5、試指出FMS的四種主要的優(yōu)點？ 答：① 大大地提高了勞動生產(chǎn)率； ② 大大地縮短了生產(chǎn)周期； ③ 提高產(chǎn)品質(zhì)量； ④ 提高了機床利用率； ⑤ 減少了操作人員，還可實現(xiàn)無人化加工； ⑥ 降低成本； ⑦ 減少在制品數(shù)量和庫存數(shù)量。 6、簡述數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)類型的概念 答：數(shù)據(jù)：是描述客觀事物的數(shù)字、字符及所有能輸入到計算機中并可被計算機接受和處理的各種符號的集合。 數(shù)據(jù)結(jié)構(gòu)包括物理結(jié)構(gòu)和邏輯結(jié)構(gòu)。 數(shù)

25、據(jù)邏輯結(jié)構(gòu)僅考慮數(shù)據(jù)之間的邏輯關(guān)系，它獨立于數(shù)據(jù)的存儲介質(zhì)。通常所說的數(shù)據(jù)結(jié)構(gòu)一般指數(shù)據(jù)的邏輯結(jié)構(gòu)。 數(shù)據(jù)的物理結(jié)構(gòu)也稱存儲結(jié)構(gòu)，是數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機中的映象，它包括數(shù)據(jù)元數(shù)的映象和關(guān)系的映象。 數(shù)據(jù)類型程序設(shè)計語言確定變量所具有的種類。每種程序設(shè)計語言都提供一組基本的數(shù)據(jù)類型。不同的數(shù)據(jù)類型確定了數(shù)據(jù)元素在計算機中所占有位串的大小，也決定了可表示的數(shù)值范圍。 7、簡述CIMS的組成 答：CIMS由四個應用分系統(tǒng)和2個支撐系統(tǒng)組成。四個應用分系統(tǒng)是管理信息系統(tǒng)（MIS）、工程設(shè)計系統(tǒng)、質(zhì)量保證系統(tǒng)和制造自動化系統(tǒng)。2個支撐分系統(tǒng)是數(shù)據(jù)庫和通訊網(wǎng)絡(luò)。 8、簡述創(chuàng)成式

26、CAPP系統(tǒng)工作原理 答：創(chuàng)成式CAPP系統(tǒng)是根據(jù)輸入的或者直接從CAD系統(tǒng)獲得的零件信息，依靠系統(tǒng)的工藝數(shù)據(jù)和決策方式自動生成零件的工藝過程系統(tǒng)。 根據(jù)具體零件，系統(tǒng)能自動產(chǎn)生零件加工所需要的各個工序和加工順序，自動提取制造知識，自動完成機床選擇、工夾量具選擇和加工過程最優(yōu)化；通過工藝決策邏輯，可以模擬工藝設(shè)計人員的決策過程。 9、指出數(shù)據(jù)結(jié)構(gòu)中的二叉樹與一般樹的主要區(qū)別 答：① 一般樹至少要有1個結(jié)點，但二叉樹可以是空的； ②一般樹的每1個結(jié)點可以有任意多個子樹，但在二叉樹中，每個結(jié)點的子樹數(shù)不能超過2； ③ 一般樹中結(jié)點的子樹之間的次序不必區(qū)分，而二叉樹中的子樹有左右

27、之分，其次序不能顛倒。 10、簡述決策表的結(jié)構(gòu)和作用 答：決策表是用符號描述事件之間邏輯關(guān)系的一種表格，它用雙線或粗線鈄表格劃分成4個區(qū)域，其中左上角、方列出所有條件，左下方列出根據(jù)條件組合可能出現(xiàn)的所有動作，雙線右側(cè)為一個矩陣，其中上方為條件組合，下方為對應的決策動作。因此矩陣的每一列可看成是一條決策規(guī)則。 作用是用表格結(jié)構(gòu)來描述和處理“條件”和“動作”之間的關(guān)系和方法。 11、簡述增量坐標系統(tǒng)和絕對坐標系統(tǒng)。 答：數(shù)控加工的坐標系統(tǒng)分為增量坐標系統(tǒng)和絕對坐標系統(tǒng)。 增量坐標方式是指一個指令的基準點就是前一項操作的終點。每一個尺寸數(shù)據(jù)都用作系統(tǒng)的距離增量。 絕對坐標方式就

28、是系統(tǒng)中所有運動命令都涉及到某一個基準點，這個基準點叫原點或零點。給出的位置命令是對零點的絕對距離。 12、數(shù)據(jù)庫系統(tǒng)的原理是什么？ 答：數(shù)據(jù)庫系統(tǒng)包括數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)兩個部分。數(shù)據(jù)庫是存儲、關(guān)聯(lián)數(shù)據(jù)的集合。數(shù)據(jù)庫管理系統(tǒng)提供對數(shù)據(jù)的定義、建立、檢索、修改等操作，以及對數(shù)據(jù)的安全性、完整性、保密性的統(tǒng)一控制，它起著應用程序與數(shù)據(jù)庫之間的接口作用。 13、試述前序遍歷一個二叉樹的過程 答：遍歷的過程：若二叉樹不為空，先訪問根結(jié)點，然后以前序遍歷的方式遍歷根結(jié)點的左子樹，再以前序遍歷的方式遍歷根結(jié)點的右子樹，遍歷過程是遞歸的，直至遍歷所有結(jié)點為止。 14、數(shù)控后置處理程序是由哪幾個

29、部分組成的？ 答：由控制程序、輸入程序、輔助程序、運動處理程序、輸出程序和診斷程序組成。 15．簡述數(shù)控機床的特點 答：1）對加工對象適應性強 2）自動化程度高 3）加工精度高，加工質(zhì)量高 4）生產(chǎn)效率高 5）易于建立計算機通信網(wǎng)絡(luò) 四、閱讀理解題 1、讀懂以下Lisp程序，畫出該Lisp程序被正確加載并運行后在屏幕圖形區(qū)的顯示結(jié)果. （defun c: pj (/ pc1 pc2 r rr p1 p2 p3 p4) (setq pc1 (getpoint “\n 請給出平鍵最左點(鼠標取點

30、或坐標輸入):”)) (setq r (getreal “\n 輸入平鍵寬度:”)) (setq r r (＊ r 0.707)) (setq l (getreal “\n 輸入平鍵長度:” )) (setq al(/ pi 4)) (setq p1 (polar pc1 al rr)) (setq p2 (polar pc1 (＊ al -1) rr)) (setq pc2 (polar

31、pc1 0 l)) (setq p3 (polar p1 0 (- 1 r))) (setq p4 (polar p2 0 (- 1 r))) (command “arc” p1 pc1 p2) (command “arc” p3 pc2 p4) (command “l(fā)ine” p1 p3 “ ”) (command “l(fā)ine” p2 p4 “ ”) ) 參考答案： 2、讀懂以下DCL文件

32、，填畫出在AutoCAD編輯狀態(tài)下，以下DCL文件被正確加載執(zhí)行后，屏幕上所顯示的對話框內(nèi)容（填入圖1-1中） dcl_demo:dialog { label=“我的對話框” ：radio_button //定義單選按鈕 { key=“myradio”； label=“這是一個單選按鈕！”； } ：toggle //定義復選按鈕 { key=“mytoggle”； 圖1-1 對話框 label=“這是一個復選按鈕！”； } ：b

33、utton //定義按鈕 { key=“mybutton”； 這是一個按鈕！”； } Ok_cancel ； } 參考答案： 3、寫出AutoCAD編輯狀態(tài)中運行函數(shù)tx時，在屏幕圖形區(qū)和文本區(qū)的顯示結(jié)果 （defun c: tx（/ pc1 pc2 r1 r2） (setq pc1 (list 150.0 100.0)) (setq r1 30) (setq pc2 (polar pc1 （/ p

34、i 2） r1)) (setq r2 60) (princ pc1 pc2 r1 r2) (command “circle” pc1 r1) (command “circle” pc2 r2) 參考答案： 在文本行顯示出pc1 pc2 r1 r2的值：（150.0 100.0）、（150.0 130.0）、30.0、60.0；在圖形區(qū)顯示出以pc1 pc2為圓心，以r1 r2為半徑的兩個內(nèi)切圓（亦可用下圖表示）

35、 五、編程題 1、請用AutoLISP語言編程定義一個名為“圓管斷面”的自定義函數(shù)。說明：此圓管斷面函數(shù)的功能是自動畫了一個如圖B-1所示的圓管斷面圖，即：此函數(shù)執(zhí)行時，要求用戶鍵入圓管的內(nèi)徑、外徑以及圓管斷面中心點在屏幕上的位置或坐標值，然后自動給出該圓管斷面圖并給出剖面線。 B-1 圖管斷面 參考答案： （defun c: 圓管斷面（pc1 p1 p2 p3 p4 r1 r2 a1 a2 a3） (setq pc1(getpoint: ”\n請給出圓管斷面中心點

36、（鼠標取點或人材輸入：”)) (setq r1 (getreal”\n輸入內(nèi)孔半徑:”)) （setq r2 (getreal”\n輸入外孔半徑:”)) (setq a1(/ pi 2)) (setq a2(/ (* pi 3 ) 2)) (setq a3(+ r2 3.0)) (setq p1(polar pc1 0.0 a3)) (setq p2

37、(polar pc1 a1 a3)) (setq p3(polar pc1 pi a3)) (setq p4(polar pc1 a2 a3)) (command “circle” pc1 r1) (command “circle” pc1 r2) (command “hatch” “ansi31”

38、 “1.0” “0.0” “all” “”)) (command “l(fā)ine” p1 p3 “”) (command “l(fā)ine” p2 p4 “”) ） 2、用AutoLISP語言編寫一個名為“ring”的自定義函數(shù)。要求執(zhí)行此函數(shù)時使用鍵盤輸入法蘭盤三個同心圓的圓心坐標和每個圓的半徑值，并通過它們繪出如圖1-1所示的圖形。 圖1-1 法蘭盤 參考答案： (defun c：ring ( ) （setq r1 2.5 r2 4.0 r

39、3 5.5 r 1.0） (setq pc (getpoint “\n輸入圓心”)) (command “circle” pc r1 “circle” pc r2 “circle” pc r3) (command “circle”(polar pc 0 r2) r) (command “array”“L”“”“p”pc 8 360 “N”) ） 3、現(xiàn)有AutoCAD下的對話框文件hhh.dcl如下。 hhh：dialog { label=“熱處理方法” ：popu

40、p_list { key=“test_popup_box”； edit_width=“20”； label=“熱處理”； list=”淬火\n調(diào)質(zhì)\n回火\n正火\n退火”; } Ok_cancel ； } 請用AutoLISP語言編程定義一個名為“hhh”的熱處理方法自定義函數(shù)，“hhh“函數(shù)的功能是加載、驅(qū)動、顯示hhh.dcl所定義的對話框（即：此函數(shù)執(zhí)行時，對話框hhh就出現(xiàn)在AutoCAD的圖形屏幕上，供用戶進行下一步的操作） 參考答案： Hhh.dcl驅(qū)動程序：hhh.lsp (defun c：hhh (dcl

41、_id ) （setq dcl_id (load_dialog “hhh.dcl_id”)）(exit) (if ( not (new_dialog “\n輸入圓心”)) (action_tile“accept” “(done_dialog)”) (start_dialog) (unload_dialog dcl_id) (princ) ） 4.用AutoLISP語言編寫一個名為“tu”的自定義函數(shù)。要求執(zhí)行此函數(shù)時使用鍵盤輸入一個邊長為40的正方形左下角點的坐標，然后自動該正方形和它的內(nèi)切圓。 參考答案： （defun c: tu（p

42、c r p1 p2 p3 p4 x1 y1） (setq p1 (getpoint: ”\n請輸入正方形左下角點坐標（鼠標取點或人為輸入：”)) (setq p2(polar p1 0 40 )) (setq p3(polar p2 （/ pi 2） 40)) (setq p4(polar p3 pi 40)) (setq x1(car p1) y1 (cadr p1) r (/ 40 2)) (setq pc(list (+ x1 r ) (+ y1 r))) (command “circle” pc r) (command “l(fā)ine” p1 p2 p3 p4 p1”) 6