在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 程序命令添加到菜单，并在配置对话框中添加的程序文件路径。

以下是向AutoCAD 添加主菜单“ 包装实例”的方法，在ACAD. mnu 文件里添加如下内容：ID-draw-01zdzh［ 折叠盒］ˆCˆC（ command " vbaload" " 01-zdzh" ）；（command " - vbarun" " draw-01zdzh" ）在AutoCAD 命令行执行config 命令，弹出“ 选项”对话框，点击“文件标签”，设置菜单加载位置和添加工程文件路径和工作文件路径。

5. 5 运行命令实现图形自动生成

运行主菜单“包装实例”下的“折叠纸盒”命令，在弹出的对话框中输入长、宽、高、插塞尺寸、接头尺寸等已知条件即可自动生成折叠纸盒生产工艺单。

6 结 语

通过功能构素划分，分别编写了几种盒底和盒盖，自由组合得到多种结构，表明Auto CAD 内嵌的VBA 组件是实现包装结构自动设计的一种有效解决方案。该方法简洁、有效、实用、易实现，适用于企业开发个性化包装结构设计系统，开发成本低。

参考文献：

［1］ 包装设计的数字化手段［EB/ OL］.（2005 - 10 - 3）. http：/ / cn / llxx / sjll / 200510 / 194. html.（余不详）
［2］ 张锋，陈爱萍. AutoCAD 二次开发环境的探讨［J］. 机械设计与制造，2005，（9）：125 - 127.
［3］ 杨文杰，刘浩学. 包装纸盒的组件设计［J］. 包装工程，2003，24（5）：12 - 13.
［4］ 杨文杰. 包装纸盒参数化设计的实现［ J］. 包装工程，2004，25（2）：81 - 83.
［5］ 张帆，郑立楷，等. AutoCAD VBA 二次开发教程［M］. 北京：清华大学出版社，2006.