包装CAD 的图形分平面装潢与外观造型、包装结构工程图形(如生产工艺单)2 大类。平面装潢通过Photoshop、Illustrator、CorelDRAW、Freehand 等实现，包装造型部分通过3DMax、Rhino、Maya、Pro / E、UG 等实现;包装结构工程图形设计既可以运用Pro / E、UG、AutoCAD 等软件直接设计绘制，也可以利用一定的平台二次开发实现自动设计生成。目前，国内外也涌现出一批优秀的包装设计专业软件，如packdesign2000、方正包装3. 0。

　　利用通用的图形图像设计软件直接设计效率不高，而专业软件不可能适应所有的企业，而且这些软件都很昂贵。针对包装容器的生产加工，如何寻找一种有效的途径，既满足不同企业个性化需求，又能缩短设计周期、大大降低人力、物力成本，提高设计效率，是许多企业渴望实现的。当然，平面装潢设计包含了太多艺术成分，具有太多的可变性，难以用程序实现，因此，本文将讨论不同包装企业，以AuotCAD 为平台，如何方便的实现包装容器结构工程图形的自动设计生成。

　　1 AutoCAD 系统二次开发概述

　　AutoCAD 系统的二次开发指由既熟悉专业产品设计又掌握计算机应用技术的人员在AutoCAD 平台上开发出针对某类产品的专业CAD 应用软件。二次开发实现图形设计及自动生成是对CAD 软件更高层次的运用。

　　AutoCAD 是AUTODESK 公司推出的基于微机的当今世界应用最为广泛的CAD 系统，采用开放式体系和良好的二次开发环境，许多机械、电子、建筑行业的专业软件都是在其基础上二次开发得到的。AutoCAD 先后提供了Autolisp / Visuallisp、ADS / ARX、VBA 这3 种主要的开发工具。从目前的应用看，Autolisp 是最初的开发手段，已被Visuallisp 取代;ADS 将逐步被功能强大的ARX 所取代;VBA 则成为AutoCAD 用户二次开发的另一支生产军。AutoCAD 提供的几种开发工具各有千秋，让各类开发者都能有适合于自己的开发工具。

　　从AutoCAD R14 开始，VBA 就成为AutoCAD 标准的嵌入组件。VBA 起着一种接口作用，把微软推出的VB 开发工具的强大开发功能与AutoCAD 丰富的图形对象有机结合起来，形成强大的工程图形二次开发功能。VBA 组件基于可视化、面向对象开发工具VB，其开发环境与VB 集成开发环境相近，但较Autolisp / Visuallisp、ADS / ARX 等开发工具，更能快捷、方便地实现友好的人机交互，功能强大、扩展灵活且开发简单，易于实现。

　　当然，要实现包装结构自动设计系统的二次开发，不论用哪种开发工具，都必须在参数化和图形库与功能构素库技术上下功夫，只有这样系统才能真正高效。本文以一种折叠纸盒为例，介绍利用AutoCAD 的VBA 组件进行二次开发实现工程图自动生成的解决方法及具体实现。

　　2 Auto CAD 内嵌的VBA 组件实现包装结构图形自动设计解决方案

　　图1 为包装结构图形自动设计解决方案，分为开发阶段和应用阶段。开发阶段主要是从专业设计入手，分析图形( 由于本文例程图形简单，故省掉该环节)、划分功能构素、参数化、编写dvb 程序;应用阶段通过前期设计提供的数据，同时将dvb程序自动加载，然后直接执行实现自动设计生成。下面是具体

　　的实现过程。

　　图1 包装结构图形自动设计解决方案

　　3 功能构素划分

