【正文】 導(dǎo)出表格 箱包CAD系統(tǒng)的結(jié)構(gòu) AutoCAD VBA編程步驟 VBA開(kāi)發(fā)環(huán)境在AutoCAD2004的環(huán)境中，選擇【工具/宏/VBA管理器】在菜單項(xiàng)，系統(tǒng)會(huì)彈出【VBA管理器】對(duì)話框。 新建工程在【工程】列表中選擇AcADProject，單擊【VBA管理器】對(duì)話框中的【另存為】按鈕，系統(tǒng)彈出的【另存為】對(duì)話框。 保存工程文件在【工程】列表中選擇ACADProject，單擊【VBA管理器】對(duì)話框中的【VsualBasic編輯器】按鈕，進(jìn)入AutoCAD2004的集成開(kāi)發(fā)環(huán)境(IDE)，在VBAIDE(集成開(kāi)發(fā)環(huán)境)的左側(cè)，分布著【工程資源管理器】和【屬性】窗口，【工程資源管理器】中顯示了當(dāng)前打開(kāi)的工程名稱(chēng)，以及該工程的文件結(jié)構(gòu)。 VBA的IDE單擊【工程資源管理器】窗口中的工程名稱(chēng)AcADproject，在屬性窗口中將項(xiàng)目名稱(chēng)修改為“箱包CAD系統(tǒng)”。在這個(gè)窗體上分別建立6個(gè)控件來(lái)實(shí)現(xiàn)總體設(shè)計(jì)。在這里介紹本研究使用到的主要控件。 AutoCAD自定義菜單和工具欄為了在設(shè)計(jì)箱包過(guò)程中更容易調(diào)用需要將各個(gè)工具功能增加到AutoCAD的菜單文件中，AutoCAD做菜單的方法有兩種，一種是用CAD的菜單文件，另一種就是用VBA代碼直接生成菜單。CAD菜單文件是文本文件，用記事本就可以打開(kāi)并編輯它?？赏ㄟ^(guò)新建記事本并編輯菜單文本再保存為mns格式來(lái)創(chuàng)建菜單文件。 箱包CAD工具的開(kāi)發(fā)傳統(tǒng)工具欄包括直線、矩形、梯形、圓、圓弧、垂線、角度線等工具。專(zhuān)業(yè)工具欄包括裁片對(duì)位、打腳打褶、導(dǎo)出表格、曲線工具等工具。 直線工具開(kāi)發(fā)實(shí)例打開(kāi)AutoCAD2004進(jìn)入Visual Basic編輯器，在BagCAD工程中插入【用戶(hù)窗體】和【模塊】，用【工具箱】添加控件，完成【用戶(hù)窗體】，并在【模塊】和【用戶(hù)窗體】中編寫(xiě)程序。Public Sub zhixian()39。鼠標(biāo)拾取起點(diǎn)和終點(diǎn)spoint = (, 輸入:)epoint = (spoint, 輸入:)39。將控制權(quán)交給用戶(hù)窗體End Sub（2）在直線用戶(hù)窗體中雙擊【確定】按鈕寫(xiě)入如下代碼。定義π的值Const pi = Public Sub CommandButton1_Click()39。調(diào)用自定義角度轉(zhuǎn)換函數(shù)pten =GetPointAR(spoint, CDbl() * pi / 180, CDbl())39。關(guān)閉當(dāng)前用戶(hù)窗體Unload MeEnd Sub（3）在直線用戶(hù)窗體中雙擊長(zhǎng)度輸入框?qū)懭肴缦麓a?？刂戚斎?yún)?shù)Select Case KeyAscii Case Asc(0) To Asc(9), vbKeyBack Case Asc(.) 39。根據(jù)兩對(duì)角點(diǎn)坐標(biāo)確定四定點(diǎn)坐標(biāo)ptarr(0) = pt1(0): ptarr(1) = pt1(1)ptarr(2) = pt1(0): ptarr(3) = pt2(1)ptarr(4) = pt2(0): ptarr(5) = pt2(1)ptarr(6) = pt2(0): ptarr(7) = pt1(1)39。封閉多線段（2）角度線、垂直線工具核心代碼及說(shuō)明。選取直線對(duì)象 returnobj, ept, 選取對(duì)象39。計(jì)算各個(gè)角點(diǎn)的坐標(biāo)，并創(chuàng)建閉合多線段appr(0) = pt1(0) CDbl(Trim()) / 2: appr(1) = pt1(1) + CDbl(Trim())appr(2) = pt1(0) + CDbl(Trim()) / 2: appr(3) = pt1(1) + CDbl(Trim())appr(4) = pt1(0) + CDbl(Trim()) / 2: appr(5) = pt1(1) CDbl(Trim())appr(6) = pt1(0) CDbl(Trim()) / 2: appr(7) = pt1(1) CDbl(Trim())Set acadtx = (appr) = True第5章 箱包CAD原型系統(tǒng) 系統(tǒng)菜單本次設(shè)計(jì)的箱包CAD系統(tǒng)菜單包括常用工具菜單和專(zhuān)業(yè)工具菜單，常用工具菜單包含直線、矩形、圓等常用作圖工具，專(zhuān)業(yè)工具菜單包括裁片對(duì)位、背包拋圍、打褶、打角、曲線編輯、導(dǎo)出表格等菜單和菜單模塊。其中箱包CAM系統(tǒng)部分非本次設(shè)計(jì)所作。箱包CAD/。這也是作為箱包設(shè)計(jì)中不可或缺的一部分。 常用工具菜單 專(zhuān)業(yè)工具菜單 專(zhuān)業(yè)工具菜單專(zhuān)業(yè)工具菜單包含裁片對(duì)位、打褶、曲線編輯菜單塊和背包拋圍、打角導(dǎo)出表格等工具。背包拋圍根據(jù)前后片之間的距離展開(kāi)背包側(cè)片，并用鏡像、平移等功能完成拋圍工作。打角功能從基礎(chǔ)圖樣中設(shè)計(jì)邊角使其成型從而可以生成裁片。導(dǎo)出表格功能為導(dǎo)出裁片信息、物料信息。工具欄共有常用工具欄和專(zhuān)業(yè)工具欄兩個(gè)（）。專(zhuān)業(yè)工具欄有導(dǎo)出表格、裁片對(duì)位、文字、標(biāo)注、曲線、鏡像等功能按鈕。點(diǎn)擊后拾取兩點(diǎn)為初始線，兩點(diǎn)之間的長(zhǎng)度和初始線的角度顯示在直線用戶(hù)窗體的長(zhǎng)度和角度輸入框中（）。 直線窗體長(zhǎng)度輸入框角度輸入框計(jì)算長(zhǎng)度和角度結(jié)束修改長(zhǎng)度和角度選擇起點(diǎn)和終點(diǎn)畫(huà)出直線單擊直線按鈕點(diǎn)擊確定點(diǎn)擊取消 直線算法流程角度線工具：創(chuàng)建相對(duì)于目標(biāo)直線任意長(zhǎng)度和相對(duì)角度的直線。 角度線窗體結(jié)束選擇目標(biāo)直線畫(huà)出角度線選擇插入點(diǎn)輸入長(zhǎng)度輸入相對(duì)角度點(diǎn)擊確定點(diǎn)擊確定單擊角度線按鈕 角度線算法流程圖垂直線工具：創(chuàng)建垂直于目標(biāo)直線任意長(zhǎng)度的直線。 垂直線窗體結(jié)束選擇目標(biāo)直線畫(huà)出垂直線選擇插入點(diǎn)輸入長(zhǎng)度選擇垂直方向單擊垂直線按鈕點(diǎn)擊確定點(diǎn)擊取消 垂直線算法流程圖 矩形、梯形和圓按鈕梯形工具：創(chuàng)建以起始點(diǎn)為一個(gè)角點(diǎn)的任意長(zhǎng)度和寬度的矩形。 矩形窗體長(zhǎng)度輸入框?qū)挾容斎肟蛴?jì)算長(zhǎng)度和角度結(jié)束修改長(zhǎng)度和寬度選擇矩形對(duì)角點(diǎn)畫(huà)出矩形單擊矩形按鈕點(diǎn)擊確定點(diǎn)擊取消是否倒圓角輸入圓角 矩形算法流程圖梯形按鈕：創(chuàng)建以起始點(diǎn)為中心的任意形狀和大小的等腰梯形。 梯形窗體輸入下底選擇梯形中心點(diǎn)輸入下底輸入下底結(jié)束畫(huà)出梯形單擊梯形按鈕點(diǎn)擊確定點(diǎn)擊取消 梯形算法流程圖圓按鈕：創(chuàng)建以起始點(diǎn)為圓心任意大小半徑的圓。 圓窗體半徑輸入框計(jì)算半徑結(jié)束修改半徑選擇圓心和圓上一點(diǎn)畫(huà)出圓單擊圓按鈕點(diǎn)擊確定點(diǎn)擊取消 圓算法流程圖 箱包CAD系統(tǒng)應(yīng)用簡(jiǎn)單實(shí)例 箱包CAD應(yīng)用簡(jiǎn)單實(shí)例本實(shí)例使用矩形、直線、鏡像、文字、修剪、垂直線、標(biāo)尺等工具完成。結(jié)論箱包的CAD系統(tǒng)能夠很好地為箱包的制造參考跟標(biāo)準(zhǔn)進(jìn)行生產(chǎn)，并且有著非常方便、快捷的功能，讓設(shè)計(jì)人員不需要花費(fèi)大量的時(shí)間去完成這個(gè)繁瑣、復(fù)雜的工藝設(shè)計(jì)，使勞動(dòng)力跟生產(chǎn)力大幅度的提高。中國(guó)箱包、服裝產(chǎn)業(yè)的設(shè)計(jì)、制造方式相對(duì)歐美國(guó)家還是比較落后的，CAD系統(tǒng)的普及對(duì)中國(guó)的制造行業(yè)的貢獻(xiàn)是不可估量的。先全面分析了箱包CAD/CAM系統(tǒng)的結(jié)構(gòu)，再介紹了基于VBA的AutoCAD二次開(kāi)發(fā)的步驟和箱包CAD系統(tǒng)的開(kāi)發(fā)實(shí)例，最后展示了箱包CAD系統(tǒng)的結(jié)構(gòu)和使用實(shí)例。首先對(duì)箱包CAD系統(tǒng)的構(gòu)造要有一定深度的了解，對(duì)箱包出格設(shè)計(jì)工具在箱包設(shè)計(jì)中的具體的作用要有清楚的認(rèn)識(shí)。AutoCAD軟件是常用的繪圖軟件，在對(duì)AutoCAD了解的基礎(chǔ)上才能進(jìn)行很好的二次開(kāi)發(fā)。參考文獻(xiàn)[1] 張春興，／CAM系統(tǒng)[J].中國(guó)皮革，1997，26(4).[2] 于述平，[D].大連：大連藝術(shù)學(xué)院，2001.[3] [J].甘肅科技縱橫，2009，38(4).[4] [J].絲綢技術(shù)，1999(3).[5] [J].科學(xué)咨詢(xún)，2008(19).[6] [J].科技創(chuàng)新導(dǎo)報(bào)，2009（14）.[7] [J].浙江紡織服裝職業(yè)技術(shù)學(xué)院學(xué)報(bào)，2007(1).[8] 劉寶華，[J].新技術(shù)新工藝，2008(2).[9] 方貴盛，[J].機(jī)床與液壓，2007，35（6）.[10] 黃毓瑜等. 尺寸驅(qū)動(dòng)的變參設(shè)計(jì)系統(tǒng)研究[J]. 工程圖學(xué)學(xué)報(bào), .[11] 劉宏躍. 刀具參數(shù)化設(shè)計(jì)系統(tǒng)的研究與開(kāi)發(fā)[J]. 工具技術(shù), .[12] 高永惠. AutoCAD參數(shù)化設(shè)計(jì)與實(shí)現(xiàn)[J]．懷化學(xué)院學(xué)報(bào)，.[13] 楊剛．CAD系統(tǒng)中的參數(shù)化設(shè)計(jì)[J]．四川兵工學(xué)報(bào),2009．4.[14] 張偉．基于VBA的矩形花鍵拉刀參數(shù)化設(shè)計(jì)[J]. 湖北汽車(chē)工業(yè)學(xué)院學(xué)報(bào),. [15] 韋林．基于AutoCAD的直齒輪齒廓的參數(shù)化設(shè)計(jì)[J]. 機(jī)械設(shè)計(jì)與制造,.[16] Michael J．Pratt，Billn Anderson，Tony Ranger．Towards the Standardized Exehange of Parameterized FeatureBased CAD Models[J]．ComputerAided Desig n，2005(37).[17] Aldefeld B．Variation of geometries based on a geometricreasoning method[J],20(3).致謝本文是在文和平老師的精心指導(dǎo)下完成的。在這次的畢業(yè)設(shè)計(jì)中，鞏固了AutoCAD的知識(shí)，學(xué)到了VBA的編程