5. 3. 3 建设文本工具

一种折叠纸盒的睁开图见图2，将其分别盒盖、盒体、盒底 3 部门成果构素。

Sub italize（）’初始化图层

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

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

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

择要：从包装CAD 图形的分类及实现要领入手，较量AutoCAD 的二次开拓要领，基于成果构素分别和参数化计划头脑，提出操作VBA 组件实现包装布局工程图形自动计划天生的办理方案，并通过纸盒布局自动计划实例给出了详细开拓进程。该进程易实现、本钱低，适于企业开拓本性化包装布局计划体系。

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

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

5. 2 初始化图层

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

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

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

5. 3. 2 建设标注工具；（以盒身为例）

5. 3 在Thisdrawing 文档举办画图编程

Public l1csx As AcadLayer ’界说图层工具：
AddLightWeightPolyline（points）

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

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

Dim txt As String：Dim points（0 To 2）As Double
. . .‘其余点坐标表达式省略

5. 3. 1 建设图形工具；（以盒盖为例）