用CAD内嵌的VBA组件是实现包装结构自动设计(4)

2009-05-30 詹铁柱 包装工程

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 组件是实现包装结构自动设计的一种有效解决方案。该方法简洁、有效、实用、易实现,适用于企业开发个性化包装结构设计系统,开发成本低。