【正文】 置表格第 3 列 .Col = 2 .Row = 0 .Text = 單位 .Row = 1 .Text = 度 .Row = 2 .Text = mm(rad)/秒 .Row = 3 .Text = mm(rad)/平方秒 .Row = 4 .Text = .Row = 5 .Text = .Row = 6 .Text = 毫米 .Row = 7 第 31 頁 共 65 頁 .Text = 毫米 .Row = 8 .Text = 毫米 .Row = 9 .Text = 毫米 .Row = 10 .Text = 毫米 .Row = 11 .Text = 毫米 .Row = 12 .Text = 毫米 .Row = 13 .Text = 毫米 .Row = 14 .Text = 毫米 .Row = 15 .Text = 度 .Row = 16 .Text = 1/秒 End With 圖 5 本段代碼實(shí)現(xiàn)的是一個數(shù)據(jù)的讀取并顯示，從參數(shù)設(shè)置窗體中輸入的數(shù)據(jù)讀取數(shù)據(jù)，輸入到表格中。設(shè)置結(jié)果動態(tài)顯示表格 39。 運(yùn)動分析窗體的控件見表 2： 控件 名稱 控件 名稱 MSHFlexGrid1 MSHFlexGrid1 Label11 速度調(diào)節(jié) Command1 動畫播放 Label12 輸入轉(zhuǎn)角（度） Command2 保存結(jié)果 Label13 結(jié)果曲線顯示 Command3 主菜單 Label14 選擇顯示的數(shù)據(jù)結(jié)果 Command4 參數(shù)設(shè)置 Slider1 Slider1 Command6 結(jié)束 Text1 Text1 Command7 輸入 Frame1 Frame1 Combol Combol Frame2 Frame2 表 2 第 27 頁 共 65 頁 動態(tài)表格生成部分代碼如下： Private Sub Form_Load() AB桿角速度曲線 AB 桿角加速度曲線 CD 桿角速度曲線 CD 桿角加速度曲線 C 點(diǎn)速度曲線 C 點(diǎn)加速度曲線 C 點(diǎn)位置曲線 G 點(diǎn)速度曲線 G 點(diǎn)加速度曲線 G 點(diǎn)位置曲線 = AB 桿角速度曲線 39。 動畫速度調(diào)節(jié)。API 函數(shù)和常量幫助文件聲明 Private Sub Command1_Click() = True 第 25 頁 共 65 頁 = True 窗口參數(shù)設(shè)置 .Show 窗體識別 = End Sub Private Sub Command2_Click() 窗口運(yùn)動分析 .Show End Sub Private Sub Command3_Click() 窗口三維仿真 .Show End Sub Private Sub Command4_Click() 窗口結(jié)束 .Show Unload Me End Sub Private Sub Command5_Click() 程序使用說明 .Show End Sub Private Sub Form_Load() 第 26 頁 共 65 頁 = True = False = False End Sub Private Sub UpDown1_Change() End Sub 代碼分析：本窗體是各個窗體之間的中轉(zhuǎn)站，通過點(diǎn) 擊到達(dá)各個窗體之間的按鈕而調(diào)用其他窗體。 （ 1） 把 Form1 命名為窗口封面。 主動件為齒輪 1，齒輪 1 帶動 4 連桿機(jī)構(gòu)和齒輪 5 運(yùn)動，最終造成桿 8的上下 運(yùn)動。 具體步驟： （ 1）圖形及參數(shù)的分析； （ 2）編程。在進(jìn)行 AutoCAD 建模之前，先收集和整理運(yùn)動分析要用到的數(shù)據(jù)和公式，并進(jìn)行相關(guān)的計算。所有文字、圖形均需電腦編輯、繪制。 3 查閱文獻(xiàn) 10 篇以上，其中外文資料至少一篇，并有 2021 漢字以上的外文資料。再次運(yùn)用運(yùn)動仿真逆向設(shè)計方法 ,也可以對鉸鏈四桿機(jī)構(gòu)的各個桿件進(jìn)行速度、加速度和動力學(xué)分析。 AutoCAD 的三維運(yùn)動仿真技術(shù) 在機(jī)械傳動中 ,廣泛運(yùn)用著各種機(jī)構(gòu) 。 在計算方面，計算機(jī)計算精度高，重復(fù)性好，通用性強(qiáng)，價格便宜，速度快，已逐漸成為科學(xué)研究的只能怪要工具。 VB 中的 AppActivate 過程能夠有效地實(shí)現(xiàn)不同應(yīng)用程序之間的焦點(diǎn)切換，它的語句 格式為：AppActivate title。 塊處理是 AutoCAD 中經(jīng)常使用的技術(shù)。 有時候輸入的參數(shù)只能取有限的幾個值，使用關(guān)鍵字是比較合理的一種選擇。交互輸入一般都有一個提示字符串，可以輸入的類型比較齊全。利用 Item方法可以獲得當(dāng)前圖形中的某個 對象。例如應(yīng)用程序想對某些參數(shù)或部件進(jìn)行修改并立即保存文件，可使用下面的代碼： If Not Then () End If 4. 圖形對象 圖形對象是 ModelSpace 或 PaperSpace 集合對象的子對象，因此在產(chǎn)生新的圖形對象之前，必須獲得一個 ModelSpace 或 PaperSpace 集合對象。 第 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 (不能運(yùn)行 AutoCAD,請檢查是否安裝了AutoCAD) Exit Sub End If End If = True End Sub 當(dāng) AutoCAD 運(yùn)行時， GetObject 函數(shù)返回 Application 對象，否則發(fā)生一個錯誤，這時可以利用一個錯誤陷井 進(jìn)行處理。 Automation 技術(shù)初步 Dim acadApp As Object Dim acadDoc As Object Dim moSpace As Object Dim paSpace As Object 2. 將 Application 對象與 AutoCAD 程序鏈接 Application 對象是 VB 應(yīng)用程序與 AutoCAD 之間鏈接的關(guān)鍵。它的屬性包括文件設(shè)置、性能設(shè)置、顯示設(shè)置、打印設(shè)置和兼容性等許多方面。產(chǎn)生一個新的非繪圖對象可以用它們對應(yīng)父類的 Add 方法。 圖形對象的編輯可以通過圖形對象自身的方法實(shí)現(xiàn)。 另外管理 AutoCAD 系統(tǒng)變量的兩個方法也屬于 Document 對象，即獲得系統(tǒng)變量當(dāng)前值 GetVariable 和設(shè)置當(dāng)前系統(tǒng)變量 SetVariable。 如果應(yīng)用程序想關(guān)閉 AutoCAD，可調(diào)用 Quit 方法。 為了使用 AutoCAD 的 Automation 對象，必須首先在 Visual Basic 中引用該對象類型庫 ，方法是： 選擇“項目”中的“添加引用”菜單。 AutoCAD R14 新增的 Active Automation 技術(shù)為 AutoCAD 的二次開發(fā)提供了新的途徑。對象包含了一些外部接口，它們被稱為方法與屬性。Automation 技術(shù)允許一個應(yīng)用程序操縱在另一個應(yīng)用程序中實(shí)現(xiàn)的對象，從而可以被操縱。通過設(shè)置鏈接控件的如下屬性值來建立和 AutoCAD 的鏈接關(guān)系。兩個應(yīng)用程序之間進(jìn)行動態(tài)數(shù)據(jù)交換，實(shí)際上是在它們之間建立了一條數(shù)據(jù)通 道，在一個對話中，客戶是主動的，服務(wù)器響應(yīng)客戶的要求。由于 AutoCAD R14 以前的版本 提供的二次開發(fā)工具 AutoLISP 比較繁瑣，限制了 AutoCAD 的二次開發(fā)。 8．多個應(yīng)用向?qū)? VB提供了多種向?qū)鐟?yīng)用向?qū)?、安裝向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)ㄟ^它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用 。 4．結(jié)構(gòu)化設(shè)計語言 VB具有豐富 數(shù)據(jù)類型是種符合結(jié)構(gòu)化設(shè)計思想語言而且簡單易學(xué) 。 2．事件驅(qū)動 在 Windows 環(huán)境下是以事件驅(qū) 動方式運(yùn)行每個對象的都能響應(yīng)多個區(qū)別事件，每個事件都能驅(qū)動段代碼事件過程，該代碼決定了對象功能。 2021Visual 2021。 1998企業(yè)真正高效 的源泉 —— Visual Basic 。所以，微軟在 1992年推出了新版本Visual Basic 。如果你想緊跟微軟，永遠(yuǎn)在最新的技術(shù)上最快速地開發(fā)，你就應(yīng)該選擇 Visual Basic。 VB 的發(fā)展歷史 Visual Basic 從 1991 年誕生以來，現(xiàn)在已經(jīng) 20 年了。 Visual 意為可視的、可見的，指的是開發(fā)像 Windows 操作系統(tǒng)的圖形用戶界面（ Graphic User Interface, GUI）的方法，它與其他編程軟件不同的是不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立好的對象拖放到屏幕上相應(yīng)的位置即可。隨著 AutoCAD 應(yīng)用的日益普及，在其上進(jìn)行的二次開發(fā)的工具也不斷更新，從早期的 AutoLISP， ADS， DCI到現(xiàn)在流行的 VisualLisp、 Object ARX、 VB 和 VBA 等，均可十分方便的進(jìn)行 CAD二次開發(fā)。 而學(xué)校里教學(xué)、培訓(xùn)中所用的一般都是 AutoCAD Simplified 版本。 在不同的行業(yè)中。 工業(yè)制圖：精密零件、模具、設(shè)備等。 （ 7） 網(wǎng)絡(luò)功能 可將圖形在 網(wǎng)絡(luò)上發(fā)布，或是通過網(wǎng)絡(luò)訪問 AutoCAD 資源。 （ 3） 標(biāo)注尺寸 可以創(chuàng)建多種類型尺寸，標(biāo)注外觀可以自行設(shè)定。第 5 頁 共 65 頁 繪圖輔助工具。 將慣用的 AutoCAD 命令和熟悉的用戶界面與更新的設(shè)計環(huán)境結(jié)合起來，使您能夠以前所未有的方式實(shí)現(xiàn)并探索構(gòu)想。使用多個不同的插入點(diǎn) 。其優(yōu)勢在于 顯著地節(jié)省時間、得到更為協(xié)調(diào)一致的文檔并降低了風(fēng)險。 15. AutoCAD ： , AME 納入 AutoCAD 之中。 第 4 頁 共 65 頁 11. AutoCAD R(Release)： ,出現(xiàn)了狀態(tài)行 下拉式菜單 . 至此 , AutoCAD 開始在國外加密銷售。 7. AutoCAD ： 1985年出版 ,出現(xiàn)了 Screen Menu,命令不需要背 ,Autolisp 初具雛形 ,二張 360K 軟盤。 3. AutoCAD ： ,具備文字對齊及顏色定義功能 ,圖形輸出功能。同時，由于該系統(tǒng)的開放性。 70 年代，小型計算機(jī)費(fèi)用下降，美國工業(yè) 界才開始廣泛使用交互式繪圖系統(tǒng)。 (4)可以進(jìn)行多種圖形格式的轉(zhuǎn)換，具有較強(qiáng)的數(shù)據(jù)交換能力。 AutoCAD 具有 廣泛的適應(yīng)性，它可以在各種操作系統(tǒng)支持的微型計算機(jī)和工作站上運(yùn)行，并支持分辨率由 320200 到 20481024 的各種圖形顯示設(shè)備 40 多種，以及數(shù)字儀和鼠標(biāo)器 30 多種，繪圖儀和打印機(jī)數(shù)十種，這就為 AutoCAD 的普及創(chuàng)造了條件。 AutoCAD 是計算機(jī)輔助設(shè)計工具的一種，它 是由美國 Autodesk 歐特克公司于二十世紀(jì)八十年代初為微機(jī)上應(yīng)用 CAD 技術(shù)（ Computer Aided Design，計算機(jī)輔助設(shè)計）而開發(fā)的繪圖程序軟件包，經(jīng)過不斷的完善，現(xiàn)已經(jīng)成為國際上廣為流行的繪圖工 具。 本設(shè)計用 對 AutoCAD 2021 進(jìn)行 二次開發(fā) ， 將 AutoCAD2021 窗口 當(dāng)成 VB程序中的 一個圖形窗口 ,以平面機(jī)構(gòu) 三輪式齒輪連桿機(jī)構(gòu)為例 ,根據(jù)機(jī)構(gòu)參數(shù)對其運(yùn)動進(jìn)行動態(tài)演示 ,并分析該機(jī)構(gòu)的運(yùn)動特性。我國高校已經(jīng)把 VB列入 高等教育 教學(xué)計劃。 AutoCAD 及其圖形格式已經(jīng)成為一種事實(shí)上的國 際工業(yè)標(biāo)準(zhǔn)。第 1 頁 共 65 頁 1 引言 AutoCAD 工程圖形處理軟件，自 1982 年由美國 Autodesk 公司開發(fā)面世以來，以其完善的繪圖功能、良好的用戶界面、易學(xué)易用的特點(diǎn)，受到了廣大工程技術(shù)人員的普遍歡迎目前遍布 150 個國家和地區(qū)。其通用性使得它在機(jī)械、電子、航空、輪船、建筑、服裝等領(lǐng)域得到了極為廣泛的應(yīng)用 ，是 CAD工業(yè)的旗幟產(chǎn)品。全世界近 千萬的專業(yè)和非專業(yè)程序設(shè)計人員正在用 VB 開發(fā)各種類型的軟件。用 VB 進(jìn)行 AutoCAD 二次開