【文章內(nèi)容簡介】 ． 對象集合 Collection AutoCAD 的圖形對象和一些非圖形對象都以對象集合的形式存在，它們使用 Add方法增加新的對象，使用 Item 方法返回對應的子對象，使用 Count返回子對象的數(shù)目等。 Automation 技術初步 Dim acadApp As Object Dim acadDoc As Object Dim moSpace As Object Dim paSpace As Object 2. 將 Application 對象與 AutoCAD 程序鏈接 Application 對象是 VB 應用程序與 AutoCAD 之間鏈接的關鍵。將 Application 對象與 AutoCAD 鏈接是為 AutoCAD 開發(fā) ActiveX Automation 應用程序的第一步工作。 下面的代碼將 Application 對象與 AutoCAD 鏈接。如果成功不成功，利用信息框反饋錯誤信息。 第 16 頁 共 65 頁 Dim acadApp As AcadApplication Private Sub Form_Load() On Error Resume Next Set acadApp = GetObject(, ) If Err Then Set acadApp = CreateObject() If Err Then MsgBox (不能運行 AutoCAD,請檢查是否安裝了AutoCAD) Exit Sub End If End If = True End Sub 當 AutoCAD 運行時， GetObject 函數(shù)返回 Application 對象，否則發(fā)生一個錯誤，這時可以利用一個錯誤陷井 進行處理。 如果 AutoCAD 沒有運行， 則彈出對話框“ 不能運行 AutoCAD,請檢查是否安裝了 AutoCAD”。 3． Document 對象 AutoCAD 屬性的 Document 對象是進行圖形編輯的最高層對象。當?shù)玫紻ocument 對象后就可以使用它的方法與屬性。例如應用程序想對某些參數(shù)或部件進行修改并立即保存文件，可使用下面的代碼： If Not Then () End If 4. 圖形對象 圖形對象是 ModelSpace 或 PaperSpace 集合對象的子對象，因此在產(chǎn)生新的圖形對象之前，必須獲得一個 ModelSpace 或 PaperSpace 集合對象。第 17 頁 共 65 頁 這兩個對象可分別由 Document 對象的屬性 ModelSpace 和 PaperSpace。利用 ModelSpace 和 PaperSpace 的 Add[EntityName]方法，可以產(chǎn)生一個新的圖形對象，其 Item 方法返回一個圖形對象。 5. 編輯、查詢圖形對象 利用 ModelSpace集合對象和 PaperSpace集合對象可以查詢和編輯圖形對象。利用 Item方法可以獲得當前圖形中的某個 對象。可以用該對象的方法對對象進行編輯。 Automation 高級技術 Utility 對象主要負責交互輸入、部分幾何計算及類型轉(zhuǎn)換功能。 Utiltity 對象是 Document 對象的子對象。交互輸入一般都有一個提示字符串，可以輸入的類型比較齊全。標準類型 Integer、 Real、 String 和 Point。 點的輸入方式有兩種，一種是單獨的點輸入，使用 GetPoint 函數(shù)，當該函數(shù)第一參數(shù)即參考點不為空值時，它顯示一條從參考點到目標點的直線，若參數(shù)點為空，則不顯示該直線；另一種 方法是使用 GetCorner 函數(shù)，該函數(shù)返回參考點的對象點。 角度和距離輸入，它們必須有一個參考點。 有時候輸入的參數(shù)只能取有限的幾個值，使用關鍵字是比較合理的一種選擇。 AutoCAD 中的選擇集是十分重要的概念，它能夠?qū)ο筮M行成組的查詢與編輯。產(chǎn)生一個新的選擇集需要兩個步驟： (1)使用選擇集集合對象 SelectionSets 的 Add 方法，增加一個選擇集； (2)使用實體選擇方法增加選擇集的元素。選擇集增加元素的方法包括 Select， SelectAtPoint，SelectByPolygon 和 SelectOnScreen。 塊處理是 AutoCAD 中經(jīng)常使用的技術。塊包括兩種：一種塊是外部文件，使用塊引用的方法加入到圖形文件中；另一種是文件內(nèi)部塊，該塊的定義包含在當前圖形中。內(nèi)部塊比較容易處理，可以對塊進行編輯，也可以生成引第 18 頁 共 65 頁 用的塊。 4. 不同應用程序之間的焦點切換 實際上，利用 VB 開發(fā)的 Automation 程序是獨立于 AutoCAD 的，因此必須在兩個程序之間進行正確、有效的焦點切換。 VB 中的 AppActivate 過程能夠有效地實現(xiàn)不同應用程序之間的焦點切換，它的語句 格式為：AppActivate title。 其中 title 參數(shù)是被激活的應用程序的標題。 VB 對 AutoCAD 的仿真技術 計算機仿真技術的概念及意義 計算機仿真技術 是 利用計算機科學和技術的成果建立被仿真的系統(tǒng)的模型，并在某些實驗條件下對模型進行動態(tài)實驗的一門綜合性技術。它具有高效、安全、受環(huán)境條件的約束較少、可改變時間比例尺等優(yōu)點，已成為分析、設計、運行、評價、培訓系統(tǒng)的重要工具。 在計算方面，計算機計算精度高，重復性好，通用性強，價格便宜，速度快，已逐漸成為科學研究的只能怪要工具。當 實際科研中，為減少實驗次數(shù)，有目的地進行試驗，或系統(tǒng)試驗比較困難至無法實現(xiàn)時，仿真技術就成為一項有利的工具。同時由于仿真技術在應用上的特殊功效（安全、經(jīng)濟），仿真技術獲得了十分廣泛的應用，特別是在復雜機械系統(tǒng)的分析和設計的研究中已成為了不可缺少的工具?？梢灾貜屠孟到y(tǒng)靈活改變系統(tǒng)參數(shù)，通過仿真結果的分析反饋，逐步修正仿真模型，深化 系統(tǒng)內(nèi)在規(guī)律和外部聯(lián)系及其相互作用的了解，采用相應的控制和決策。 AutoCAD 的三維運動仿真技術 在機械傳動中 ,廣泛運用著各種機構 。對其進行運動分析、運動仿真 ,可 以分析機構運動結果的正確性、檢查運動是否有干涉情況等 ,大大提高設計效率 ,在機構的設計、改進及教學中有很大幫助?？偟膩碚f進行運動仿真其結果的意義有 :首先機構模型采用三維實體造型 ,仿真比二維線條直觀逼真。其次通過曲柄搖桿機構的運動仿真可以觀察鉸鏈四桿機構實體干涉、實際運動空間、奇異狀態(tài)等方面的內(nèi)容。再次運用運動仿真逆向設計方法 ,也可以對鉸鏈四桿機構的各個桿件進行速度、加速度和動力學分析。 AutoCAD 作為廣泛使用的工程繪圖軟件 ,不僅具有很強的圖形處理能力 ,而且提供了豐富的二次開發(fā)工具。 第 19 頁 共 65 頁 5 本設計的分析及解 決方案 本 設計的任務和要求 1 使用 vb 進行編程。 2 利用 AUTOCAD 進行二次開發(fā)。 3 查閱文獻 10 篇以上，其中外文資料至少一篇，并有 2021 漢字以上的外文資料。 4 開題報告：單獨裝訂，包括課題分析、文獻綜述、方案擬定、實施計劃等。 5 設計說明書：不少于 萬字。 6 程序、程序使用說明，要求程序界面友好。所有文字、圖形均需電腦編輯、繪制。 具體設計機構 參數(shù) ： 已知參數(shù)： LAB 、 LBC[( ~) LAB] 、 H[(~2) OE]、 L[( ~ ) LAB]、齒輪 半徑 R1=R5 [( ~ ) LAB]、β [35 ~ 50 o]、偏心輪半徑 R5′ [(~ )R5]、偏心距 EF[(~ ) R5′ ]、滾子半徑 RD [ ( ~ ) R5′ ]、行程速比系數(shù) K、 LCD [( ~)(L+|xE|)] 、主軸轉(zhuǎn)速 n1[25~200 r/min]。各參數(shù)以變量形式編入程序，原始參數(shù)在程序運行時輸入。 第 20 頁 共 65 頁 本設計的解決方案 解決方案總體實施計劃 課題給出的已知參數(shù)有： Lab 、 Lbc[( ～ ) Lab] 、 H[(～ 2) OE]、L[( ～ ) Lab]、齒輪半徑 R1=R5 [( ～ ) Lab]、β [35 ～ 50 o]、偏心輪半徑 R5[( ～ )R5]、偏心距 EF[(～ ) R5]、滾子半徑 RD [ ( ～ ) R5]、行程速比系數(shù) K、 Lcd [( ～ )(L+|xE|)] 、主軸轉(zhuǎn)速 n1[25～ 200 r/min]，我將會先根據(jù)這些參數(shù)進行 AutoCAD 建模，之后用 VB對其進行二次開發(fā)， 制作三維仿真運行軟件。在進行 AutoCAD 建模之前，先收集和整理運動分析要用到的數(shù)據(jù)和公式，并進行相關的計算。這些將是進行編程的依據(jù)。用 VB 進行二次開發(fā)時先確定流程圖，根據(jù)流程圖進行編程，調(diào) 試程序保證程序能夠運行，并且達到進行仿真的目的，這樣就完成了設計的主要內(nèi)容，之后再對程序界面 進行 優(yōu)化處理使之更加人性化。然后再請指導老師檢查，并指出其中的錯誤，最后再進行整理爭取達到滿意的效果。 具體步驟： （ 1）圖形及參數(shù)的分析； （ 2）編程。 圖形及參數(shù) 的 分析 圖 3 是本設計的機構尺寸圖： 圖 3 尺寸圖 第 21 頁 共 65 頁 圖形分析： 如圖 3 所示， 從總體上來看，該 平面 機構 由齒輪機構、凸輪機構和連桿機構組成。 1 自由度的計算： 自由度的計算公式： F=3n2PLPH 式中， n 為機構中活動構件的數(shù)目； PL 為低副數(shù)目； PH 為 高副 數(shù)目。 該平面 機構中有 7 活動構件， 9 個低副， 2 個 高副，代入自由度計算公式得： F=3 72 92=1 該平面機構的自由度為 1. 2 對該機構的具體分析： 經(jīng)對該平面機構的基本分析，把該平面機構命名為齒輪連桿機構。 主動件為齒輪 1，齒輪 1 帶動 4 連桿機構和齒輪 5 運動，最終造成桿 8的上下 運動。經(jīng)對 4 連桿機構的分析發(fā)現(xiàn)可把 OA 和 AB 轉(zhuǎn)化成在齒輪 5 上的一個以 A 點為圓心 AB 為半徑的偏心輪。 第 22 頁 共 65 頁 參數(shù)分析： 序號 參數(shù)名 含義 初值 類型 1 LOA OA 桿長 6 長度（ mm） 2 LAB AB 桿長 15 長度（ mm） 3 LBC BC 桿長 30 長度（ mm） 4 LCD CD 桿長 40 長度（ mm） 5 LEF EF 距離 5 長度（ mm） 6 LDF DF 距離 15 長度（ mm） 7 H 如圖所示 58 長度（ mm） 8 LX BC 到 Y 軸距離 5 長度 （ mm） 9 ω OA 旋轉(zhuǎn)角速度 3 角速 度（ r/min） 10 LDQ DQ 長 40 長度（ mm） 11 β 1 如圖所示 35 角 度（ 度 ） 12 LOE OE 距離 40 長度（ mm） 表 1：參數(shù)分析 第 23 頁 共 65 頁 編程過程 1 系統(tǒng)環(huán)境 ： 操作系統(tǒng)： Microsoft Windows 7 Ultimate 軟件： Microsoft Visual Basic 中文版 AutoCAD 2021 Simplified Chinese 2 本程序?qū)⒂?7 個窗口組成，其中包括程序 使用說明窗口、參數(shù)設置窗口、封面窗口、結束窗口、三維仿真窗口、運動分析窗口、主菜單窗口。 3 在 Microsoft Visual Basic 中文版 新建工程操作如圖 4： 圖 4 界面 在新建工程中點擊標準 EXE，后 VB 自動生成一個窗口 Form1。 （ 1） 把 Form1 命名為窗口封面。代碼如下： Option Explicit Dim i As Long Private Sub Form_Load() = 1 = AutoCAD 的二次開發(fā) 第 24 頁 共 65 頁 = 40 = vbRed = True = i = End Sub Private Sub Timer1_Timer() i = i + 80 i, ( * 2) / 2 If i = ( ) / 2 Then = False If = False Then End If End Sub 代碼分析：本 窗體 實現(xiàn)的 功能 是程序開始時的一段動畫，并從屏幕左端逐漸出現(xiàn)本設計