免费黄网站在线观看_成人午夜剧场免费观看完整版_多野结衣av一区_亚洲激情在线视频_国产乱码精品一区二区三区亚洲人 _国产成人精品三级_视频一区视频二区视频三区高_一区福利视频_国产成人精品午夜_蜜桃成人365av_国产精品美女久久久久久久_国产伦精品一区二区三区视频免费

您的位置:網站首頁 > CAD教程 > CAD教程文章

cad二次開發中VB或VBA的應用問題

時間:2008-08-14 11:51:47 來源:
1、如何在 VB 中連接 AutoCAD。
啟動 VB ,引用 AutoCAD 類型庫。操作步驟:從“工程”菜單中選擇“引用”選項,啟動“引用”對話框。在“引用”對話框中,選擇 AutoCAD 類型庫,然后單擊“確定”。

定義模塊級變量 AutoCAD 應用程序 (acadApp) 和當前的文檔 (acadDoc)。
如果 AutoCAD 正在運行,使用 GetObject 函數將檢索 AutoCAD Application 對象。如果 AutoCAD 沒有運行,使用 CreateObject 函數試圖創建一個 AutoCAD Application 對象。如果創建成功,會啟動 AutoCAD;如果失敗,則會發生錯誤。
同時運行多個 AutoCAD 任務時,GetObject 函數會返回 Windows 運行對象表中的第一個 AutoCAD 實例。
要顯示 AutoCAD 圖形窗口,需要將 AutoCAD 應用程序的 Visible 特性設置為 TRUE。
使用 acadDoc 變量引用當前的 AutoCAD 圖形。
示例:
Dim acadApp As AcadApplication
Dim acadDoc as AcadDocument
Sub ConnectToAcad()

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
End Sub

2、如何使 VB 開發的程序不依賴于 AutoCAD 的版本。
啟動 VB ,定義模塊級變量 AutoCAD 應用程序 (acadApp) 和當前的文檔 (acadDoc)。
如果 AutoCAD 正在運行,使用 GetObject 函數將檢索 AutoCAD Application 對象。如果 AutoCAD 沒有運行,使用 CreateObject 函數試圖創建一個 AutoCAD Application 對象。如果創建成功,會啟動 AutoCAD;如果失敗,則會發生錯誤。
同時運行多個 AutoCAD 任務時,GetObject 函數會返回 Windows 運行對象表中的第一個 AutoCAD 實例。
要顯示 AutoCAD 圖形窗口,需要將 AutoCAD 應用程序的 Visible 特性設置為 TRUE。
使用 acadDoc 變量引用當前的 AutoCAD 圖形。
示例:
Dim acadApp As Object
Dim acadDoc as Object
Sub ConnectToAcad()

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
End Sub
與第一個問題相比較,可以看出,不引用具體的類型庫以及使用通用的對象類型就可以達到通用性。

3、前期綁定和后期綁定
要創建一個使用前期綁定方式的對象變量,也就是說,在程序編譯時就完成綁定,則對象變量在聲明時應指定類 ID,如:Dim acadApp As AcadApplication。
使用 As Object 子句聲明對象變量,可以創建一個能包含任何類型對象引用的變量。不過,該變量訪問對象是后期綁定的,也就是說,綁定在程序運行時才進行,如:Dim acadApp As Object。
前期綁定的變量引用可以提供更好的性能,但該變量只能存放聲明中所指定的類的引用。
而后期綁定的變量引用可以提供更好的通用性。

4、依賴于版本和獨立于版本
如果 CreateObject 或 GetObject 函數使用的 ProgID 沒有附加版本號,那么是獨立于版本的,否則是依賴于版本的。例如,如果使用的是 CreateObject,則 CreateObject ("AutoCAD.Application") 是獨立于版本的,而 CreateObject ("AutoCAD.Application.15") 是依賴于版本的。

5、VB 代碼到 VBA 代碼的轉換
在 VBA 的 IDE 環境中,使用“導入文件”將要轉換的 VB 工程的模塊、類模塊以及窗體文件一一導入。接著將 VB 代碼中所有的當前的文檔 (acadDoc) 變量替換為 ThisDrawing,而AutoCAD 應用程序 (acadApp) 變量替換為 Application。同時刪除定義的 AutoCAD 應用程序 (acadApp) 和當前的文檔 (acadDoc) 變量,刪除與 AutoCAD 應用程序連接的代碼。注意:要轉換 VB 代碼的窗體部分,則窗體必須是用 UserForm 創建的。

6、圖形對象和非圖形對象
圖形對象(也稱為圖元、實體對象)是組成圖形的可見對象(例如直線、圓、光柵圖像等)。非圖形對象是指屬于圖形的一部分但不可見的(提示性的)對象,例如 Layers、 Linetypes、 DimStyles、 SelectionSets 等等。要創建這些對象,可使用 Add 方法。每一個對象都有用于特定目的的方法和特性,都有設置和檢索擴展數據以及刪除自己的方法。#p#分頁標題#e#

