Sub txt-01zdzh()’成立文本

　　ThisDrawing. ActiveLayer = l1csx

　　将自动加载dvb 措施呼吁添加到菜单，并在设置对话框中添加的措施文件路径。

　　6 结 语

　　point2(0)= pthes(22)：point2(1)= pthes(23)

　　操作通用的图形图像计划软件直接计划服从不高，而专业软件不行能顺应全部的企业，并且这些软件都很昂贵。针对包装容器的出产加工，怎样探求一种有用的途径，既满意差异企业本性化需求，又能收缩计划周期、大大低落人力、物力本钱，进步计划服从，是很多企业盼愿实现的。虽然，平面装潢计划包括了太多艺术因素，具有太多的可变性，难以用措施实现，因此，本文将接头差异包装企业，以AuotCAD 为平台，怎样利便的实现包装容器布局工程图形的自动计划天生。

　　2 Auto CAD 内嵌的VBA 组件实现包装布局图形自动计划办理方案

　　Dim dimobj As AcadDimAligned

　　. . .‘其余点坐标表达式省略

　　txt = . . .‘(详细文本内容按照必要给定)

　　虽然，要实现包装布局自动计划体系的二次开拓，岂论用哪种开拓器材，都必需在参数化和图形库与成果构素库技能上下工夫，只有这样体系才气真正高效。本文以一种折叠纸盒为例，先容操作AutoCAD 的VBA 组件举办二次开拓实现工程图自动天生的办理要领及详细实现。

　　5. 3. 1 建设图形工具;(以盒盖为例)

　　ThisDrawing. Linetypes. Load " center" ，" acadiso. lin"

　　5. 4 添加自动加载dvb 措施呼吁和措施文件路径

