【文章內(nèi)容簡(jiǎn)介】 工作中遇到的問(wèn)題，直接影響工作的進(jìn)度，因此在時(shí)間上有緊迫性； 。二次開(kāi)發(fā)不僅涉及具體的應(yīng)用，而且要求對(duì)支撐軟件有深入的了解，因此工作量大，任務(wù)復(fù)雜。 二次開(kāi)發(fā)方法原理 有些 企業(yè)的產(chǎn)品絕大多數(shù)為定型產(chǎn)品，這些產(chǎn)品系列化、通用化和標(biāo)準(zhǔn)化程度高。因此，進(jìn)行這些產(chǎn)品的設(shè)計(jì)所采用的數(shù)學(xué)模型及產(chǎn)品的結(jié)構(gòu)都是固定不變的，所不同的只是產(chǎn)品的結(jié)構(gòu)尺寸有所差異，而結(jié)構(gòu)尺寸的差異是由于相同數(shù)目及類(lèi)型的已知條件不同規(guī) 格的產(chǎn)品設(shè)計(jì)中取不同值而造成的。對(duì)于這類(lèi)產(chǎn)品，可以將已知條件及其他的隨著產(chǎn)品規(guī)格而變化的基本參數(shù)用相應(yīng)的變量代替，然后根據(jù)這些已知條件和基本參數(shù)，由計(jì)算機(jī)自動(dòng)查詢(xún)圖形數(shù)據(jù)庫(kù)，或相應(yīng)的軟件計(jì)算出繪圖所需的全部數(shù)據(jù)，由專(zhuān)門(mén)的繪圖生成軟件在屏幕上自動(dòng)地設(shè)計(jì)出圖形來(lái)，這種方法成為參數(shù)化。其工作原理如圖 21所示： 圖 41 參數(shù)化繪圖原理 對(duì)工字鋼進(jìn)行參數(shù)化繪圖，是通過(guò)參數(shù)的調(diào)整，就可以精確地生成不同尺寸的工字鋼模型圖。 顯示圖形 圖形支撐軟件 用 戶(hù) 系統(tǒng)運(yùn)行界面 參數(shù)處理與計(jì)算 生成繪圖文件 DB 參數(shù)庫(kù) 8 3 需求分析 功能分析 自動(dòng)生成 通過(guò)開(kāi)發(fā)出來(lái)的三維工字鋼的自動(dòng)生成器，可參照選擇參數(shù)，直接生成對(duì)應(yīng)的工字鋼三維模型圖。 、 修改參數(shù) 根據(jù)國(guó)家發(fā)布的工字鋼標(biāo)準(zhǔn)參數(shù)， 可隨時(shí)給三維工字鋼的自動(dòng)生成器的數(shù)據(jù)庫(kù)中添加或者修改參數(shù)，既時(shí)效有快捷。 3． 三維圖的 自動(dòng) 生成 直接生成工字鋼的立體模型圖，可使用戶(hù)直觀的看到工字鋼的結(jié)構(gòu)。 用戶(hù)分析 先前工作人員要繪制不同參數(shù)的工字鋼模型圖，必須參照國(guó)家給予的標(biāo)準(zhǔn)參數(shù)，進(jìn)行一步一步的繪制，其工作量可想而知。開(kāi)發(fā)出來(lái)的三維工字鋼的自動(dòng)生成器，可大大縮減工作人 員的工作時(shí)間、減輕 工作人員的負(fù)擔(dān)，既繪圖過(guò)程中的重復(fù)性 操作可通過(guò)自動(dòng)生成器時(shí)效快捷的來(lái)完成。這樣便可大大提高設(shè)計(jì)的效率。 時(shí)間就是金錢(qián)，那么對(duì)于客戶(hù)來(lái)說(shuō)時(shí)間是何等重要。當(dāng)客戶(hù)要求工作人員在一定時(shí)間內(nèi)完成繪圖任務(wù)時(shí)，要是工作人員遇到的繪圖如工字鋼模型圖這種時(shí)，做的工作僅是重復(fù)性的操作， 這樣去完成繪圖很是浪費(fèi)時(shí)間，對(duì)客戶(hù)來(lái)說(shuō)，當(dāng)然希望能夠早些完成，所以開(kāi)發(fā)出來(lái)的工字鋼自動(dòng)生成器既減輕了工作人員的負(fù)擔(dān)及枯燥的繪圖過(guò)程又給客戶(hù)節(jié)約了時(shí)間資本。 4 系統(tǒng)設(shè)計(jì) 功能 介紹 基于 AutoCAD 的三維工字鋼 模型的自動(dòng)生成器 ，是對(duì)不同參數(shù)的選擇而生成所需的工字鋼模型圖，其具有以下功能： 9 1. 在運(yùn)行此功能模塊時(shí)，選擇選擇條件； 2. 在選擇條件過(guò)濾機(jī)制下，選擇不同參數(shù)； 3. 選擇按鈕操作“添加、“修改”、“刪除”、“確定”、“ 取消 ”； 4. 通過(guò)確定按鈕實(shí)現(xiàn)不同參數(shù)的工字鋼模型圖的生成； 5. 立體模型圖顯示于 AutoCAD 窗口中。 本自動(dòng)生成器功能既具有時(shí)效性、實(shí)用性，大大提高了設(shè)計(jì)效率。 該課題是基于 AutoCAD 的工字鋼模型的自動(dòng)生成器的開(kāi)發(fā)與研究， 力求與實(shí)際相結(jié)合， 使之更加方便快捷以提高工作效。 打開(kāi) AutoCAD，點(diǎn)擊工具欄創(chuàng)建一個(gè) VBA編輯器，在編輯器上點(diǎn)擊工具創(chuàng)建一個(gè)用戶(hù)窗體模塊，進(jìn)行程序界面的設(shè)計(jì)。 具體操作如下圖 ： 圖 創(chuàng)建 Visual Basic 編輯器 控件介紹 ： 窗體名稱(chēng)改為 Form,列表框的名稱(chēng)改為 LstType,各個(gè)文本框的名稱(chēng)分別為：txtH、 txtB、 txtD、 txtT、 txtR、 txtR txtArea 和 txtWeight，命令按鈕的名稱(chēng)分別為： cmdAdd、 cmdModify、 cmdDelete、 cmdOk 和 cmdCancel。 10 圖 界面設(shè)計(jì) 圖 程序運(yùn)行界面 11 結(jié)構(gòu)設(shè)計(jì) 系統(tǒng)模塊結(jié)構(gòu)圖 圖 模塊結(jié)構(gòu)圖 系統(tǒng)流程圖 AutoCAD界面 三維工字鋼模型的自動(dòng)生成器模塊 生成器用戶(hù)界面 12 圖 系統(tǒng) 流程圖 5 VBA 編程及調(diào)試 編程思路 ADO 連接技術(shù) 該程序使用 ADO 技術(shù)連接數(shù)據(jù)庫(kù)，其基本的數(shù)據(jù)庫(kù)操作如下： 在使用 ADO對(duì)象之前，需要在 VBA集成開(kāi)發(fā)環(huán)境中，選擇【工具 /引用】，從彈出的對(duì)話框中選擇【 Microsoft ActiveX Date Objects Library】選項(xiàng)，引用 ADO 的對(duì)象 模型，如圖 所示： 開(kāi)始 繪制三維工字鋼模型圖 運(yùn)行窗體 進(jìn)行條件選擇 選擇操作 （添加、修改、刪除、確定、取消） 顯示圖形 退出生成器 重新選擇 退出 13 引用 ADO 的對(duì)象模型 在編程過(guò)程中 使用 ADO 存取數(shù)據(jù)的步驟為： 1. 連接數(shù)據(jù)源。可以使用連接對(duì)象的 Open 方法打開(kāi)數(shù)據(jù)庫(kù)對(duì)象，如下： Provider=。Data Source= amp。 _ Left(strPath, Len(strPath) 7) amp。 。 2. 打開(kāi)記錄集對(duì)象?？梢允褂糜涗浖瘜?duì)象的 Open 方法打開(kāi)記錄集對(duì)象 ，如下： ISteel, adoCon, adOpenDynamic, adLockOptimistic 3. 使用記錄集。在各個(gè)記錄集之間切換一般可以使用記錄集對(duì)象的 Move、MoveFirst、 MoveNext、 MovePrevious 和 MoveLast,添加新的記錄可以使用記錄集對(duì)象的 AddNew 方法，修改當(dāng)前記錄的內(nèi)容只需對(duì)數(shù)據(jù)庫(kù)記錄集中的對(duì)象重新賦值，刪除當(dāng)前的記錄使用 Delete 方法。 4. 斷開(kāi)連接。 Private Sub UserForm_Terminate() 39。關(guān) 閉連接和記錄集 End Sub 編程步驟 14 【工程資源管理器】窗口中雙擊 TishDrawing，打開(kāi)該模塊的代碼窗口，在其中添加宏的啟動(dòng)代碼，如下： Option Explicit Sub AddIStell() End Sub 【插入 /模塊】菜單項(xiàng)，向程序中添加一個(gè)標(biāo)準(zhǔn)模塊，其中定義了求兩條直線交點(diǎn)的公共函數(shù)，其實(shí)現(xiàn)代碼為： Option Explicit 39。計(jì)算兩條直線的交點(diǎn) 39。若直線 方程為 |a1x + b1y + c1 = 0 39。39。39。39。39。39。39。39。39。39。39。39。39。|a2x + b2y + c2 = 0 Public Function GetPtIntersect(ByVal a1 As Double, ByVal b1 As Double, ByVal c1 As Double, _ ByVal a2 As Double, b2 As Double, c2 As Double) As Variant 39。輸入第一條直線和第二條直線方程的系數(shù)，輸出交點(diǎn)的坐標(biāo) Dim dlt As Double, dx As Double, dy As Double Dim x As Double, y As Double 39。用于輸出 Dim pt(0 To 2) As Double 39。計(jì)算矩陣的值 dlt = a1 * b2 a2 * b1 dx = c1 * b2 c2 * b1 dy = a1 * c2 a2 * c1 39。錯(cuò)誤處理：如果兩者平行 If (Abs(dlt) ) Then If (Abs(dx) And Abs(dy) ) Then x = 1E+20 y = 1E+20 Else 15 x = 1E+20 y = 1E+20 End If Else x = dx / dlt y = dy / dlt End If pt(0) = x: pt(1) = y: pt(2) = 0 GetPtIntersect = pt End Function 39。計(jì)算兩條直線的交點(diǎn) 39。已知每條直線的一點(diǎn)和斜率 Public Function GetPtIntersectKP(ByVal k1 As Double, ByVal pt1 As Variant, _ ByVal k2 As Double, ByVal pt2 As Variant) As Variant Dim a1 As Double, b1 As Double, c1 As Double Dim a2 As Double, b2 As Double, c2 As Double 39。計(jì)算直線方程系數(shù) a1 = k1: b1 = 1: c1 = pt1(1) k1 * pt1(0) a2 = k2: b2 = 1: c2 = pt2(1) k2 * pt2(0) 39。調(diào)用 GetPtIntersect 函數(shù) GetPtIntersectKP = GetPtIntersect(a1, b1, c1, a2, b2, c2) End Function 39。計(jì)算兩點(diǎn)之間距離 Public Function GetDistance(sp As Variant, ep As Variant) As Double Dim x As Double Dim y As Double Dim z As Double x = sp(0) ep(0) 16 y = sp(1) ep(1) z = sp(2) ep(2) distance = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2)) End Function 39。獲得相對(duì)已經(jīng)點(diǎn)偏移一定距離的點(diǎn) Public Function GetPoint(pt As Variant, x As Double, y As Double) As Variant Dim ptTarget(0 To 2) As Double ptTarget(0) = pt(0) + x ptTarget(1) = pt(1) + y ptTarget(2) = 0 GetPoint = ptTarget End Function 39。已知一點(diǎn)，另一點(diǎn)相對(duì)于該點(diǎn)的極角 (弧度 )和極軸長(zhǎng)度，求另一點(diǎn)的位置 Public Function GetPointAR(ByVal ptBase As Variant, ByVal angle As Double, ByVal length As Double) As Variant Dim pt(0 To 2) As Double pt(0) = ptBase(0) + length * Cos(angle) pt(1) = ptBase(1) + length * Sin(angle) pt(2) = ptBase(2) GetPointAR = pt End Function 3. 在窗體的通用代碼區(qū)，添加公用變量聲明： Option Explicit 39。工程文件路徑 Public strPath As String Dim adoCon As Connection 39。連接對(duì)象 Dim adoRs As Recordset 39。記錄集對(duì)象 17 5. 在窗體的初始化事件中，連接數(shù)據(jù)庫(kù)，打開(kāi) ISteel 表，將 Type 字段的內(nèi)容 顯示在列表框中，其實(shí)現(xiàn)代碼為： Private Sub UserForm_Initialize() 39。必須首先獲得當(dāng)前的工程路徑 strPath = 39。連接數(shù)據(jù)庫(kù) Set adoCon = New Connection = adUseClient Provider=。Data Source= amp。 _ Left(strPath, Len(strPath) 7) amp。 。 39。打開(kāi)記錄集 Set adoRs = New Recordset ISteel, adoCon, adOpenDynamic, adLockOptimistic 39。將型號(hào)添加到列表框中