基于AutoCAD的VBA组件的包装结构自动设计实现

    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] [2] 

本文关键字：包装  AutoCAD  包装印刷，应用领域 - 包装印刷