　　所谓成果构素就是组成完备包装容器的成果部位布局元素，全部成果构素的荟萃则构乐成能构素库[。成果构素办理组成完备布局的差异成果部位，在每个部位都有多种布局供选择环境下，各个成果部位布局恣意组合题目，使得用很少的局部成果布局元素的参数化计划( 即很小的成果构素库)，就可以高效的获得许多种布局组合，以满意用户需求，而不必每种布局都计划。各类详细的包装布局将从成果构素库中挪用构素组合而成，实现构素的复用。

　　For i = 0 To 29 ’画实线

　　AutoCAD 体系的二次开拓指由既认识专业产物计划又把握计较机应用技能的职员在AutoCAD 平台上开拓出针对某类产物的专业CAD 应用软件。二次开拓实现图形计划及自动天生是对CAD 软件更高条理的运用。

　　Dim txt00zdzh As AcadMText

　　Set l1csx = ThisDrawing. Layers. Add(" l1csx" )

　　在AutoCAD 呼吁行执行vbaide 呼吁打开VBA 集成开拓情形，该情形与VB 的开拓情形靠近。将计划、运行、调试集成，以Thisdrawing 文档组织，按照必要添加模块、实现人机交互的窗体等工具，以dvb 文件生涯工程全部信息。右键点击工程，在快捷菜单中选添加，选择窗体呼吁，即可成立一个新的窗体。按照人机交互必要成立响应的工具。

　　5. 2 初始化图层

　　从AutoCAD R14 开始，VBA 就成为AutoCAD 尺度的嵌入组件。VBA 起着一种接口浸染，把微软推出的VB 开拓器材的强盛开拓成果与AutoCAD 富厚的图形工具有机团结起来，形成强盛的工程图形二次开拓成果。VBA 组件基于可视化、面向工具开拓器材VB，其开拓情形与VB 集成开拓情形临近，但较Autolisp / Visuallisp、ADS / ARX 等开拓器材，更能快捷、利便地实现友爱的人机交互，成果强盛、扩显现机动且开拓简朴，易于实现。

　　(points，240，txt)

　　图1 为包装布局图形自动计划办理方案，分为开拓阶段和应用阶段。开拓阶段首要是从专业计划入手，说明图形( 因为本文例程图形简朴，故省掉该环节)、分别成果构素、参数化、编写dvb 措施;应用阶段通过前期计划提供的数据，活塞杆，同时将dvb措施自动加载，然后直接执行实现自动计划天生。下面是详细的实现进程。

　　右键点击工程，在快捷菜单中选添加，选择模块呼吁，即可成立一个新的模块。图层初始化要领如下：

　　point(s i) = pthega(i i)

　　pthega(i 0)= 0：pthega(i 1)= 0 ’1

　　Dim location(2)As Double

　　5. 5 运行呼吁实现图形自动天生

　　5. 3. 2 建设标注工具;(以盒身为例)

　　参数化计划，就是在给定布局情势的前提下，依据必然的参数，自动天生响应的计划。参数画图则是通过输入计划的首要参数，对尺度图样举办变量代换，实现参数化画图，最后天生切合计划要求的图形。这种要领的利益是可以或许和计划模块毗连起来，自动出图，实现真正的计较机帮助计划，从而极大地进步计划服从。参数化计划是新一代CAD 技能的根基特性，是实现计划进程自动化的有用本领之一，它不只使CAD 体系具有交互式画图成果，还具有自动画图成果。

　　运行主菜单“包装实例”下的“折叠纸盒”呼吁，在弹出的对话框中输入长、宽、高、插塞尺寸、讨论尺寸等已知前提即可自动天生折叠纸盒出产工艺单。

　　Sub dim-hes()’程度标注

　　’程度总尺寸

　　5 编写成果构素画图措施

　　= b + 50

　　Public l1csx As AcadLayer ’界说图层工具：

　　AddLightWeightPolyline(points)

　　l1csx. color = acblack

　　Sub draw-01hega(i )’画盒盖

　　包装CAD 的图形分平面装潢与外面造型、包装布局工程图形(如出产工艺单)2 大类。平面装潢通过Photoshop、Illustrator、CorelDRAW、Freehand 等实现，包装造型部门通过3DMax、Rhino、Maya、Pro / E、UG 等实现;包装布局工程图形计划既可以运用Pro / E、UG、AutoCAD 等软件直接计划绘制，也可以操作必然的平台二次开拓实现自动计划天生。今朝，海表里也涌现出一批优越的包装计划专业软件，如packdesign2000、方正包装3. 0。

　　如图2 所示，对盒盖成果构素标点1 - 15 点，以盒盖的第1 点为坐标原点，程度偏向为x 轴，竖直偏向为y 轴成立坐标系，则全部坐标点被参数化为含L、B、H、kcs、kjt 相干的表达式。

　　1 AutoCAD 体系二次开拓概述

　　AutoCAD 是AUTODESK 公司推出的基于微机的当现代界应用最为普及的CAD 体系，回收开放式系统和精采的二次开拓情形，很多机器、电子、构筑行业的专业软件都是在其基本上二次开拓获得的。AutoCAD 先后提供了Autolisp / Visuallisp、ADS / ARX、VBA 这3 种首要的开拓器材。从今朝的应用看，Autolisp 是最初的开拓本领，已被Visuallisp 代替;ADS 将慢慢被成果强盛的ARX 所代替;VBA 则成为AutoCAD 用户二次开拓的另一支出产军。AutoCAD 提供的几种开拓器材平分秋色，让种种开拓者都能有得当于本身的开拓器材。

　　通过成果构素分别，别离编写了几种盒底和盒盖，自由组合获得多种布局，表白Auto CAD 内嵌的VBA 组件是实现包装布局自动计划的一种有用办理方案。该要领简捷、有用、适用、易实现，合用于企业开拓本性化包装布局计划体系，开拓本钱低。

　　对包装行业，很多包装容器还没有举办尺度化、系列化和通用化分类，包装容器作为非凡的产物，必需容装各类随机尺寸、外形的产物，其布局是变化多端的，可是，总可以按必然情势分类，对呈现的全部布局凭证分类实现参数化，对未呈现的新布局可以探求相似的布局加以修改，逐渐蕴蓄。

　　3 成果构素分别

　　Set txt00zdzh = ThisDrawing. ModelSpace. AddMText

　　End Sub

　　End Sub

　　对各类纸盒，尤其是常见的六面体盒形，以折叠纸盒为例：一旦其长、宽，高，纸的厚度等尺寸给出，天圆液压缸筒，盒形的各部件的尺寸及位置，就可以用盒形的这几个参数来确定，通过修改这几个参数就可以获得差异巨细的盒形，当呈现用现有几个参数不能表达的新布局，可以按照必要增进参数，这是包装纸盒体系的参数化计划。

　　Dim point1(2)As Double：Dim point2(2)As Double：

　　points(0) = 4 * l：points(1) = 0：points(2) = 0

　　Dim plobj-hegai-cx As AcadLWPolyline

　　图1 包装布局图形自动计划办理方案