　　所谓功能构素就是构成完整包装容器的功能部位结构元素，所有功能构素的集合则构成功能构素库[。功能构素解决构成完整结构的不同功能部位，在每个部位都有多种结构供选择情况下，各个功能部位结构任意组合问题，使得用很少的局部功能结构元素的参数化设计( 即很小的功能构素库)，就可以高效的得到很多种结构组合，以满足用户需求，而不必每种结构都设计。各种具体的包装结构将从功能构素库中调用构素组合而成，实现构素的复用。

　　一种折叠纸盒的展开图见图2，将其划分盒盖、盒体、盒底 3 部分功能构素。

　　4 参数化功能构素

　　参数化设计，就是在给定结构形式的条件下，依据一定的参数，自动生成相应的设计。参数绘图则是通过输入设计的主要参数，对标准图样进行变量代换，实现参数化绘图，最后生成符合设计要求的图形。这种方法的优点是能够和设计模块连接起来，自动出图，实现真正的计算机辅助设计，从而极大地提高设计效率。参数化设计是新一代CAD 技术的基本特征，是实现设计过程自动化的有效手段之一，它不仅使CAD 系统具有交互式绘图功能，还具有自动绘图功能。

　　图2 功能构素划分

　　对包装行业，许多包装容器还没有进行标准化、系列化和通用化分类，包装容器作为特殊的产品，必须容装各种随机尺寸、形状的产品，其结构是千变万化的，但是，总可以按一定形式分类，对出现的所有结构按照分类实现参数化，对未出现的新结构可以寻找相似的结构加以修改，逐渐积累。

　　对各种纸盒，尤其是常见的六面体盒形，以折叠纸盒为例：一旦其长、宽，高，纸的厚度等尺寸给出，盒形的各部件的尺寸及位置，就可以用盒形的这几个参数来确定，通过修改这几个参数就可以得到不同大小的盒形，当出现用现有几个参数不能表达的新结构，可以根据需要增加参数，这是包装纸盒系统的参数化设计。

　　分别令长、宽、高为：L、B、H;插舌和粘贴边为：可kcs、kjt。

　　如图2 所示，对盒盖功能构素标点1 - 15 点，以盒盖的第1 点为坐标原点，水平方向为x 轴，竖直方向为y 轴建立坐标系，则所有坐标点被参数化为含L、B、H、kcs、kjt 相关的表达式。

　　5 编写功能构素绘图程序

　　5. 1 建立交互界面

　　在AutoCAD 命令行执行vbaide 命令打开VBA 集成开发环境，该环境与VB 的开发环境接近。将设计、运行、调试集成，以Thisdrawing 文档组织，根据需要添加模块、实现人机交互的窗体等对象，以dvb 文件保存工程所有信息。右键点击工程，在快捷菜单中选添加，选择窗体命令，即可建立一个新的窗体。根据人机交互需要建立相应的对象。

　　5. 2 初始化图层

　　右键点击工程，在快捷菜单中选添加，选择模块命令，即可建立一个新的模块。图层初始化方法如下：

　　Public l1csx As AcadLayer ’定义图层对象：

　　Sub italize()’初始化图层

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

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

　　l1csx. color = acblack

　　ThisDrawing. ActiveLayer = l1csx

　　ThisDrawing. ActiveLayer. Linetype = " continuous"

　　End Sub‘其它图层略

　　5. 3 在Thisdrawing 文档进行绘图编程

　　5. 3. 1 创建图形对象;(以盒盖为例)

　　Sub js-01hega(i )’计算盒盖各点坐标值

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

　　pthega(i 2)= 0：pthega(i 3)= b - 2 ’2

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

　　End Sub

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

　　Dim points(0 To 29)As Double

　　Dim points1(0 To 3)As Double

　　’定义盒盖图形对象

　　Dim plobj-hegai-cx As AcadLWPolyline

　　Dim plobj-hegai-xx As AcadLWPolyline

　　’画2 - 5 虚线段略

　　For i = 0 To 29 ’画实线

　　point(s i) = pthega(i i)

　　Next i

　　Set plobj-hegai-cx = ThisDrawing. ModelSpace.

　　AddLightWeightPolyline(points)

　　End Sub

　　5. 3. 2 创建标注对象;(以盒身为例)

　　Sub dim-hes()’水平标注

　　Dim dimobj As AcadDimAligned

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

　　Dim location(2)As Double

　　’水平总尺寸

　　point1(0)= pthes(8)：point1(1)= pthes(9)- kjt

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

　　location(0)=(point1(0) point2(0))/ 2：location(1)

　　= b 50

　　Set dimobj = ThisDrawing. ModelSpace. AddDimAligned

　　(point1，point2，location)

　　’水平其它尺寸略

　　End Sub

　　5. 3. 3 创建文本对象

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

　　Dim txt00zdzh As AcadMText

　　Dim txt As String：Dim points(0 To 2)As Double

　　txt = . . .‘(具体文本内容根据需要给定)

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

　　Set txt00zdzh = ThisDrawing. ModelSpace. AddMText

　　(points，240，txt)

　　End Sub

　　5. 4 添加自动加载dvb 程序命令和程序文件路径

　　将自动加载dvb 程序命令添加到菜单，并在配置对话框中添加的程序文件路径。