以下是向AutoCAD 添加主菜单“ 包装实例”的要领，在ACAD. mnu 文件里添加如下内容：ID-draw-01zdzh[ 折叠盒]& #710;C& #710;C( command " vbaload" " 01-zdzh" );(command " - vbarun" " draw-01zdzh" )在AutoCAD 呼吁行执行config 呼吁，弹出“ 选项”对话框，点击“文件标签”，配置菜单加载位置和添加工程文件路径和事变文件路径。

　　ThisDrawing. ActiveLayer. Linetype = " continuous"

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

　　End Sub

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

　　Dim points(0 To 29)As Double

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

　　Sub italize()’初始化图层

　　5. 1 成立交互界面

　　’界说盒盖图形工具

　　End Sub‘其余图层略

　　’画2 - 5 虚线段略

　　Dim plobj-hegai-xx As AcadLWPolyline

　　Dim points1(0 To 3)As Double

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

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

　　图2 成果构素分别

　　End Sub

　　Set dimobj = ThisDrawing. ModelSpace. AddDimAligned

　　Set plobj-hegai-cx = ThisDrawing. ModelSpace.

　　’程度其余尺寸略

　　(point1，point2，location)

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

　　4 参数化成果构素

　　5. 3. 3 建设文本工具

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

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

　　Next i