AutoCAD常見問題及技巧

64位版AutoCAD2012注冊機(jī)

• 類型：3D 制作大小：391KB語言：中文 評分：1.4
• 標(biāo)簽：

立即下載

問：有什么方式可以在AutoCAD啟動(dòng)的時(shí)候自動(dòng)加載VBA工程？

答：當(dāng)VBA加載時(shí)會(huì)在AutoCAD目錄下尋找一個(gè)名叫acad.dvb的工程。如果找到，就會(huì)自動(dòng)加載它。如果你想VBA和缺省工程在 AutoCAD啟動(dòng)的時(shí)候每次都加載，你需要在acad.rx文件中生成一個(gè)入?。VBA被設(shè)計(jì)成命令加載方式（在沒有激活一個(gè)VBA命令之前不占用任何 內(nèi)存和進(jìn)程）。為了總是加載VBA和acad.dvb工程，請?jiān)赼cad.rx文件中包含下列一行：

acadvba.arx

在AutoCAD 2000中支持嵌入工程，這樣當(dāng)你打開擁有嵌入工程的圖形文件時(shí)該工程就會(huì)自動(dòng)加載。所以定義嵌入工程也是一個(gè)很好的自動(dòng)加載VBA工程的辦法。

問：有辦法可以在AutoCAD啟動(dòng)時(shí)自動(dòng)運(yùn)行一個(gè)VBA例程或宏嗎？

答：當(dāng)然。你可以從AutoCAD的acad.lsp文件的啟動(dòng)功能中通過VBARUN的命令行版本運(yùn)行一個(gè)工程中的宏。首先，你需要準(zhǔn)備 acad.dvb文件以便自動(dòng)加載。以drawline.dvb作為例子，用VBALOAD命令彈出VBA IDE對話框。然后用VBA IDE保存為菜單命令保存此工程為新的名字acad.dvb。下一步，激活notepad.exe并且建立或添加下列行到acad.lsp文件中：

(defun S::STARTUP() (command "_-vbarun" "drawline"))

問： AutoCAD支持VBA多工程的打開嗎?

答：在2000中支持。但在14版中尚不支持。

問：我可以加密我的VBA模塊代碼嗎？

答：雖然VBA不支持可執(zhí)行文件的創(chuàng)建，但是它確實(shí)在一個(gè)工程的基礎(chǔ)上提供了口令保護(hù)工程窗體、類和模塊可見性的功能。你可以發(fā)現(xiàn)這個(gè)工程保護(hù)功能在VBA IDE菜單中。選擇 工具 > 工程屬性 > 保護(hù)。如下圖所示：

問：在VBA中如何在命令行上提示？

答：有一些方法允許在命令行提示輸入以獲取數(shù)據(jù)。這些方法以“GET”開頭。你可以發(fā)現(xiàn)決大多數(shù)的方法（如果不是全部的話）通過對象瀏覽器搜索 AutoCAD類型庫。啟動(dòng)VBA IDE。擊F2功能鍵或者從視圖菜單中選擇對象瀏覽器。?對象瀏覽器窗口中使用庫范圍下拉列表把缺省的<所有庫>改成AutoCAD。庫列表 下面的編輯列表框是用來搜索的。輸入GET到那個(gè)編輯列表框中并且敲回車鍵。包含“GET”的類和成員函數(shù)就會(huì)顯示在滾動(dòng)列表中。AcadUtility 的一些成員函數(shù)可以?命令行上提示用戶輸入。如下圖所示：

問：我怎樣從AutoCAD菜單中激活一個(gè)VBA例程？

答：你需要編輯菜單和添加VBARUN模塊子例程。首先確認(rèn)正確的VBA工程已經(jīng)加載。

問：我怎樣從AutoCAD菜單中啟動(dòng)一個(gè)VBA對話框（窗體）？

答：除了創(chuàng)建一個(gè)VBA窗體，你還需要?jiǎng)?chuàng)建一個(gè)VBA子例程來顯示這個(gè)窗體。而這個(gè)子例程需要用VBARUN命令激活。1. 啟動(dòng)VBA IDE；2. 從菜單中選擇 插入 > 用戶窗體（缺省名稱為UserForm1）；3. 添加合適的控件到你的窗體中； 4. 下一步，從菜單中選擇 插入 > 模塊；5. 輸入以下的代碼到缺省的Module1模塊中：Sub Foo() UserForm1.showEnd Sub6. 最后，編輯AutoCAD菜單調(diào)用以下命令來激活對話框： -VBARUN Module1.foo.

問：我已經(jīng)寫了一個(gè)VBA例程用ThisDrawing.Utility.GetPoint獲取一個(gè)點(diǎn)。當(dāng)我從一個(gè)VBA對話框中啟動(dòng)這個(gè)例程時(shí)，我可以在命令行上看到提示。但是我不能在AutoCAD屏幕上點(diǎn)取一個(gè)點(diǎn)。我作錯(cuò)了什么？

答：首先需要關(guān)閉對話框，然后才能從AutoCAD獲取數(shù)據(jù)。添加以下的代碼到ThisDrawing.Utility.GetPoint之前的任何地方以關(guān)閉對話框，然后你就可以獲得一個(gè)點(diǎn)了。

Me.Hide

問：有方法加載一個(gè)VBA工程而在加載后不顯示VBA IDE嗎？

答：如果你設(shè)置AutoCAD系統(tǒng)變量FILEDIA為0，或者在你加載一個(gè)工程的時(shí)候把<打開VBA編輯器>的開關(guān)關(guān)閉，你就不會(huì)?加載之后看到VBA IDE了。這是一個(gè)標(biāo)準(zhǔn)的AutoCAD轉(zhuǎn)換機(jī)制。

問：VBA和AutoLISP有何不同，兩者如何轉(zhuǎn)換？

答：如果你已經(jīng)熟知AutoLISP并且想學(xué)習(xí)VBA，通過把VBA和AutoLISP表達(dá)式聯(lián)系起來的方法就可以容易地做到。以下就是一個(gè)關(guān)于兩 種語言的比較。由于大量的AutoLISP代碼可以利用，轉(zhuǎn)換一個(gè)已有的AutoLISP代碼段為VBA遠(yuǎn)比重新編制VBA代碼來得容易。如果兩者的變量 名字保持一致，那么比較兩者的代碼也就變得容易了。

點(diǎn)：

在AutoLISP中，你用(setq)函數(shù)來設(shè)置一個(gè)點(diǎn)。下面這一行把點(diǎn)(0,0,0)分配給PT1變量。(0,0,0)代表這個(gè)點(diǎn)位置的x,y,z坐標(biāo)。

(setq PT1 (0 0 0))

在VBA中，這個(gè)操作需要更多的代碼行來完成：

Dim PT1(0 To 2) As Double

PT1(0) = 0#