基于AutoCAD的箱包CAD系统设计与开发毕业论文 - 副本.doc

浙江大学城市学院毕业论文目录基于AutoCAD的箱包CAD系统设计与开发毕业论文目录第1章 绪论11.1 研究的背景和意义11.1.1 研究的背景11.1.2 研究的意义11.2 国内外研究现状21.3 设计的内容与方法2第2章 AutoCAD二次开发和VBA语言42.1 AutoCAD二次开发介绍42.2 VBA开发语言52.2.1 VBA开发的技术特点52.2.2 VBA开发的优势62.2.3 ActiveX技术72.2.4 ActiveX对象的使用72.3 ADO数据库连接及操作技术82.3.1数据库系统概述82.3.2数据库种类82.3.3数据库系统的建立92.3.4AutoCAD ADO对象92.3.5数据库的连接和操作10第3章 箱包CAD/CAM系统的结构133.1 箱包CAD系统的结构133.1.1 常用工具栏143.1.2 专业工具栏143.2箱包CAM系统的结构15第4章 箱包CAD系统的设计与开发174.1 AutoCAD VBA编程步骤184.1.1AutoCAD VBA开发环境184.1.2 AutoCAD自定义菜单和工具栏204.2 箱包CAD工具的开发224.2.1 直线工具开发实例224.2.2 箱包CAD系统工具核心代码24第5章 箱包CAD原型系统265.1 系统菜单265.1.1 常用工具菜单265.1.2 专业工具菜单275.2 系统工具栏275.2.1 直线、角度线和垂直线按钮285.2.2 矩形、梯形和圆按钮325.3 箱包CAD系统应用简单实例36结论38参考文献39致谢4040浙江大学城市学院毕业论文图目录图目录图2.1 开发语言的发展进程4图2.2 ADO流程图10图3.1 箱包CAD/CAM系统结构13图4.1 箱包CAD系统的结构17图4.2 新建工程18图4.3 保存工程文件19图4.4 VBA的IDE19图4.5载入菜单文件22图4.6直线用户界面23图5.1 系统菜单26图5.2 常用工具菜单27图5.3 专业工具菜单27图5.4 系统工具栏28图5.5 直线窗体28图5.6 直线算法流程29图5.7 角度线窗体30图5.8 角度线算法流程图30图5.9 垂直线窗体31图5.10 垂直线算法流程图31图5.11 矩形窗体32图5.12 矩形算法流程图33图5.13 梯形窗体34图5.14 梯形算法流程图34图5.15 圆窗体35图5.16 圆算法流程图35图5.17 箱包CAD应用简单实例36图5.18导出实例中的所有数据36浙江大学城市学院毕业论文 第1章 绪论第1章 绪论1.1 研究的背景和意义1.1.1 研究的背景箱包 CAD 软件其狭义是指用于计算机辅助生产各式箱类(拉杆箱，旅行箱，储物箱等)和包袋类（男女时装包包，背包，登山包，高尔夫球袋等）的 CAD 应用软件；其广义是泛指应用于生产各类式帐篷，渔具用品，户外用品，医疗体育用品，床上用品，帽子及各种皮饰，布饰椅子和凳子的一套综合性的大型计算机辅助应用软件。1世界第一套箱包CAD是25年前以色列人研发的。软件名叫“Optitex”其软件行业应用非常广泛。具体到国内的箱包CAD软件有4家广州博凯，杭州时高，宁波易图，上海慧工，还有台湾的理星箱包CAD。15年前国内服装CAD基本上是国外CAD占有90%的市场。并且不能直接在软件上出样，只能放码，而且工具复杂难学。而发展90年代后，中国仿佛一夜间冒出了好多家服装CAD软件，有的软件已经可以在CAD上面直接出样了，软件也比较不难学了。但是师傅用起来还是感到不顺手，但是到04年一个叫ET的服装CAD的出现，短短几年的时间几乎占领了服装CAD市场一大半。原因就是这套软件综合了当前各个软件的优点，简化了操作的难度，并且优化了工具使用的自动化。让操作者感到非常好用，操作简单，并且能很快的达到操作之目的。这也就成功了。41.1.2 研究的意义随着科学技术的日新月异，设计概念的内涵和外延都在不断发生变化。工业设计将信息转变为商品价值，为推动社会发展做出了巨大的贡献。尤其是箱包设计也已经越来越受到世界各国和人们关注。对于箱包企业和箱包设计师来说，如何生产和设计出更轻、更薄、更精致，融时尚、个人品味、时代感于一体的箱包是他们今后要共同努力的方向。随着计算机技术、图形学和箱包技术等相关技术门类的发展，箱包CAD技术的发展总体趋于标准化、智能化、集成化、立体化、网络化和虚拟化。4如今人们对箱包的需求量越来越大，要求也越来越高，高档化、系列化、时尚化、款式更新快、品种多样化已成为箱包市场的一个特色。传统的设计和生产方式已经难以满足市场快速多变的需求。而已被某些工业广泛采用的CADCAM技术则引起了设计人员的注意。现代的箱包设计将变得更加的自动化跟机械化，而AutoCAD在这方面起到的作用是巨大的。1.2 国内外研究现状对于目前的箱包行业使用的箱包CAD软件来说，在功能上各有优点和缺点。“Optitex”的兼容性很好，但是功能不专，比较复杂；博凯实用性比较好。但是由于是用数据库的,所以稳定性比较差，有些先天的缺陷；时高、易图、慧工、市场占有率都很小，其软件问题就更多了；台湾理星软件本意是为制鞋研发的，箱包只是它衍生出来的个模块，所以应用性也比较差了；到目前为止还没有任何一家的软件能完全做到符合箱包生产所需要的功能的。有些还是要靠手工制作才可以完成。在使用范围上，国外软件比国内的要广泛很多了。目前国内的箱包CAD软件都是局限与箱内和包袋类的。如果应用到帐篷上都不是很好，“Optitex”侧是广泛应用于服装,家具,箱包等几乎所有布类，皮类制品的一个综合性的软件。21.3 设计的内容与方法本课题研究的主要内容是设计与开发一个箱包CAD系统，掌握箱包的结构和设计过程，熟悉AutoCAD的二次开发环境，了解AutoCAD的二次开发语言和工具，掌握AutoCAD二次开发的方法和关键技术。根据任务书的要求，本毕业设计的主要设计内容如下：（1）分析箱包的结构、设计过程；（2）研究箱包CAD系统功能框架、主要算法设计流程；（3）开发箱包CAD常用工具；（4）设计并开发一个基于AutoCAD的箱包CAD原型系统软件；利用VBA对AutoCAD进行二次开发的技术基础，分析研究基于Active X技术和应用面向对象方法开发AutoCAD的有关问题，掌握AutoCAD二次开发的基本思路、主要步骤和具体方法。浙江大学城市学院毕业论文致谢第2章 AutoCAD二次开发和VBA语言2.1 AutoCAD二次开发介绍AutoCAD是Autodesk公司的系列产品，该软件从其使用和设计思路上都秉承了工程制图人员的绘图习惯，能够非常轻松地绘制出带有平面视图和三维渲染效果的工程图纸，是绘图人员的一个理想工具，随着CAD基础理论和应用技术的不断发展，对CAD系统的功能要求也越来越高。因而AutoCAD不可能完全满足每个用户的具体而特定的要求。设计人员希望它能从本质上减轻大量简单繁琐的工作量，使他们能集中精力于那些富有创造性的高层次思维活动中。8 9AutoCAD提供的开放式体系结构允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大程度地满足用户的特殊要求，更方便、更规范、更专业的实现设计和绘图中的应用。AutoCAD二次开发，有很多不同层次的语言和库可供选择。迄今为止，AutoCAD二代三代开发工具，如图2.1所示图2.1 开发语言的发展进程首先是VisualLisp和AutoLisp。Lisp是一门历史悠久的函数式编程语言，很多概念和C这种过程式语言不一样，据说他在人工智能等方面有广泛的应用。CAD引入了这种语言，给他添加相应的函数库，就成了命令行使用的AutoLisp。在此基础上再增加关于对话框和窗口界面的库，就是VisualLisp，简称VL。VL在CAD中可以视为CAD命令的整合，是脚本语言，而且由CAD程序提供了编写环境。因此上手相当容易，便于编写，调试也很方便。第二大类是使用ActiveX和VB。ActiveX是Microsoft提出的一组使用COM(Component Object Model，部件对象模型)使得软件部件在网络环境中进行交互的技术集。ACAD使用Acitvex把数据传送给ActiveX程序，程序处理后再传回ACAD。这个过程有点像浏览器浏览动态网站。AcitveX与具体的编程语言无关，因此理论上说可以用任何一种支持他的语言来编写，但通常大家选择VB语言。VBA是VB的特殊形式，他将VB植入到应用程序中。ACAD包含的VBA能够和CAD共享地址空间，而独立的VB则需要通过接口完成。这种方法在编写上比Lisp复杂，调试也困难。但速度快，功能更强劲。但是在某些对速度要求相当高的运算和涉及CAD内部的应用上仍然会显得力不从心。对于熟悉VB语言又不想学习Lisp奇怪语法的开发者来说，这是不错的选择。12第三大类就是ADS ARX 和ObjectARX。ADS是AutoDesk从ACAD R11开始提供的C编程环境。它具有C的一切优点，又能操作CAD。但他和ActiveX类似是通过管道通讯的。ARX(AutoCAD Runtime eXtension)是在ADS基础上发展的面向对象的环境，使用C+语言。最终ARX进化为ObjectARX，他完全面向对象，并且是以dll(动态链接库)的形式共享CAD的地址空间。由于先前的ARX已被包含为子集，人们也就简称ObjectARX为ARX。在CAD2006以前，只能使用C+语言和VC编译器来生成ObjectARX程序。但目前已经可以使用VB.net C# C+等语言配合VisualS编译器来生成ARX程序了。要选用何种语言进行二次开发，需要开发人员按照所开发系统的功能特性进行筛选来决定。2.2 VBA开发语言2.2.1 VBA开发的技术特点VBA是微软开发出来的应用程序共享一种通用的自动化语言，它可以使常用的程序自动化，并可以创建自定义的解决方案。VBA被集成到AutoCAD中，VBA和 AutoCAD中强大的ACtiveX 自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。通过VBA，我们可以操作AutoCAD软件，控制ActiveX和其它一些应用程序，使之相互之间发生互易活动。 下面就是VBA的主要功能： （1）VBA提供强大的窗体创建功能，为应用程序建立对话框及其他屏幕界面。 （2）可以创建自己的工具条。 （3）可以创建功能强大的模块级宏指令，宏名实质上就是模块的过程名。 （4）提供建立类模块的功能，这对开发大型工程非常有用，因此类可以提供重用组。 （5）具备完善的数据访问和管理能力，通过ADO(ActiveX Data 0bjects)，可以对Access数据库或其他外部数据库 (像dBase，FOxPro等)实现访问和管理。此功能比直接使用AutoCAD的数据库管理系统要方便，且功能强大。142.2.2 VBA开发的优势（1）VBA能够使 AutoCAD于其它应用程序直接共享数据，如Microsoft Office软件。因为所有的VBA应用程序都可以方便的相互沟通，在设计过程中可以很容易得将 AutoCAD与基于windows的应用程序联系起来。（2）在 VBA综合开发环境中，可以通过拖动图表的方法，简单而可视化的建立用户界面用户可以使用AutoCAD工具栏，也可以使用标准 VBA界面工具创建新的工具栏。 （3）VBA的语言代码完全继承了 VB的特征，可以说是世界上最简单的编程语言，但其功能不弱。从数据计算，书库管理到Intemet软件开发，都可以见到VB的身影，并可通过各种在线帮助，随时得到名师真传。 （4）具有全开放式的对象模型。AutoCAD软件中的ActiveX对象模型十分有用，它显示了每一个对象的方法和属性，用户可以按照自己的愿望编程或定制AutoCAD软件。（5）良好的运行速度。VBA是一个内嵌式的控制器，共享AutoCAD的内存空间，可以更好的与 AutoCAD沟通。其运行速度与ObjectiRX应用程序非常接近，比其它开发方式(如：ADSRX，ADS和LISP)要提高许多。无论编程技术水平如何，使用VBA编程都不会感到有很多困难。自从带有VBA开发接口的AutoCAD R14发行以来，已经有超过80万的开发者使用了这一软件，开发的应用程序将有更多机会为不断增长的用户群体服务。152.2.3 ActiveX技术对AutoCAD的二次开发可以通过ActiveX技术来实现，利用ActiveX技术，通过编程，用户可以在自己的应用程序中方便地对另一应用程序进行操作。自AutoCAD R14后，AutoCAD都支持该技术，这样许多面向对象的语言和应用程序都可以通过该接口从AutoCAD内部或外部来操纵AutoCAD暴露的对象。在AuotCAD中，几乎暴露了所有对象，也就是说，用户可以操作几乎所有的AutoCAD对象。AutoCAD VBA是受ActiveX技术支持的，从运作上看，VBA通过AutoCAD ActiveX Automation接口将信息传送给AutoCAD，而AutoCAD VBA也允许VBA环境与AutoCAD环境同时执行并通过ActiveX Automation接口提供AutoCAD的程序。如此，AutoCAD、ActiveX Automation与VBA的结合方式，提供了功能极强大的接口，不仅可以操作AutoCAD的内部对象，更可以在其他的应用程序之间传送或接受数据。152.2.4 ActiveX对象的使用AutoCAD暴露的这些对象是以层次式结构来组织的，其根部是应用程序对象，对象的继承阶层结构就称为“对象模型”。VBA访问AutoCAD对象的原则是按照对象模型进行访问。VBA提供了一个特殊的对象Thisdrawing，它是AutoCAD VBA的一个术语，代表当前打开的AutoCAD图形文件。在创建实体对象之前，要确定实体将放于何处，并且要先引用这个对象。创建实体采用AddEntity形式的方法，即“创建（Add）”+“实体名字（Entity name）”。2.3 ADO数据库连接及操作技术2.3.1数据库系统概述数据库系统是由计算机软、硬件资源组成的系统，它实现了有组织地、动态地存储大量关联数据，方便多用户访问。通俗地讲，数据库系统可把日常的一些表格、卡片等的数据有组织地集合在一起，输入到计算机，然后通过计算机处理，再按一定要求输出结果。所以，对于数据库来说，主要解决三个问题：（1）有效地组织数据，即对数据进行合理设计，以便计算机存取；（2）方便地将数据输入到计算机中；（3）根据用户的要求将数据从计算机中抽取出来。我们这里主要是解决第3个问题，任何将数据库中，满足要求的数据，抽取出来，进行设计。2.3.2数据库种类数据库在发展过程中诞生了层次型、网状型、关系型三种类型的数据库。其中，关系型数据库具有更完美的内在机制，它建立在严密的关系代数基础之上，可以通过SQL标准查询语言实现对数据库的操作。因此，自上一个世纪80年代来，关系型数据库成为了主流数据库而被广泛应用。包括大型数据库，如Oracle,SQL Servwe和桌面数据库，如Access，FoxPro都属于关系型数据库。在VBA环境下，Access数据库是缺省数据库，Access所采用的Jet数据库引擎得到了最有效的利用，例如VBA的内部数据访问控件（Data）就是建立在Jet引擎基础上的。因此，我选用Access数据库建立数据库。Access 数据库管理系统是Microsoft Office 套件的重要组成部分。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。2.3.3数据库系统的建立在Access 数据库系统中，信息以数据库形式为文件单位储存到介质如磁盘、光盘中。其数据库文件扩展名为MDB。在“程序”菜单中会出现Microsoft Access项，单击“开始” / “程序” / “Microsoft Access” 。启动后会出现一个对话框，对话框中有两个组合框，选择“Access 数据库向导”，单击“确定”。接着选择“常用”中的“数据库”，单击“确定”，接着找到合适的存储地方，单击“确定”，出现一个新页面，双击“通过输入输入数据创建表格”，最后根据需要输入字段，输入完毕后，保存。这样一个数据库就建好了。2.3.4AutoCAD ADO对象AutoCAD的dbconnect功能可以在AutoCAD环境下配置数据库，还可以直接连接到外部数据库，纸箱数据的浏览、查询和管理。可以通过VBA与ADO（Microsoft ActiveX DataObjects）的结合使用达到与外部数据库连接的目的。ADO是以OLEDB为基础的面向对象的应用程序接口，核心是Connection、Command和Recordset对象。Connection对象用于建立与数据源的连接，Command对象可以在数据源中添加、删除或才更新数据、或者在表中查询数据、Recordset对象只代表记录集、在ADO对象模型中所有对数据源的操作几乎都是Recordset对象完成的。把从数据库中检索出的数据和AutoCAD编程对象方法中的参数进行加护，就可以在AutoCAD环境下实现基于外部数据库应用的流程图件图2.2VBA工程Automation对象ADO对象AutoCAD应用OLEDB数据库图2.2 ADO流程图2.3.5数据库的连接和操作首先应该连接数据库到AutoCAD，这样就可以调用数据库指令。（1）定义工程文件路径和对象以及记录集对象：Public strPath01 As StringDim adoCon01 As Connection Dim adoRs01 As Recordset（2）必须先获得当前的工程路径： strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName（3）连接数据库： Set adoCon = New Connection adoCon.CursorLocation = adUseClient adoCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Left(strPath, Len(strPath) - 14) & *.mdb;（4）打开记录集： Set adoRs = New Recordset adoRs01.Open lianzhouqi,adoCon,adOpenDynamic, adLockOptimistic（5）将型号添加到列表框中： RefreshList 为刷新列表框子程序 If adoRs.RecordCount 0 Then adoRs.MoveLast adoRs.MoveFirst ExchangeData 为根据字段名称或索引访问控件内容 End If这样数据库就已经连接上，我们可以对他进行各个事件的操作。（1）首先是刷新列表框子程序，通过下面这个子程序，在“ListBox”控件中，将列出数据库中第“01”列的所有数据。Private Sub RefreshList () ListBox.Clear Dim i As Integer adoRs.MoveFirst For i = 0 To adoRs.RecordCount - 1 ListBox.AddItem adoRs.Fields(01) If Not adoRs.EOF Then adoRs.MoveNext End If Next iEnd Sub（2）通过下面这个子程序，我们可以根据字段名称或者索引均可以访问其内容，让数据库中的各列中的数据显示到对应的“TextBox”中。 Private Sub ExchangeData() TextBox1.Text = adoRs.Fields(02) TextBox2.Text = adoRs.Fields(03) TextBox3.Text = adoRs.Fields(04) TextBox4.Text = adoRs.Fields(05) TextBox5.Text = adoRs.Fields(06) TextBox6.Text = adoRs.Fields(07)End Sub（3）通过下面这个子程序，我们可以根据字段名称或者索引确定参数值。Private Sub CommandButton5_Click()X1 = TextBox1.Text X2 = TextBox2.Text X3 = ListBox3.Text X4 = ListBox3.TextX5 = TextBox5.TextX6 = ListBox6.TextEnd Sub （4）最后关闭连接和记录集：adoRs.CloseadoCon.Close第3章 箱包CAD/CAM系统的结构箱包CAD/CAM系统分为CAD（Computer Aided Design，计算机辅助设计）和CAM（Computer Aided Manufacturing，计算机辅助制造）两部分体系组成。CAD部分称做出格系统，而出格系统的功能包括常用工具、裁片对位、背包抛围、打褶、打角、专业工具、导出物料表格。CAM部分由排料系统和输入输出两部分组成，排料系统包括自动排刀、打印导出排刀报告、手动排刀、分床排料、分色排料，输入输出包括自动切割控制和数字化仪。整个系统的结构如图3.1。箱包CAD/CAM系统箱包款式设计裁片结构设计裁片排料仿真系统二维设计排刀排料CAM系统CAD系统三维设计图3.1 箱包CAD/CAM系统结构3.1 箱包CAD系统的结构箱包的CAD出格系统具有很多为箱包特别设计的工具栏，解决了普通CAD软件无法完成的很多功能，出格系统包含箱包、手袋的款式设计到实样的生产跟管理。出格系统能是出格师傅从繁琐的手工操作中解放出来，大大提高了生产效率，缩短了生产周期，降低了生产成本。为箱包、手袋行业的产业升级带来了革命性的突破。出格系统能使箱包、手袋行业真正实现了从手工操作向自动化过度的课程。3.1.1 常用工具栏箱包CAD的出格系统包含了很多的传统的工具栏，这是我们设计箱包必须需要的一些工具栏，比如传统中的直线、矩形、曲线等传统工具栏。这些工具在AutoCAD二次开发基础上使用人机交互界面创建，区别于AutoCAD原始工具。我们常用的一些工具操作非常简单，比如梯形上底，下底，高输入正确的数值即可完成；直线中点会自动捕捉；拉链窗操作更加快捷，有好几种叉刀的选择；加逢边工具，可向内或者向外加；对于车逢边不同系统提供了修改缝边工具；牙位工具，不同的位置系统会自动判断；输入文字，自由输入，可以把常用的文字存储在系统中，下次直接调用，不需要人工书写，清晰明了。3.1.2 专业工具栏裁片对位工具非常的专业，两纸格之间的车缝，埋袋；系统自动在对应的纸格上找到相应的牙位及长度；更快，更准确。（手工操作用锥子慢慢的对版）打角智能的双线工具，方便做两线的等长；里布的打角，过一点做两边等长的垂线更加人性。 打褶强大的打褶功能，特别是时款袋经常会打些褶。多褶，单褶，工字褶系统很方便的就可以做出来，而且我们时时可以预览到打褶的形状。 背包抛围侧片展开功能非常独特。因为背包的前后片还比较好操作，但是围片的操作是一件很麻烦又耗时的工作，系统把烦锁的抛围对版工作用科学的方法计算出来。 我们只需要用侧片展开工具，直线走两点，曲线走三点即可完成。曲线编辑一个袋版是否美观，对弧线的要求很严格。系统提供了对曲线强大的编辑功能，可以完成任何形状的曲线操作，自由加减点。这边做好之后，另外一边复制对称过去，还可以对称修改。自由曲线，要什么形状都可以，形状不变改变线长，固定两端改变线长，线长不变改变形状这些功能完全可以达到复杂而灵活的出格工作。快捷工具对于一些狗牙，裁片分解；系统单独提供了线上阵列，裁片提取工具，转眼之间就可以完成。这些实用的工具，都会让我们感受到在使用计算机出格的时候事半功倍。导出表格方便的资料交互：生存裁片之后，系统很方便的将做好的纸格导出EXCEL表格中，瞬间完成每个纸格的用码量计算；自动计算出纸格的周长、面积等数据，方便后道工序的算料报价。数字化仪对于外来纸格或者需要描版：系统提供对数字化仪输入的完美线型，独创一手输入，只需掌握几个数字就可以完成纸格的录入工作；直线，曲线，牙位一次完成；当然更提供了修改版型随意操作。 切割机一套纸格做好之后，输出到切割机只要一个键即可完成；用电脑平板切割机直接切割出纸格，替代了传统的介刀，减轻出格师傅的劳动强度。通过这些特定的工具栏我们可以很好的做出符合设计跟工艺要求的是箱包模型，这些工具是CAD出格系统的重要组成部分，因为箱包设计有很多工艺设计需求，而出格系统囊括了这些专业的工具栏。这些工具栏是独一无二的，能够很好的针对这个箱包模型设计。3.2箱包CAM系统的结构箱包CAM系统由排刀跟排料系统组成。排刀系统能够让出格后的裁片在规定的范围内进行合理的排放，排刀的系统能够对按设定好的方案系统会运算并显示出排刀的样式。排料有称排版，是指将此箱包的裁片样板在规定的面料幅宽内合理排放的过程。排料是进行辅料和剪裁的前提。箱包的CAM系统最本质的特性就是其灵活性。它能够从款式库中调出箱包款式，对其进行板型设计后，再根据箱包号型表进行放码，接着在几分钟内即可完成排料过程。自动排刀根据出格师傅的裁片自动计算物料、多种排刀方案可供选择，打印导出排刀完成后，我们可以把排刀报告打印出来，做个开料的指导图，而且这张图纸会跟着生产单一起走到开料那里。详细的一些数据同样可以导出EXCEL表格中排料统计表，每一个裁片的单位用量，用码量，一目了然。 手动排刀手动组合方案，人机交互式的，排料师傅根据经验手动调整；系统提供裁片各个方向的移动、翻转、复制等工具，很快完成排刀工作。分床排料根据产品的类型，所用的物料属性，自动分床管理，避免错排、漏排分色排料系统可以根据不同的分床方式提供不同的颜色区分开裁片显示。排料系统能够将纸样依工艺程序（正、反面）形成能紧密粘合的不同的形状的排列组合，以其最经济地使用布料，达到降低产品成本的目的。排料是进行辅料和剪裁的前提。通过排料，可知道用料的准确长度和样板的精确摆放次序，使辅料有剪裁有所依据。所以排料工作对面料的消耗、剪裁的难易、箱包的质量都有直接的影响，是一项技术性很强的工艺操作。排料的原则必须得保证设计的要求，当设计的款式对面料的花型有一定的要求时，排料的样板便不能随意放置，必须保证排除的衣片在缝制后达到设计要求。本文主要研究CAD系统部分，主要介绍出格系统工具。常用工具包括矩形、直线、梯形、曲线、三点弧、封闭曲线、垂直线、角度线、自由点、位移点、等分工具、裁剪、连接、双线、测量、删除、剪切。专业工具包括相交平行线、多线相交平行线、平行线、圆角、角平分线、延长线。打褶工具包括工字褶、单褶、多褶。第4章 箱包CAD系统的设计与开发箱包CAD系统大致可分为传统工具栏和专业工具两个部分。其中，传统工具栏包括直线、矩形、梯形等等，专业工具包括裁片对位、曲线编辑、打褶打角等等。箱包CAD系统的结构如图4.1。传统工具栏直线矩形梯形圆、圆弧垂线角度线点工具等剪切、剪断箱包CAD系统专业工具栏裁片对位背包抛围打褶打角曲线编辑快捷工具导出表格图4.1 箱包CAD系统的结构4.1 AutoCAD VBA编程步骤4.1.1AutoCAD VBA开发环境在AutoCAD2004的环境中，选择【工具/宏/VBA管理器】在菜单项，系统会弹出【VBA管理器】对话框。单击【新建】按钮，在当前图形中新建一个名称为 AutoCAD Project的全局工程，如图4.2所示。图4.2 新建工程在【工程】列表中选择AcADProject，单击【VBA管理器】对话框中的【另存为】按钮，系统弹出的【另存为】对话框。在对话框的保存位置下拉列表指定工程文件的保存路径，并在对话框的文件名位置输入“箱包CAD系统”，单击【保存】按犯，如图4.3所示。图4.3 保存工程文件在【工程】列表中选择ACADProject，单击【VBA管理器】对话框中的【VsualBasic编辑器】按钮，进入AutoCAD2004的集成开发环境(IDE)，在VBAIDE(集成开发环境)的左侧，分布着【工程资源管理器】和【属性】窗口，【工程资源管理器】中显示了当前打开的工程名称，以及该工程的文件结构。在【工程资源管理器】窗口中选择【视图/代码窗口】菜单项，或者直接双击ThisDrawing，系统会弹出代码窗口，在这个窗口添加语句进行编程。如图4.4所示。图4.4 VBA的IDE单击【工程资源管理器】窗口中的工程名称AcADproject，在属性窗口中将项目名称修改为“箱包CAD系统”。选择【插入/用户窗体】菜单项，向程序中添加一个窗体，Caption属性设置为“直线”，系统就会在IDE创建一个窗体。在这个窗体上分别建立6个控件来实现总体设计。在【工具箱/控件】有多种控件供使用。在这里介绍本研究使用到的主要控件。（1）框架控件，它的作用是分组，即是将窗体划分区域，将其在属性窗口修改其Caption属性，即显示该框架的标题；（2）图像控件，是VBA应用程序中显示图像最常用的一个控件，它能够显示位图、图标、光标、元文件、GIF和JPEG等常用的图像文件；（3）命令控件，其最常用的Click事件，即是我们常用到的“确定”或者“取消”按钮；（4）选项控件，能够显示一个可以打开或者关闭的选项，单选按钮一般是几个一组，每次只能选择其中一个，其Caption属性是在单选按钮后显示文字，说明其作用；Value属性判断单选按钮的选择状态，True表示已经选中，False表示没有选中；（5）复选框控件，主要用来设置某一个选项的开关状态，其主要属性是，Caption：在复选框后面显示说明该复选框作用的文字；Value：确定复选框的状态，0为没有选中，1为已选中，2为不可用；（6）复合框控件，提供带有选项的输入文本至TextBox中，单击向下的箭头按钮，从下拉列表中选择所需选项；（7）文字控件，允许运行期间输入文本信息，通常要给控件的Text属性指定一空字符(“”)对它进行初始化，以清除不再需要的数据；（8）标签控件，用来显示标题或说明性文字内容，程序运行时一般不允许用户修改这些文字，可以在“属性”窗口中修改其Caption属性，或者使用程序代码在运行中修改。4.1.2 AutoCAD自定义菜单和工具栏为了在设计箱包过程中更容易调用需要将各个工具功能增加到AutoCAD的菜单文件中，AutoCAD做菜单的方法有两种，一种是用CAD的菜单文件，另一种就是用VBA代码直接生成菜单。而本文中所用的是用菜单文件生成菜单的方法。CAD菜单文件是文本文件，用记事本就可以打开并编辑它。mns为后缀的菜单文件是源菜单文件。可通过新建记事本并编辑菜单文本再保存为mns格式来创建菜单文件。本次设计的mns菜单文件（BagCAD.mns）内容如下：/ AutoCAD 菜单文件 - D:毕业设计菜单BagCAD.mnc*MENUGROUP=BagCAD*TOOLBARS*BAGCADID_BagCAD_0 _Toolbar(BagCAD, _Right, _Show, 0, 1, 1)ID_UserButton_4 _Button(导出表格, RCDA9169.bmp, RCDA8467.bmp) (vl-vbarun bianli) ID_UserButton_5 _Button(矩形, RCDA5724.bmp, RCDATA_16_BLANK) -vbarun jxMID_UserButton_6 _Button(直线, RCDA1478.bmp, RCDATA_16_BLANK) (vl-vbarun zhixian) ID_UserButton_0 _Button(垂直线, RCDA.bmp, RCDATA_16_BLANK) (vl-vbarun chuizhixian) ID_UserButton_1 _Button(角度线, RCDA65.bmp, RCDATA_16_BLANK) (vl-vbarun jiaoduxian) *HELPSTRINGSID_USERBUTTON_5 矩形ID_USERBUTTON_6 直线ID_USERBUTTON_0 垂直线ID_USERBUTTON_1 角度线ID_USERBUTTON_4 导出坐标到Excel/ AutoCAD 菜单文件 - D:毕业设计菜单BagCAD.mnc打开AutoCAD2004输入命令menuload回车后出现【菜单自定义】窗口，单击【浏览】按钮，找到BagCAD.mns文件，单击【加载】载入文件，单击【关闭】完成操作。如图4.5所示。图4.5载入菜单文件4.2 箱包CAD工具的开发传统工具栏包括直线、矩形、梯形、圆、圆弧、垂线、角度线等工具。这些工具是箱包设计过程中的基本工具，也是大部分工业制图的基础工具。专业工具栏包括裁片对位、打脚打褶、导出表格、曲线工具等工具。这些工具是箱包服装类设计过程中的专业工具。4.2.1 直线工具开发实例打开AutoCAD2004进入Visual Basic编辑器，在BagCAD工程中插入【用户窗体】和【模块】，用【工具箱】添加控件，完成【用户窗体】，并在【模块】和【用户窗体】中编写程序。如图4.6所示。图4.6直线用户界面直线工具的开发过程如下：（1）要实现画直线功能在【模块】中添加如下代码。Public Sub zhixian()画直线鼠标拾取起点和终点spoint = ThisDrawing.Utility.GetPoint(, 输入:)epoint = ThisDrawing.Utility.GetPoint(spoint, 输入:)算出拾取两点的距离和两点连线的角度UserForm2.TextBox1 = Round(Sqr(epoint(0) - spoint(0) 2 + (epoint(1) - spoint(1) 2), 2)UserForm2.TextBox2 = Round(ThisDrawing.Utility.AngleFromXAxis(spoint, epoint) * 180 / pi, 2)将控制权交给用户窗体UserForm2.ShowEnd Sub（2）在直线用户窗体中双击【确定】按钮写入如下代码。定义的值Const pi = 3.14159265358979Public Sub CommandButton1_Click()错误控制On Error GoTo line1Dim pten As Variant调用自定义角度转换函数pten =GetPointAR(spoint, CDbl(TextBox2.Text) * pi / 180, CDbl(TextBox1.Text)创建直线ThisDrawing.ModelSpace.AddLine spoint, pten关闭当前用户窗体Unload MeEnd Sub（3）在直线用户窗体中双击长度输入框写入如下代码。Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)控制输入参数Select Case KeyAscii Case Asc(0) To Asc(9), vbKeyBack Case Asc(.) 允许一个小数点 If InStr(1, TextBox1.Text, .) 0 Then KeyAscii = 0 Case Else KeyAscii = 0End SelectEnd Sub4.2.2 箱包CAD系统工具核心代码（1）矩形工具核心代码及说明根据两对角点坐标确定四定点坐标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)用多线段新式创建矩形Set juxing = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptarr)juxing.Closed = True 封闭多线段（2）角度线、垂直线工具核心代码及说明。选取直线对象ThisDrawing.Utility.GetEntity returnobj, ept, 选取对象判断选取对象Select Case returnobj.ObjectName Case AcDbLine Set ly1 = returnobjCase AcDbPolyline Set ply = returnobj ply.Explode MsgBox 请重新选择对象！ GoTo line2 Case Else MsgBox 对象错误！请重新选择！ GoTo line2 End Select（3）梯形核心代码及说明计算各个角点的坐标，并创建闭合多线段appr(0) = pt1(0) - CDbl(Trim(TextBox1.Text) / 2: appr(1) = pt1(1) + CDbl(Trim(TextBox3.Text)appr(2) = pt1(0) + CDbl(Trim(TextBox1.Text) / 2: appr(3) = pt1(1) + CDbl(Trim(TextBox3.Text)appr(4) = pt1(0) + CDbl(Trim(TextBox2.Text) / 2: appr(5) = pt1(1) - CDbl(Trim(TextBox3.Text)appr(6) = pt1(0) - CDbl(Trim(TextBox2.Text) / 2: appr(7) = pt1(1) - CDbl(Trim(TextBox3.Text)Set acadtx = ThisDrawing.ModelSpace.AddLightWeightPolyline(appr)acadtx.Closed = True第5章 箱包CAD原型系统5.1 系统菜单本次设计的箱包CAD系统菜单包括常用工具菜单和专业工具菜单，常用工具菜单包含直线、矩形、圆等常用作图工具，专业工具菜单包括裁片对位、背包抛围、打褶、打角、曲线编辑、导出表格等菜单和菜单模块。另部分为箱包CAM系统菜单包括排刀工具菜单和排料工具菜单。其中箱包CAM系统部分非本次设计所作。箱包CAD/CAM系统的菜单可从AutoCAD菜单文件添加，也可设置快捷键。箱包CAD/CAM系统的总菜单如图5.1。图5.1 系统菜单5.1.1 常用工具菜单常用工具菜单包含直线、圆、矩形、梯形、点、角度线等常用的作图工具，这些工具是工程制图中最常见的工具。这也是作为箱包设计中不可或缺的一部分。这些功能在AutoCAD中除了梯形、垂直线、角度线都有原型存在，而本次设计采用人机交互界面实现这些功能。图5.2 常用工具菜单5.1.2 专业工具菜单图5.3 专业工具菜单专业工具菜单包含裁片对位、打褶、曲线编辑菜单块和背包抛围、打角导出表格等工具。裁片对位是箱包和服装类设计软件的必须工具模块，该模块包括牙型牙位、裁片拼接、搭位等工具。背包抛围根据前后片之间的距离展开背包侧片，并用镜像、平移等功能完成抛围工作。打褶菜单包括单褶、多褶和工字褶等功能，是现代箱包设计的流行元素。打角功能从基础图样中设计边角使其成型从而可以生成裁片。曲线编辑菜单模块包含自由曲线和封闭曲线，工具建立曲线后可通过修改控制点来完成设计需要的曲线形状。导出表格功能为导出裁片信息、物料信息。5.2 系统工具栏系统工具栏从菜单文件中加载，在AutoCAD环境中的自定义工具栏功能可对工具栏和按钮进行修改。工具栏共有常用工具栏和专