簡(jiǎn)單教程

1、ObjectDcl簡(jiǎn)單入門教程簡(jiǎn)單入門教程一.安裝、運(yùn)行安裝、運(yùn)行下載ObjectDcl并解壓后（或從光盤中）運(yùn)行setup.exe按提示安裝程序。安裝完畢后在D:ProgramFiles3rdDaySoftwareObjectDCL（看你的programfiles在哪個(gè)盤自己確定）運(yùn)行ObjectDcl.exe，我安裝時(shí)并沒(méi)有將程序鏈接加入開(kāi)始菜單中，因此須找出程序，自己運(yùn)行。如開(kāi)始菜單中有，則可以直接運(yùn)行。二.使用使用1添加模式對(duì)話

2、框添加模式對(duì)話框運(yùn)行程序后，如圖1，添加模式對(duì)話框。保存文件。注意將文件存于CAD搜索路徑，或者注意用LISP調(diào)用時(shí)使用全路徑。圖12指定指定lisp文件文件指定lisp文件是指在設(shè)計(jì)過(guò)程中，將這個(gè)對(duì)話框和控制它的程序文件關(guān)聯(lián)起來(lái)，以方便設(shè)計(jì)。展開(kāi)右端上方的VisualAutoLispFilename，雙擊圖標(biāo)，選擇程序文件。3添加控件添加控件如圖2，點(diǎn)擊左端空間按鈕后，在對(duì)話框中框出控件大小（此處以按鈕控件為例）。選擇控件可以拉動(dòng)夾點(diǎn)

3、改變控件的大小，并可用鼠標(biāo)拖動(dòng)控件改變其位置。(if(not(member“objectdcl2004.arx“(arx)))(arxload“objectdcl2004.arx““Fileobjectdcl2004.arxwasnotfind.“))2000及2002則加載objectdcl.arx注意：須將含有objectarx2004.arx文件的路徑加到CAD的搜索路徑里面。然后加載對(duì)話框文件，就是之前保存的文件，假設(shè)為samp

4、le1.odc:(ODcl_LoadProject“sample1“)顯示對(duì)話框：(Odcl_Fm_Showsample1_DclFm1)關(guān)于加載對(duì)話框和顯示對(duì)話框的函數(shù)可以在對(duì)話框的屬性中獲得，點(diǎn)擊對(duì)話框，在空白處點(diǎn)擊，不要選中任何控件，在屬性中找到ObjectBrowser，點(diǎn)擊后面的按鈕，在彈出的對(duì)話框中分別找到Loadproject和show，選中后在右邊的Definition中有函數(shù)的定義和說(shuō)明，找到彩色的函數(shù)定義部分，將它復(fù)

5、制到lisp程序中，根據(jù)提示修改參數(shù)。也可以點(diǎn)擊CopyToClipboard按鈕復(fù)制到剪切板。函數(shù)中，藍(lán)色部分表示函數(shù)名，綠色表示對(duì)象變量（控件或?qū)υ捒颍t色是參數(shù)，[optional]表示可選，[as…]表示參數(shù)類型。此處的對(duì)象變量是系統(tǒng)自動(dòng)命名的。它根據(jù)你存的文件名，對(duì)話框名和控件名來(lái)命名。對(duì)話框名和控件名在屬性中的name中修改。一般對(duì)話框名和文件名修改一次后就不要再變，因?yàn)閷?duì)象變量是根據(jù)它們命名的。如，此例中，文件名為sam

6、ple1.odc，對(duì)話框名為DclFm1，按鈕控件名為TextButton3（注意，這里的控件名不同于它的標(biāo)題，雖然它們默認(rèn)時(shí)是相同的，控件名為name，標(biāo)題為caption屬性），那么此對(duì)話框的變量名為sample1_DclFm1，按鈕控件變量為sample1_DclFm1_TextButton3。你也可以修改屬性中的VarName來(lái)指定變量名，不過(guò)一般不要這樣做，用系統(tǒng)自動(dòng)生成的就可以了（我個(gè)人認(rèn)為）。下面我們來(lái)給按鈕添加事件。在E

7、vents中選中OnClicked，點(diǎn)擊Addto.lspFile，然后回到VisualLisp編輯器，將會(huì)有一個(gè)提示，表示文件內(nèi)容已改變，是否需要重新加載，選擇是（這里注意，添加前要先保存文件），如果不是使用Vlisp編輯器，或沒(méi)有自動(dòng)探測(cè)功能，則須在添加前保存文件，添加事件后重新打開(kāi)此文件，你會(huì)發(fā)現(xiàn)文件的末尾增加了一個(gè)函數(shù)，這個(gè)函數(shù)就是這個(gè)事件的函數(shù)。這個(gè)函數(shù)應(yīng)該是這樣的：(defunc:DclFm1_TextButton3_OnC

8、licked()(Odcl_MessageBox“ToDo:codemustbeaddedtoTextButton3““Todo“))將函數(shù)中的內(nèi)容刪掉，加上：(Odcl_Fm_SetTitleBarTextsample1_DclFm1“ThisisasampleofObjectDcl”)至此，你可以運(yùn)行程序了，當(dāng)你點(diǎn)擊按鈕時(shí)，對(duì)話框的標(biāo)題就改為”ThisisasampleofObjectDcl”了。以下是程序文件完整清單：(defun

9、c:test()(if(not(member“objectdcl2004.arx“(arx)))(arxload“objectdcl2004.arx““Fileobjectdcl2004.arxwasnotfind.“))2000及2002則加載objectdcl.arx(ODcl_LoadProject“sample1“)個(gè)人使用經(jīng)驗(yàn)，次句得執(zhí)行兩次才行，就是需要再加一句一模一樣的語(yǔ)句在此。不知道是我的版本問(wèn)題還是什么問(wèn)題。(Odcl