OpenDCL 是一款A(yù)utoCAD可視化對(duì)話框界面開(kāi)發(fā)的第三方工具，適用于 LISP/Vlisp開(kāi)發(fā)環(huán)境 ，使用簡(jiǎn)單，功能強(qiáng)大，使您通過(guò) LISP/Vlisp就能充分利用 Windows資源，制作出漂亮實(shí)用的對(duì)話框界面。

【界面說(shuō)明】

　　1、0penDCL的主窗口很簡(jiǎn)潔，與Visual Basic的界面非常相似

　　2、各菜單項(xiàng)的意義也很清楚，且大部分都在工具條和4個(gè)?？孔哟翱谥杏袑?duì)應(yīng)的功能

　　3、下拉菜單Pojec是最重要的菜單項(xiàng)，前6個(gè)菜單項(xiàng)，用來(lái)添加對(duì)話框窗體

　　4、OpenDCL可添加的6種窗體類(lèi)型是：模式窗體、非模式窗體、可?？看绑w、設(shè)置頁(yè)窗體、文件對(duì)話框窗體、調(diào)色板窗體

　　5、中間3個(gè)菜單項(xiàng)分別用來(lái)管理圖形資源文件夾、關(guān)聯(lián)AutoLISP文件、設(shè)置工程密碼

　　6、最后一個(gè)菜單項(xiàng)用來(lái)移除窗口，下拉菜單Tools的CopyEnents To C lipboard Pro ject和 Copy Enents To L isp F ile菜單項(xiàng)也非常重要，經(jīng)常會(huì)用到，主要是把OpenDCL自動(dòng)生成的Lisp語(yǔ)句復(fù)制到剪貼板或者相關(guān)聯(lián)的Lisp文件中

　　7、在OpenDCL窗體的左側(cè)，上面是控件工具箱（TooBox)，OpenDCL提供多達(dá)35種控件可供使用，下面是工程結(jié)構(gòu)樹(shù)窗口（Pro jectTree)

　　8、在ObjecDCL窗體的右側(cè)，上面是對(duì)話框控件屬性（Properties)和事件（Events）窗口，下面是控件上下次序顯示調(diào)整窗口（Z/Tab Oder)

　　9、ObjecDCL窗體的中間，就是擺放新創(chuàng)建的對(duì)話框的位置了，各工具欄和停靠欄位置是可以隨意托動(dòng)調(diào)整的

【使用方法】

　　(1)編寫(xiě)對(duì)話框驅(qū)動(dòng)程序框架。

　　在設(shè)計(jì)對(duì)話框之前,我們還是先創(chuàng)建一個(gè) AutoLisp框架程序,文件命名為 myInsert.lsp，還是存放到 D: \OpendclStudy文件夾中，現(xiàn)在改進(jìn)一下，我們假設(shè)所用AutoCAD為 2004 - 2008任意 32位版本。

　　(2)對(duì)話框的靜態(tài)屬性設(shè)置

　?、?設(shè)計(jì)對(duì)話框

　　啟動(dòng) OpenDCL軟件 ,進(jìn)入編輯環(huán)境。添加一個(gè)模式對(duì)話框 Form1，添加各個(gè)控件 ,各

　　個(gè)控件名稱、 屬性如表 1。然后以 myInsert.odcl為名保存在 D: \OpendclStudy文件夾中。

　?、?指定對(duì)話框的關(guān)聯(lián)程序

　　展開(kāi)工程結(jié)構(gòu)樹(shù)窗口中的 Aut oLis p File Name節(jié)點(diǎn)，雙擊圖標(biāo)，在彈出的打開(kāi)對(duì)話框中選擇我們已預(yù)備好的程序文件 myInsert.lsp。

　　(3)給對(duì)話框的事件編程

　　首先,把下拉菜單 T ools中的 Copy Enents To Clipboard Project和 Copy Enents To Lisp File菜單項(xiàng)都勾選上。

　?、?獲取或者設(shè)置控件方法、 屬性值

　?、?給控件添加事件函數(shù)

　?、?給 TbnView添加一個(gè)單擊事件，打開(kāi)文件選擇框選擇文件，再把文件名賦值給 TxbFileName文本框。

　　(4)運(yùn)行 myI nsert .

　　加載 myInsert.lsp。執(zhí)行 myInsert命令，改變復(fù)選框選項(xiàng)，點(diǎn)擊瀏覽對(duì)話框，選中一個(gè) DWG文件。