九色自拍视频在线观看| 伊人久久噜噜噜躁狠狠躁| 久久影院资源站| 激情五月综合婷婷| 亚洲欧美偷拍自拍| 99在线观看| 久久国产午夜精品理论片最新版本| www一区二区三区| 欧美成人tv| 欧洲亚洲国产日韩| 日韩av免费看网站| 日韩视频精品在线| www黄色av| 日本www高清视频| 真实国产乱子伦对白视频| 欧美日韩黄色一级片| 神马欧美一区二区| 古典武侠综合av第一页| 国产98色在线| 国内少妇毛片视频| 国产精品资源在线观看| 中文字幕亚洲综合久久| 爱福利视频一区二区| 欧美aaaaaa午夜精品| 伊人精品在线观看| 毛葺葺老太做受视频| 欧美一区二区麻豆红桃视频| 欧美日韩一区二区三区| 色999五月色| 久久aⅴ乱码一区二区三区| 国产亚洲一级高清| xxxx影院| 国产午夜精品一区二区三区欧美| 亚洲国产天堂网精品网站| 亚洲一区二区蜜桃| 在线观看不卡| 日韩视频一区在线| 二区三区精品| 丰满岳妇乱一区二区三区| 欧美激情图区| 国产一区美女在线| 欧美影院久久久| xxxcom在线观看| 亚洲电影av| 久久综合久久久| 亚洲天堂av资源在线观看| 97久久超碰福利国产精品…| 久久精品国产亚洲a∨麻豆| 国产xxx精品视频大全| 成人网在线免费观看| 精品久久福利| 日韩一级黄色大片| 日本亚洲天堂| 99免费精品在线| 久久精品丝袜高跟鞋| 日韩成人一级| 日韩成人黄色av| 日本中文字幕高清视频| 欧美性xxxxxxxxx| 精品视频在线观看一区| 久久精品亚洲精品国产欧美kt∨ | 国产日韩欧美大片| 狠狠做深爱婷婷综合一区| 日韩av在线看| 榴莲视频成人app| 国产精品自在线| 在线视频亚洲欧美中文| 国产欧美日韩中文字幕| 国产91欧美| 欧美日韩成人在线| 色免费在线视频| 韩国av一区二区三区| 成人性生交xxxxx网站| 日韩中文字幕不卡| 国产69精品久久久久9999apgf | 久久99热这里只有精品国产| 国产原创精品视频| 午夜成人免费视频| 亚洲欧洲无码一区二区三区| 日韩av三级在线| 伊人一区二区三区| av电影免费| 日韩精品在线免费观看视频| 在线免费观看视频一区| 欧美国产91| 久久中文久久字幕| 国产在线一区二区视频| 久久久久久18| 爱草tv视频在线观看992| 亚洲成人动漫精品| 欧美日韩不卡在线视频| 欧美日韩亚洲丝袜制服| 欧美国产一区二区三区激情无套| 欧美性一二三区| 伦一区二区三区中文字幕v亚洲| 成人av资源网| 91亚洲精品乱码久久久久久蜜桃| 久久久久一区二区三区四区| 欧美美女色图| 欧美日韩亚洲成人| 日韩在线成人| 天堂午夜影视日韩欧美一区二区| 欧美成人午夜激情在线| 欧美粗大gay| 在线播放精品一区二区三区| 欧美一区高清| 三上悠亚在线资源| 亚洲精品视频在线看| 手机看片福利日韩| 亚洲第一av网| 欧美男男tv网站在线播放| 欧美成人在线直播| www.av中文字幕| 99麻豆久久久国产精品免费| 精品自拍一区| 激情五月综合色婷婷一区二区| 国产精品日本| 先锋av资源在线| 欧美日韩久久不卡| 久久久综合色| 免费看的毛片| 欧美日韩成人综合在线一区二区| 真实原创一区二区影院| 国产一区视频在线播放| 中文无字幕一区二区三区| 污视频网站免费看| 777777777亚洲妇女| 天天综合精品| 一区二区精品免费视频| 99久久伊人久久99| www.久久.com| 日本久久91av| 亚洲日穴在线视频| 青青影院在线观看| 亚洲人成77777在线观看网| 国色天香久久精品国产一区| 国产96在线 | 亚洲| 中文字幕无线精品亚洲乱码一区 | 日本韩国视频一区二区| 成年人免费网站| 日本黄色一区二区| 欧美在线1区| 成人在线免费看| 亚洲精品国产精品久久清纯直播 | 欧美性猛片aaaaaaa做受| 久久精品夜夜夜夜久久| 国产精品一二三在| 中文字幕第21页| 久久久亚洲天堂| 一区二区三区日本久久久| 欧美国产精品va在线观看| 99久久国产综合精品麻豆| 国产精品99一区二区| 成人观看免费完整观看| 国产伊人精品在线| 国产精品久久久久福利| 夫妻av一区二区| 国产一区二区三区在线观看免费视频| 欧美久久一区| 九九精品久久| 中文字幕免费高| 91精品国产福利| 性欧美video另类hd尤物| 国产精品一二三在| 天天综合网91| 成人丝袜视频网| www成人免费观看网站| 精品99又大又爽又硬少妇毛片| 久久视频免费在线播放| 91久久夜色精品国产按摩| 夜色资源站国产www在线视频| 制服.丝袜.亚洲.另类.中文| 日本在线成人| 一级片在线播放| 亚洲三区在线| 97色在线视频| 欧美一级生活片| 久久精品人人做人人爽97| 天堂va在线| 国产精品自拍网| 日韩欧美在线网站| 成人国产精品视频| h片在线播放| 成人激情电影一区二区| 日韩一区二区三区免费看| 北条麻妃一区二区三区| 欧美天天综合| 原纱央莉成人av片| 精品国产乱码一区二区三区四区| 亚洲欧洲日本专区| 天天综合天天做天天综合| 欧美一区二区三区婷婷| 一级片免费看| 操bbb操bbb| 精品电影一区二区| 黄色另类av| 在线免费观看h| 久久这里只有精品8| 国产中文字幕91| 久久久99免费视频|