【正文】 VB向 AutoCAD 命令行發(fā)送 AutoCAD 命令。自動(dòng)演示，畫出圖形 Dim i As Single 39。設(shè)置 picture2 結(jié)果曲線顯示圖片框 39。 運(yùn)動(dòng)分析窗體功能如下： 動(dòng)畫仿真演示以及曲線數(shù)據(jù)同步。 3 在 Microsoft Visual Basic 中文版 新建工程操作如圖 4： 圖 4 界面 在新建工程中點(diǎn)擊標(biāo)準(zhǔn) EXE，后 VB 自動(dòng)生成一個(gè)窗口 Form1。然后再請指導(dǎo)老師檢查，并指出其中的錯(cuò)誤，最后再進(jìn)行整理爭取達(dá)到滿意的效果。 6 程序、程序使用說明，要求程序界面友好。其次通過曲柄搖桿機(jī)構(gòu)的運(yùn)動(dòng)仿真可以觀察鉸鏈四桿機(jī)構(gòu)實(shí)體干涉、實(shí)際運(yùn)動(dòng)空間、奇異狀態(tài)等方面的內(nèi)容。它具有高效、安全、受環(huán)境條件的約束較少、可改變時(shí)間比例尺等優(yōu)點(diǎn)，已成為分析、設(shè)計(jì)、運(yùn)行、評價(jià)、培訓(xùn)系統(tǒng)的重要工具。選擇集增加元素的方法包括 Select， SelectAtPoint，SelectByPolygon 和 SelectOnScreen。 Utiltity 對象是 Document 對象的子對象。當(dāng)?shù)玫紻ocument 對象后就可以使用它的方法與屬性。 6． 對象集合 Collection AutoCAD 的圖形對象和一些非圖形對象都以對象集合的形式存在，它們使用 Add方法增加新的對象，使用 Item 方法返回對應(yīng)的子對象，使用 Count返回子對象的數(shù)目等。 4．非圖形對象 非圖形對象是指圖形中的不可見對象，包括 DimStyle， Layer， LineType，TextStyles， View， Viewport 和 SelectionSet 等。 Document 對象方法有文件的存儲(chǔ)與打開，文件輸入與輸出可使用 Export與 Import 方法，塊的磁盤存儲(chǔ)可使用 WBlocks 方法。具體對于用 VB開發(fā) AutoCAD R14 這一環(huán)節(jié)而言， Active Automation 技術(shù)使得 AutoCAD 被登陸一個(gè) VB 可以訪問的對象，用戶可以訪問 AutoCAD 所有的圖形對象和非圖形對象。只要服務(wù)器程序提供一定的接口，可以使任何對象實(shí) 現(xiàn)自動(dòng)化。 VB中能和其它 Windows 應(yīng)用程序建立 DDE 通道的鏈接控件有文本框、標(biāo)簽和圖片框。 4 基于 VB 的 AutoCAD的二次開發(fā) 第 11 頁 共 65 頁 VB 對 AutoCAD 開發(fā)的原理 AutoCAD 具有強(qiáng)大的圖形處理功能，可以說是當(dāng)今國內(nèi)外最為流行的計(jì)算機(jī)輔助繪圖程序，但為了更好地開發(fā)用戶定制系統(tǒng)就需要對 AutoCAD 進(jìn)行二次開發(fā)。 3．軟件 Software 集成式開發(fā) VB為編程提供了個(gè)集成開發(fā)環(huán)境，在這個(gè)環(huán)境中編程者可設(shè)計(jì)界面、編寫代碼、調(diào)試直至把應(yīng)用編譯成可在 Windows 中運(yùn)行的可執(zhí)行文件，并為它生成 安裝 VB 集成開發(fā)環(huán)境，為編程者提供了很大方便。 2021完美主義的 Visual Basic—— Visual Basic .NET 2021，能否再現(xiàn)輝煌 ？ 2021功能極強(qiáng)且最易用的 Visual Basic—— Visual 2021。 Visual Basic 的功能過于簡單，相對于Windows 的強(qiáng)大功能沒有發(fā)揮出來。 AllPurpose Symbolic Instruction Code ，其中文意思為 “ 初學(xué)者通用符號(hào)指令代碼 ” 。 Autodesk 公司自 AutoCAD 版至 AutoCAD 2021 的 短短十幾年間，就相繼推出了三代二次開發(fā)工具 。 第 6 頁 共 65 頁 廣泛應(yīng)用于 土木建筑、裝飾裝潢、城市規(guī)劃、園林設(shè)計(jì)、電子電路、機(jī)械設(shè)計(jì)、服裝鞋帽、航空航天、輕工化工等諸多領(lǐng)域。 （ 6） 三維繪圖 可 創(chuàng)建 3D 實(shí)體及表面模型，能對實(shí)體本身進(jìn)行編輯。 AutoCAD 的基本功能 （ 1） 平面繪圖功能 能以多種方式創(chuàng)建直線、圓、橢圓、多邊形、樣條曲線等基本圖形對象。選擇多種圖形的可 見性 。 14. AutoCAD ： ,采用 DOS 與 WINDOWS 兩種操作環(huán)境 ,出現(xiàn)了工具條。 6. AutoCAD ： ,盡管功能有所增強(qiáng)，但僅僅是一個(gè)用于二維繪圖的軟件。而當(dāng)時(shí)的 Autodesk 公司是一個(gè)僅有員工數(shù)人的小公司，其開發(fā)的 CAD 系統(tǒng)雖然功能有限，但因其可免費(fèi)拷貝，故在社會(huì)得以廣泛應(yīng)用。 (3)可以采用多種方式進(jìn)行二次開發(fā)或用戶定制。計(jì)算機(jī)輔助設(shè)計(jì)技術(shù)的引進(jìn)是近代工業(yè)史上的一次革命，它顯著的提高了制圖的速度和制圖的質(zhì)量，縮短了 新產(chǎn)品設(shè)計(jì)開發(fā)的時(shí)間。全世界近 千萬的專業(yè)和非專業(yè)程序設(shè)計(jì)人員正在用 VB 開發(fā)各種類型的軟件。第 1 頁 共 65 頁 1 引言 AutoCAD 工程圖形處理軟件，自 1982 年由美國 Autodesk 公司開發(fā)面世以來，以其完善的繪圖功能、良好的用戶界面、易學(xué)易用的特點(diǎn)，受到了廣大工程技術(shù)人員的普遍歡迎目前遍布 150 個(gè)國家和地區(qū)。我國高校已經(jīng)把 VB列入 高等教育 教學(xué)計(jì)劃。 AutoCAD 是計(jì)算機(jī)輔助設(shè)計(jì)工具的一種，它 是由美國 Autodesk 歐特克公司于二十世紀(jì)八十年代初為微機(jī)上應(yīng)用 CAD 技術(shù)（ Computer Aided Design，計(jì)算機(jī)輔助設(shè)計(jì)）而開發(fā)的繪圖程序軟件包，經(jīng)過不斷的完善，現(xiàn)已經(jīng)成為國際上廣為流行的繪圖工 具。 (4)可以進(jìn)行多種圖形格式的轉(zhuǎn)換，具有較強(qiáng)的數(shù)據(jù)交換能力。同時(shí)，由于該系統(tǒng)的開放性。 7. AutoCAD ： 1985年出版 ,出現(xiàn)了 Screen Menu,命令不需要背 ,Autolisp 初具雛形 ,二張 360K 軟盤。 15. AutoCAD ： , AME 納入 AutoCAD 之中。使用多個(gè)不同的插入點(diǎn) 。第 5 頁 共 65 頁 繪圖輔助工具。 （ 7） 網(wǎng)絡(luò)功能 可將圖形在 網(wǎng)絡(luò)上發(fā)布，或是通過網(wǎng)絡(luò)訪問 AutoCAD 資源。 在不同的行業(yè)中。隨著 AutoCAD 應(yīng)用的日益普及，在其上進(jìn)行的二次開發(fā)的工具也不斷更新，從早期的 AutoLISP， ADS， DCI到現(xiàn)在流行的 VisualLisp、 Object ARX、 VB 和 VBA 等，均可十分方便的進(jìn)行 CAD二次開發(fā)。 VB 的發(fā)展歷史 Visual Basic 從 1991 年誕生以來，現(xiàn)在已經(jīng) 20 年了。所以，微軟在 1992年推出了新版本Visual Basic 。 2021Visual 2021。 4．結(jié)構(gòu)化設(shè)計(jì)語言 VB具有豐富 數(shù)據(jù)類型是種符合結(jié)構(gòu)化設(shè)計(jì)思想語言而且簡單易學(xué) 。由于 AutoCAD R14 以前的版本 提供的二次開發(fā)工具 AutoLISP 比較繁瑣，限制了 AutoCAD 的二次開發(fā)。通過設(shè)置鏈接控件的如下屬性值來建立和 AutoCAD 的鏈接關(guān)系。對象包含了一些外部接口，它們被稱為方法與屬性。 為了使用 AutoCAD 的 Automation 對象，必須首先在 Visual Basic 中引用該對象類型庫 ，方法是： 選擇“項(xiàng)目”中的“添加引用”菜單。 另外管理 AutoCAD 系統(tǒng)變量的兩個(gè)方法也屬于 Document 對象，即獲得系統(tǒng)變量當(dāng)前值 GetVariable 和設(shè)置當(dāng)前系統(tǒng)變量 SetVariable。產(chǎn)生一個(gè)新的非繪圖對象可以用它們對應(yīng)父類的 Add 方法。 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)鍵。例如應(yīng)用程序想對某些參數(shù)或部件進(jìn)行修改并立即保存文件，可使用下面的代碼： If Not Then () End If 4. 圖形對象 圖形對象是 ModelSpace 或 PaperSpace 集合對象的子對象，因此在產(chǎn)生新的圖形對象之前，必須獲得一個(gè) ModelSpace 或 PaperSpace 集合對象。交互輸入一般都有一個(gè)提示字符串，可以輸入的類型比較齊全。 塊處理是 AutoCAD 中經(jīng)常使用的技術(shù)。 在計(jì)算方面，計(jì)算機(jī)計(jì)算精度高，重復(fù)性好，通用性強(qiáng)，價(jià)格便宜，速度快，已逐漸成為科學(xué)研究的只能怪要工具。再次運(yùn)用運(yùn)動(dòng)仿真逆向設(shè)計(jì)方法 ,也可以對鉸鏈四桿機(jī)構(gòu)的各個(gè)桿件進(jìn)行速度、加速度和動(dòng)力學(xué)分析。所有文字、圖形均需電腦編輯、繪制。 具體步驟： （ 1）圖形及參數(shù)的分析； （ 2）編程。 （ 1） 把 Form1 命名為窗口封面。 動(dòng)畫速度調(diào)節(jié)。設(shè)置結(jié)果動(dòng)態(tài)顯示表格 39。動(dòng)畫播放時(shí)曲柄 0 到 360 度轉(zhuǎn)動(dòng) Dim sTe As Single Dim X1, Y1, X2, Y2 As Single 39。 三維動(dòng)畫演示 三維仿真窗體的 控件及屬性如表 3： 控件 屬性 Command1 動(dòng)畫播放 Command2 參數(shù)設(shè)置 Command3 返回 Command4 退出 Label1 請輸入轉(zhuǎn)角 Label2 速度控制 Slider1 Slider1 Text1 Text1 表 3 三維仿真窗體如圖 6： 圖 6 三維仿真窗體界面 三維仿真窗體部分代碼： 變量聲明的代碼： Option Explicit Dim 凸輪 OA As Acad3DSolid Dim 環(huán)體 1 As Acad3DSolid Dim 環(huán)體 2 As Acad3DSolid Dim AB As Acad3DSolid 第 41 頁 共 65 頁 Dim BC As Acad3DSolid Dim CD As Acad3DSolid Dim DG As Acad3DSolid Dim 凸輪 EF As Acad3DSolid Dim 圓柱 D As Acad3DSolid Dim GP As Acad3DSolid Dim DQ As Acad3DSolid Dim 導(dǎo)軌 1 As Acad3DSolid Dim 導(dǎo)軌 2 As Acad3DSolid Dim 沖頭 1 As Acad3DSolid Dim 沖頭 2 As Acad3DSolid Dim 齒輪 1 As Acad3DSolid Dim 齒輪 2 As Acad3DSolid Dim 銷釘 1 As Acad3DSolid Dim 銷釘 2 As Acad3DSolid Dim 銷釘 3 As Acad3DSolid Dim 銷釘 4 As Acad3DSolid Dim 銷釘 5 As Acad3DSolid Dim 機(jī)架 1 As Acad3DSolid Dim 機(jī)架 2 As Acad3DSolid Dim 機(jī)架 3 As Acad3DSolid Dim 機(jī)架 4 As Acad3DSolid Dim 滑塊 As Acad3DSolid Dim 鉸鏈 1 As Acad3DSolid Dim 鉸鏈 2 As Acad3DSolid Dim 鉸鏈 3 As Acad3DSolid Dim 鉸鏈 4 As Acad3DSolid Dim 鉸鏈 5 As Acad3DSolid Dim 鉸鏈 6 As Acad3DSolid 第 42 頁 共 65 頁 Dim 鉸鏈 7 As Acad3DSolid Dim 鉸鏈 8 As Acad3DSolid Dim 鉸鏈 9 As Acad3DSolid Dim 鉸鏈 10 As Acad3DSolid Dim B, C As Single 對 AutoCAD2021 的調(diào)用： Private Sub Command4_Click() 窗口結(jié)束 .Show Unload 窗口主菜單 Unload Me 機(jī)構(gòu) Set 機(jī)構(gòu) CAD = Nothing End Sub Private Sub Form_Load() On Error Resume Next = 0 = 0 Set 機(jī)構(gòu) CAD = GetObject(, ) If Err Then Set 機(jī)構(gòu) CAD = CreateObject() If Err Then MsgBox 不 能 運(yùn) 行 AutoCAD2021, 請 檢 查 是 否 安 裝 了AutoCAD2021 窗口主菜單 .Show Unload Me 第 43 頁 共 65 頁 Exit Sub End If End If 三維模型生成函數(shù)部分代碼： 變量聲明代碼： Private Sub 生