1、第第11章章 Auto CAD 二次開發(fā)軟件二次開發(fā)軟件 法蘭的繪制法蘭的繪制n11.1 開發(fā)目的及意義開發(fā)目的及意義n11.2 開發(fā)目標開發(fā)目標n11.3 開發(fā)工具開發(fā)工具n11.4 窗體開發(fā)窗體開發(fā)n11.5 主程序開發(fā)主程序開發(fā)n11.6 加載菜單加載菜單11.1 開發(fā)目的及意義開發(fā)目的及意義n通過AutoCAD具有開放的體系結(jié)構(gòu)，AutoCAD允許用戶和開發(fā)者在幾乎所有方面對其進行擴充和修改，同時可以利用多種開發(fā)語言，開發(fā)可以自動完成某一繪制任務(wù)的軟件，可大大提高繪制速度，改善工作效率 。nAutoCAD二次開發(fā)技術(shù)主要包括兩個方面：n一方面是對它的功能進行擴充和修改；n另一方面，是利

2、用開發(fā)工具，編寫能夠完成特殊任務(wù)的自動繪制軟件。 11.2 開發(fā)目標開發(fā)目標n本次軟件的開發(fā)目標是用計算機自動繪制一個常用的甲型平焊法蘭，法蘭的標準號為JB 4701-92，該法蘭的基本形狀及繪圖中需要用到的點見圖。 圖11-1 開發(fā)的法蘭示意圖11.2 開發(fā)目標開發(fā)目標要求所開發(fā)的軟件在圖形繪制要完成3個功能：一是繪制好法蘭所有輪廓線及中心線；二是繪制剖面線；三是標上所必需的數(shù)據(jù)。 11.3 開發(fā)工具開發(fā)工具n11.3.1 Visual LISP 根底根底n11.3.2 DCL基礎(chǔ)基礎(chǔ)11.3.1 Visual LISP 根底根底n（1裝置n Visual LISP無需單獨安裝，我們在安裝A

3、utoCAD2019時已經(jīng)和它捆綁按安裝在一起 。n（2啟動n 啟動Visual LISP有兩種方法：n1.從AutoCAD菜單中選擇“工具”“Auto Lisp” “Visual Lisp編輯器” ；n2.在AutoCAD命令行中輸入“vlisp”，啟動Visual Lisp編輯器。11.3.1 Visual LISP 根底根底n（3編輯n（4調(diào)試n 系統(tǒng)調(diào)試中最常見的錯誤是缺少擴號或有多余括號；其次是錯誤函數(shù)或命令，常常是繪圖命令輸錯，因為若函數(shù)錯誤，在編寫中可以根據(jù)顏色判斷；還有列表缺陷，被零除及函數(shù)被取消。 n 在程序開發(fā)的步驟上考慮到調(diào)試工作問題，以采用從下到上的程序編程工作為佳，結(jié)

4、合該方法，作者在課本中推薦了編程調(diào)試的步驟。11.3.2 DCL基礎(chǔ)基礎(chǔ)n（1定義定義n 對話框可以用對話框可以用DCL即對話框控制語言即對話框控制語言Dialog Control Language，簡稱，簡稱DCL來編寫。來編寫。n（2控件控件n 控件是控件是DCL中的主要組成部分，編寫對話框主要就是編中的主要組成部分，編寫對話框主要就是編寫各種控件，對各種控件的屬性進行定義，常見的控件主寫各種控件，對各種控件的屬性進行定義，常見的控件主要有以下幾種，分別是要有以下幾種，分別是Button按鈕）、按鈕）、Edit_box編編輯框）、輯框）、Image_button圖像按鈕）、圖像按鈕）、Li

5、st_box列表列表框）、框）、Popup_list可下拉列表框）、可下拉列表框）、Radio_button單選按鈕）、單選按鈕）、Slider滑動條）、滑動條）、Toggle復選框）、復選框）、Text_part文本控件的一部分）。文本控件的一部分）。11.3.2 DCL基礎(chǔ)基礎(chǔ)n（3程序編輯圖11-5 具體對話框 圖11-6 對話框邏輯位置示意圖 程序清單參見課本程序清單參見課本11.3.2 DCL基礎(chǔ)基礎(chǔ)n（4調(diào)試及加載n 用戶需根據(jù)系統(tǒng)提示的問題進行修改，直至在預(yù)覽中獲取正確的對話框。 圖11-7 對話框預(yù)覽調(diào)試程序清單參見課本程序清單參見課本11.4 窗體開發(fā)窗體開發(fā)n設(shè)計如圖： 圖

6、11-8 輸入窗體圖11-9 輸入窗體圖控件邏輯關(guān)系程序清單參見課本程序清單參見課本11.5 主程序開發(fā)主程序開發(fā)主程序主要包括三個部分：第一部分是從窗體獲取數(shù)據(jù)并加以處理確定各點坐標的程序；第二部分是根據(jù)窗體獲取的數(shù)據(jù)，進行法蘭繪制的程序；第三部分是全局調(diào)用程序。 程序清單參見課本程序清單參見課本11.6 加載菜單加載菜單n本次開發(fā)的菜單加載以后將集成于AutoCAD菜單欄上面，與AutoCAD常用菜單同樣使用，當鼠標移動菜單欄區(qū)域內(nèi)，它就會被激活。源代碼以及相關(guān)解釋 見課本。n在AutoCAD命令行中輸入menuload彈出如圖11-10的對話框 圖11-10 加載菜單對話框之一11.6 加載菜單加載菜單n加載fl.mnu，選擇“菜單欄”，插入菜單，如下圖 圖11-11 加載菜單對話框之二圖11-12 加載菜單對話框之三11.6 加載菜單加載菜單n此時AutoCA