【正文】 矩形算法流程如圖 。 系統(tǒng) 工具欄 系統(tǒng)工具欄從菜單文件中加載，在 AutoCAD 環(huán)境中的自定義工具欄功能可對工具欄和按鈕進(jìn)行修改。判斷選取對象 Select Case Case AcDbLine Set ly1 = returnobj Case AcDbPolyline Set ply = returnobj MsgBox 請重新選擇對象！ GoTo line2 Case Else MsgBox 對象錯誤！請重新選擇！ GoTo line2 End Select （ 3） 梯形核心代碼及說明 39。算出拾取兩點的距離和兩點連線的角度 = Round(Sqr((epoint(0) spoint(0)) ^ 2 + (epoint(1) spoint(1)) ^ 2), 2) = Round((spoint, epoint) * 180 / pi, 2) 39。而本文中所用的是用菜單文件生成菜單的方法。其中，傳統(tǒng)工具欄包括直線、矩形、梯形等等，專業(yè)工具包括裁片對位、曲線編輯、打褶打角等等。箱包的 CAM 系統(tǒng)最本質(zhì)的特性就是其靈活性。 我們只需要用側(cè)片展開工具，直 線走兩點，曲線走三點即可完成。 CAD部分稱做出格系統(tǒng)，而出格系統(tǒng)的功能包括常用工具、裁片對位、背包拋圍、打褶、打角、專業(yè)工具、導(dǎo)出物料表格。接著選擇“常用”中的“數(shù)據(jù)庫”，單擊“確定”，接著找到合適的存儲地方，單擊“確定”，出現(xiàn)一個新頁面，雙擊“通過輸入輸入數(shù)據(jù)創(chuàng)建表格”，最后根據(jù)需要輸入字段，輸入完畢后，保存。 浙江大學(xué)城市學(xué)院畢業(yè)論文 第 2 章 AutoCAD 二次開發(fā)和 VBA 語言 8 ADO 數(shù)據(jù)庫連接及操作技術(shù) 數(shù)據(jù)庫系統(tǒng)概述 數(shù)據(jù)庫系統(tǒng)是由計算機(jī)軟、硬件資源組成的系統(tǒng)，它實現(xiàn)了有組織地、動態(tài)地存儲大量關(guān)聯(lián)數(shù)據(jù)，方便多用戶訪問。 AutoCAD 軟件中的 ActiveX 對象模型十分有用，它顯示了每一個對象的方法和屬性，用戶可以按照自己的愿望編程或定制AutoCAD 軟件。 要選用何種語言進(jìn)行二次開發(fā)，需要開發(fā)人員按照所開發(fā)系統(tǒng)的功能特性進(jìn)行篩 選來決定。 AcitveX 與具體的編程語言無關(guān)，因此理論上說可以用任何一種支持他的語言來編寫，但通常大家選擇 VB 語言。 根據(jù)任務(wù)書的要求，本畢業(yè)設(shè)計的主要設(shè)計內(nèi)容如下： （ 1） 分析箱包的結(jié)構(gòu)、設(shè)計過程； （ 2） 研究箱包 CAD 系統(tǒng)功能框架、主要算法設(shè)計流程； 浙江大學(xué)城市學(xué)院畢業(yè)論文 第 1 章 緒論 3 （ 3） 開發(fā)箱包 CAD 常用工具； （ 4） 設(shè)計并開發(fā)一個基于 AutoCAD 的箱包 CAD 原型系統(tǒng)軟件； 利用 VBA 對 AutoCAD 進(jìn)行二次開發(fā)的技術(shù)基礎(chǔ)，分析研究基于 Active X 技術(shù)和應(yīng)用面向?qū)ο蠓椒ㄩ_發(fā) AutoCAD 的有關(guān)問題，掌握 AutoCAD 二次開發(fā)的基本思路、主要步驟和具體方法。工業(yè)設(shè)計將信息轉(zhuǎn)變?yōu)樯唐穬r值，為推動社會發(fā)展做出了巨大的貢獻(xiàn)。傳統(tǒng)的設(shè)計和生產(chǎn)方式已經(jīng)難以滿足市場快速多變的需求 ， CAD/CAM系統(tǒng) 能夠大大的提高工作效率，將設(shè)計師們從繁瑣的工作中解放出來，市場 急需自動化水平高的 CAD/CAM 技術(shù)工具。讓操作者感到非常好用，操作簡單，并且能很快的達(dá)到操作之目的。目前國內(nèi)的箱包 CAD軟件都是局限與箱內(nèi)和包袋類的。 ActiveX 是 Microsoft 提出的一組使用COM(Component Object Model，部件對象模型 )使得軟件部件在網(wǎng)絡(luò)環(huán)境中進(jìn)行交互的技術(shù)集。由于先前的 ARX 已被包含為子集，人們也就簡稱 ObjectARX 為 ARX。 （ 3） VBA 的語言代碼完全繼承了 VB的特征，可以說是世界上最簡單的編程語言，但其功能不弱。 VBA 提供了一個特殊的對象 —— Thisdrawing，它是 AutoCAD VBA 的一個術(shù)語，代表當(dāng)前打開的AutoCAD 圖形文件。其數(shù)據(jù)庫文件擴(kuò)展名為 MDB。 Private Sub RefreshList () Dim i As Integer For i = 0 To 1 (01) If Not Then End If Next i End Sub （ 2） 通過下面這個子程序，我們可以根據(jù)字段名稱或者索引均可以 訪問其內(nèi)容，讓數(shù)據(jù)庫中的各列中的數(shù)據(jù)顯示到對應(yīng)的“ TextBox”中。多褶，單褶，工字褶系統(tǒng)很方便的就可以做出來，而且我們時時可以預(yù)覽到打褶的形狀。排刀系統(tǒng)能夠讓出格后的裁片在規(guī)定的范圍內(nèi)進(jìn)行合理的排放，排刀的系統(tǒng)能夠?qū)Π丛O(shè)定好的方案系統(tǒng)會運(yùn)算并顯示出排刀的樣式。專業(yè)工具包括相交平行線、多線相交平行線、平行線、圓角、角平分線、延長線。在這里介紹本研究使用到的主要控件。 Public Sub zhixian() 39。封閉多線段 （ 2） 角度線 、垂直線 工具核心代碼 及說明 。打角功能 從基礎(chǔ)圖樣中設(shè)計邊角使其成型從而可以生成裁片。 垂直線算法流程如圖 所示。 梯形算法流程如圖 所示。專業(yè)工具欄有導(dǎo)出表格、裁片對位、 文字、標(biāo)注、曲線、鏡像等功能按鈕。 其中 箱 包 CAM 系統(tǒng)部分非本次設(shè)計所作。定義π的值 Const pi = Public Sub CommandButton1_Click() 39?？赏ㄟ^新建記事本并編輯菜單文本再保存為 mns 格式來創(chuàng)建菜單文件。單擊【新建】按鈕，在當(dāng)前圖形中新建一個名稱為 AutoCAD Project 的全局工程，如圖 所示 。詳細(xì)的一些數(shù)據(jù)同樣可以導(dǎo)出 EXCEL 表格中—— 排料統(tǒng)計表 ， 每一個裁片的單位用量，用碼量，一目了然。這邊做好之后，另外一邊復(fù)制對稱過去，還可以對稱修改。 圖 箱包 CAD/CAM 系統(tǒng)結(jié)構(gòu) 箱包 CAD 系統(tǒng)的結(jié)構(gòu) 箱包的 CAD 出格系統(tǒng)具有很多為箱包特別設(shè)計的工具欄，解決了普通 CAD軟件無法完成的很多功能，出格系統(tǒng)包含箱包、手袋的款式設(shè)計到實樣的生產(chǎn)跟管理?？梢酝ㄟ^ VBA 與 ADO（ Microsoft ActiveX DataObjects）的結(jié)合使用達(dá)到與外部數(shù)據(jù)庫連接的目的。 我們這里主要是解決第 3 個問題，任何將數(shù)據(jù)庫中，滿足要求的數(shù)據(jù)，抽取出來，進(jìn)行設(shè)計。其運(yùn)行速度與 ObjectiRX 應(yīng)用程序非常接近，比其它開發(fā)方式 (如： ADSRX， ADS 和 LISP)要提高許多。通過 VBA，我們浙江大學(xué)城市學(xué)院畢業(yè)論文 第 2 章 AutoCAD 二次開發(fā)和 VBA 語言 6 可以操作 AutoCAD 軟件，控制 ActiveX 和其它一些應(yīng)用程序，使之相互之間發(fā)生互易活動。這種方法在編寫上比 Lisp復(fù)雜，調(diào)試也困難。設(shè)計人員希望它能從本質(zhì)上減輕大量簡單繁瑣的工作量，使他們能集中精力于那些富有創(chuàng)造性的高層次思維活動中。 隨著 計算機(jī)技術(shù)、圖形學(xué)和箱包 技術(shù)等相關(guān)技術(shù)門類的發(fā) 展，箱包 CAD 技術(shù)的發(fā)展總體趨于標(biāo)準(zhǔn)化、智能化、集成化、立體化、網(wǎng)絡(luò)化和虛擬化 。利用 AutoCAD 自帶的 VBA二次開發(fā)工具對 CAD進(jìn)行二次開發(fā)，開發(fā)出符合設(shè)計要求、滿足箱包 CAD系統(tǒng)功能、與箱包 CAM系統(tǒng)兼容的基本菜單和工具欄。而發(fā)展 90 年代后，中國仿佛一夜間冒出了好多家服裝 CAD 軟件，有的軟件已經(jīng)可以在 CAD 上面直接出樣了，軟件也比較不難學(xué)了。但是由于是用數(shù)據(jù)庫的 ,所以穩(wěn)定性比較差，有些先天的缺陷；時高、易圖、慧工、市場占有率都很小，其軟件問題就更多了；臺灣理星軟件本意是為制鞋研發(fā)的，箱包只是它衍生出來的個模塊，所以應(yīng)用性也比較差了；到目前為止還沒有任何一家的軟件能完全做到符合箱包生產(chǎn)所需要的功能的。 VL 在 CAD中可以視為 CAD 命令的整合，是腳本語言，而且由 CAD 程序提供了編寫環(huán)境。但他和 ActiveX 類似是通過管道通訊的。 [14] VBA 開發(fā)的優(yōu)勢 （ 1） VBA 能夠使 AutoCAD 于其它應(yīng)用程序直接共享數(shù)據(jù)，如 Microsoft Office軟件。如此， AutoCAD、 ActiveX Automation 與 VBA 的結(jié)合方式，提供了功能極強(qiáng)大的接口，不 僅可以操作 AutoCAD 的內(nèi)部對象，更可以在其他的應(yīng)用程序之間傳送或接受數(shù)據(jù)。 Access 數(shù)據(jù)庫管理系統(tǒng)是 Microsoft Office 套件的重要組成部分。 *.mdb。 專業(yè)工具欄 裁片對位工具非常的專業(yè) ， 兩紙格之間的車縫，埋袋；系統(tǒng)自動在對應(yīng)的紙格上 找到相應(yīng)的牙位及長度；更快，更準(zhǔn)確。 通過這些特定的工具欄我們可以很好的做出符合設(shè)計跟工藝要求的是箱包模型，這些工具是 CAD 出格系統(tǒng)的重要組成部分，因為箱包設(shè)計有很多工藝設(shè)計需求，而出格系統(tǒng)囊括了這些專業(yè)的工具欄。 排料的原則必須得保證設(shè)計的要求，當(dāng)設(shè)計的款式對面料的花型有一定的要求時，排料的樣板便不能隨意放置，必須保證排除的衣片在縫制后達(dá)到設(shè)計要求。選擇【插入 /用戶窗體】菜單項，向程序中添加一個窗體， Caption 屬性設(shè) 置為“直線”，系統(tǒng)就會在 IDE 創(chuàng)建一個窗體。 直線工具開發(fā) 實例 打開 AutoCAD20xx 進(jìn)入 Visual Basic 編輯器，在 BagCAD 工程中插入 【 用戶窗體 】 和 【 模塊 】 ，用 【 工具箱 】 添加控件，完成 【 用戶窗體 】 ，并在 【 模塊 】 和【 用戶窗體 】 中編寫程序。允許一個小數(shù)點 If InStr(1, , .) 0 Then KeyAscii = 0 Case Else KeyAscii = 0 End Select End Sub 箱包 CAD 系統(tǒng)工具核心代碼 （ 1） 矩形工具核心代碼 及說明 39。裁片對位是箱包和服裝類設(shè)計軟件的必須工具 模塊，該模塊包括牙型牙位、裁片拼接 、搭位等工具。 角度線算法流程圖如圖 所示。 圓的算法流程圖如圖 所示。然后修改參數(shù)，點擊確定按鈕生成直線。 圖 系統(tǒng)菜單 常用工具菜單 常用工具 菜單包含直線、圓、矩形、梯形、點、角度線等常用的作圖工具，這些工具是工程制圖中最常見的工具。創(chuàng)建直線 spoint, pten 39。 浙江大學(xué)城市學(xué)院畢業(yè)論文 第 4 章 箱包 CAD 系統(tǒng)的設(shè)計與開發(fā) 22 圖 載入 菜單 文件 箱包 CAD 工具的開發(fā) 傳統(tǒng)工具欄包括直線、矩形、梯形、圓、圓弧、垂線、角度線等工具。 浙江大學(xué)城市學(xué)院畢業(yè)論文 第 4 章 箱包 CAD 系統(tǒng)的設(shè)計與開發(fā) 19 圖 保存工程文件 在【工程】列表中選擇 ACADProject，單擊【 VBA管理器】對話框中的【 VsualBasic編輯器】按鈕，進(jìn)入 AutoCAD20xx 的集成開發(fā)環(huán)境 (IDE)，在 VBAIDE(集成開發(fā)環(huán)境 )的左側(cè)，分布著【工程資源管理器】和【屬性】窗口，【工程資源管理器】中顯示了當(dāng)前打開的工程名稱，以及該工程的文件結(jié)構(gòu)。排料系統(tǒng)能夠?qū)⒓垬右拦に嚦绦颍ㄕ?、反面）形成能緊密粘合的不同的形狀的排列組合，浙江大學(xué)城市學(xué)院畢業(yè)論文 第 3 章 箱包 CAD/CAM 系 統(tǒng)的結(jié)構(gòu) 16 以其最經(jīng)濟(jì)地使用布料，達(dá)到降低產(chǎn)品成本的目的。 這些實用的工具，都會讓我們感受到在使用計算機(jī)出格的時候事半功倍。出格系統(tǒng)能 使 箱包、手袋行業(yè)真正實現(xiàn)了從手工 操作向自動化過度的課程。 把從數(shù)據(jù)庫中檢索出的數(shù)據(jù)和 AutoCAD 編程對象方法中的參數(shù)進(jìn)行加護(hù)，就可以在 AutoCAD 環(huán)境下實現(xiàn)基于外部數(shù)據(jù)庫應(yīng)用的流程圖件圖 浙江大學(xué)城市學(xué)院畢業(yè)論文 第 2 章 AutoCAD 二次 開發(fā)和 VBA 語言 10 圖 ADO 流程圖 數(shù)據(jù)庫的連接和操作 首先應(yīng)該連接數(shù)據(jù)庫到 AutoCAD，這樣就可以調(diào)用數(shù)據(jù)庫指令。因此，自上一個世紀(jì) 80 年代來，關(guān)系型數(shù)據(jù)庫成為了主流數(shù)據(jù)庫而被廣泛應(yīng)用。 [15] ActiveX 技術(shù) 對 AutoCAD 的二次開發(fā)可以通過 ActiveX 技術(shù)來實現(xiàn)，利用 ActiveX 技術(shù)，通過編程，用戶可以在自己的應(yīng)用程序中方便地對另一應(yīng)用程序進(jìn)行操作。 （ 3） 可以創(chuàng)建功能強(qiáng)大的模塊級宏指令，宏名實質(zhì)上就是模塊的過程名。對于熟悉 VB語言又不想學(xué)習(xí)Lisp 奇怪語法的開發(fā)者來說，這是不錯的選擇。 迄今為止 ， AutoCAD 二代三代開發(fā)工具，如圖 所示 圖 開發(fā)語言的發(fā)展進(jìn)程 首先是 VisualLisp 和 AutoLisp。而已被某些工業(yè)廣泛采用的 CAD／ CAM 技術(shù)則引起了設(shè)計人員的注意。軟件名叫“ Optitex”其軟件行業(yè)應(yīng)用非常廣泛。具體到國內(nèi)的箱包 CAD 軟件有 4 家廣州博凱，杭州時高，寧波易圖，上海慧工，還有臺灣的理星箱包 CAD。 現(xiàn)代的箱包設(shè)計將變得更加的自動化跟機(jī)械化，而AutoCAD 在這方面起到的作用是巨大的。 Lisp 是一門歷史悠久的函數(shù)式編程語言，很多概念和 C 這種過程式語言不一樣，據(jù)說他在人工智能等方面有廣泛的應(yīng)用。 [1