一种用于幕墙不规则四边形装饰板批量展开图的绘制方法

摘要

一种用于幕墙不规则四边形装饰板批量展开图的绘制方法，通过直接在EXCEL中引入原始数据，对应图形的参数形式为四条边与一条对角线长、对应板号、图号，要求数据依次排列，每一行为一条数据，且第一行为参数签行，该方法采用对话框形式进行参数调整。在参数调整过程中采用在软件程序的窗口中拖拽的形式，直接在EXCEL中引用数据，在CAD中输出图纸，自动生成参数图及1:1电子图，最后将工艺参数图对应参数返回到EXCEL中所选数据右侧，并附有参数名称行。本发明与现有其他方法相比简化了由成形参数到工艺展开图转化过程，在进行操作时大大减少了人工操作的部分，可以相对减少人为失误所产生的影响，提高了由参数到展开图的批量转化效率。

说明书

技术领域

本发明属于钣金技术和计算机绘图技术领域，特别涉及一种用于幕墙不规则四边形装饰 板批量展开图的绘制方法。

背景技术

目前对于大批量不规则四边形板的钣金展开，所使用的方法一般为采用绘图软件中的参 数驱动功能来实现，所需步骤大至为将原始数复制到绘图软件驱动参数表中；将数据与绘图 软件中驱动尺寸相对应；在同一工程图中插入多个视图；将每一个视图对应零件名称改成驱 动参数表中的零件名称；将工程图转化为CAD格式；编辑驱动参数，将生成的工艺参数从驱 动参数中复制出来。这种方法在操作过程中步骤较多，增加了误操作的可能，在生成图形较 多时耗时较长并且容易出现遗漏。

发明内容

针对现有技术存在的问题，本发明提供一种用于幕墙不规则四边形装饰板批量展开图的 绘制方法。该方法包括以下步骤：

1.定义存放盒板四个顶点数据数组；

2.为盒板顶点坐标赋值；

3.定义存入盒板四边偏移量数组；

4.把盒板四边按偏移量数组值向内偏移，偏移后的顶点坐标重新放回盒板顶点数 组；

5.定义存入翻边顶点的数组；

6.为翻边各顶点赋值；

7.定义镜像点；

8.为镜像点赋值；

9.对翻边各点按镜像点执行镜向操作；

10.检查翻边点是否有新的极值变量，如果有放入极值点变量；

11.定义Y方向的比例变量并赋初值；

12.定义X方向的比例变量并赋初值；

13.定义全局比例变量并赋初值；

14.定义图形左下角插入点并赋值；

15.把翻边各点坐标移到图形插入点位置；

16.定义存入极值点的变量；

17.为极值点变量赋初值；

18.定义折弯线四个顶点并把翻边内侧四个顶点坐标赋给该数组；

19.把翻边各点坐标在CAD中以指定线形颜色画闭合线；

20.定义折弯线各边偏移量并赋值；

21.将现有折弯线坐标偏移到实际位置；

22.在CAD中画出折弯线；

23.添加长、宽尺寸标注；

24.添加“板背面”文字

25.添加A3标准图框；

26.把图形插入点添加增量，实现图形依次向上排布；

27.定义存入返回参数的变量并赋值；

28.将返回值返回；

29.退出标准盒板绘图程序HB。

本发明采用计算机Microsoft VBA与LISP语言，在Windows操作系统下CAD2007版本 中运行。其中LISP开发部分主要用于加载VBA模块与定义CAD命令行命令，VBA开发部 分负责完成程序中的其余操作部分。本发明的方法通过直接在EXCEL中引入原始数据，对 应图形的参数形式为四条边与一条对角线长、对应板号、图号，要求数据依次排列，每一行 为一条数据，且第一行为参数签行，本发明的方法采用对话框形式进行参数调整。在参数调 整过程中采用在软件程序的窗口中拖拽的形式，以应对实际使用中成形图参数名称不确定的 情况，直接在EXCEL中引用数据，在CAD中输出图纸，自动生成参数图及1∶1电子图，并 实现了插入图框与变换图框比例并排版的操作(如无图框对应块，则不插入图框)，最后将工 艺参数图对应参数返回到EXCEL中所选数据右侧，并附有参数名称行，最大程度上避免了 由成形参数到工艺展开图转化过程中可能出现的错误。本发明所提供的一种用于幕墙不规则 四边形装饰板批量展开图的绘制方法与现有其他方法相比简化了由成形参数到工艺展开图转 化过程，在进行操作时大大减少了人工操作的部分，可以相对减少人为失误所产生的影响， 提高了由参数到展开图的批量转化效率。

附图说明

图1本发明方法流程图；

图2本发明方法操作流程图；

图3本发明方法窗口操作流程图；

图4使用本发明方法的实施例的输入数据用窗体图；

图5使用本发明方法的实施例的所生成的展开图；

图6使用本发明方法的实施例的所生成的工艺参数图。

具体实施方式

本发明方法使用时将软件压缩包直接解压到计算机D盘根目录下。在CAD菜单中选择 工具/AutoLisp/加载应用程序，选择上一步解压出的“盒板”文件夹中“加载用.lsp“文件加 载后退出，在CAD命令行中输入HB命令后弹出对话框，首先在EXCEL中选择原始数据， 每条数据为一行，数据内容为盒板的板号、图号、四条边长与一个对角线长共计7个参数， 且第一行为标签行，选中数据后切换回CAD，在对话框中点击“加载数据标签”按钮，即将 对应数据的标签名称加载到列表框中，用鼠标将标签拖拽到相应的尺寸上，按需要添写其余 内容后点击“生成”按钮退出对话框，在CAD命令行中提示“拾取插入点”，拾取点后即在 相应位置生成展开图并依次向上排列。

下面结合附图对本发明内容作进具体描述。

本软件程序所实现的批量不规则四边形板的钣金展开方法主要通过以下四个主要步骤来 完成，加载，显示用户界面窗口和通过用户界面窗口完成参数输入与顺序调整并调用标准盒 板绘图程序绘图，关闭用户界面窗口并退出。本发明的程序总体流程图如图1所示。

步骤一：加载。加载“加载用.lsp”文件，通过程序文件中的

(vl-vbaload″D：/盒板/盒板模块.dvb″)

语句将D：/盒板/盒板模块.dvb模块加载到当前CAD中。

步骤二：显示用户界面窗口。通过程序文件中的

(defun c：HB()

        (vl-vbarun″HB1″)

)

语句定义一个CAD命令“HB”，在该命令中调用已加载模块中的“HB1”过程。在″D：/盒板/ 盒板模块.dvb″中盒板绘图函数调用的入口过程为HB1()，其内容为

其中UserForm1.Show用于将已加载的对话框显示出来，Unload UserForm1用于操作完成后将 对话框卸载。

步骤三：通过用户界面窗口UserForm1完成参数输入与顺序调整并调用标准盒板绘图程 序HB进行绘图。图2为用户窗口操作流程图。

具体操作如下：在Excel中选择数据，数据按行排列，选择时带标题行；点“加载数据 标签”按钮会将Excel中选中数据的标题行数据加载到列表框中；拖放列表框中的数据标签 到图片中对应的参数标签上；视成型图情况选择镜向单选按钮；点击“生成”按钮后在CAD 命令行提示选择图形插入点，点取后以Excel中的数据为输入参数调用标准盒板绘图程序绘 图，在对应位置生成图形，图3为标准盒板绘图程序HB的流程图；输入其余工程名称，半 延展，翻边高，料厚，材料等参数。

标准盒板绘图程序HB的操作流程具体如下：

1.定义存放盒板四个顶点数据数组Dim Myloop1(1 To 4)As My_Point，其中My_Point用 于存放一个点的X，Y，Z三个座标；

2.为步骤1所定义的盒板顶点坐标赋值；

3.定义存入盒板四边偏移量数组Dim Myoff1(1 to 4)As Double。

4.把盒板四边按偏移量将数组值Myloop1向内偏移，偏移后的顶点坐标重新放回盒板顶 点数组Myoff1中，调用过程Off_Loop(Myloop1，Myoff1)，；

5.定义存入翻边顶点的数组Dim FanBian1(1 To 12)As My_Point。

6.为翻边各顶点赋值FanBian1(1)＝Myloop1(1)…

7.定义镜像点Dim Mirr_p1 As My_Point。

8.为镜像点赋值Mirr_p1＝My_mid_Point(FanBian1(2)，FanBian1(3))。

其中函数My_mid_Point返回两点FanBian1(2)，FanBian1(3)的中点；

9.对翻边各点按镜像点执行镜向操作Call mirr_loop(FanBian1，Mirr_p1，Mirr_p2)。 过程mirr_loop用于将代表多边形的点数组FanBian1延镜向线Mirr_p1，Mirr_p2点镜 向；

10.检查翻边点是否有新的极值变量，如果有放入极值点变量，调用过程Call GetMax_min ()，过程GetMax_min用于将点数组表示的多边形myloop()中具有极值的点放在MyXL 中；

11.定义Y方向的比例变量并赋初值；

12.定义X方向的比例变量并赋初值；

13.定义全局比例变量并赋初值；

14.定义图形左下角插入点并赋值；

15.把翻边各点坐标移到图形插入点位置，调用过程mov_loop_vector。

Call mov_loop_vector(FanBian1，MYINSERT_POITN1)。此过程用于把点数组myloop() 中各点座标与向量MYINSERT_POITN1的X、Y、Z座标相加，实现点数组的平移；

16.定义存入极值点的变量Dim L_H_Point As My_X1_Point；

17.为极值点变量赋初值；

18.定义折弯线四个顶点并把翻边内侧四个顶点坐标赋给该数组；

19.把翻边各点坐标在CAD中以指定线形颜色画闭合线，调用过程line_loop， Call line_loop(FanBian1，″continuous″，acGreen，1，True)，此过程将点数组表示 的多边形FanBian1用指定的线型continuous，顏色acGreen，线型比例1画出来；

20.定义折弯线各边偏移量并赋值；

21.将现有折弯线坐标偏移到实际位置；

22.在CAD中画出折弯线；

23.添加长、宽尺寸标注，Call My_AddDimRotated用来通过指定点添加转角标注， 过程My_AddDimRotated在点First_Point与点Second_Point间添加转角标注，locationP 为标注文字位置，angle为转角标注方向角，myfactor为标注比例；

24.添加“板背面”文字，通过Call My_AddText在CAD中指定位置添加位置， 过程My_AddText在CAD当前活动文档中中添加文本，DrawingNo为文本内容， DrawingNo为文字高度，W_Factor为宽度系数。

25.添加A3标准图框，调用过程My_Add_A3，过程My_Add_A3用于在CAD当前活动 文档中加入A3图框，My_insertPoint为插入点，My_Factor为图框比例，GCMC为标题栏 工程名称，TM为标题栏图纸名称，DrawNo为图号，BL标题栏添写的绘图比例， CAILIAO为标题栏添写的材料，SHULIAN为标题栏添写的数量，GJY为标题栏添写的共 内页，DJY为标题栏添写的第几页；

26.把图形插入点添加增量，实现图形依次向上排布；

27.定义存入返回参数的变量并赋值；

28.将返回值返回HB＝My_X1并退出标准盒板绘图程序HB。

步骤四：调用步骤二中的过程HB1()中的Unload UserForm1命令关闭用户界面窗口并退 出。

实施例

下面通过举例对本发明应用一组具体的参数来生成图形并在EXCEL表中返回工艺参数 值，来更加详细的说明本发明的应用方法。

1.在EXCEL表中选择所要输入的参数，如表1；

  板号   图号   AL1   BL2   CL3   DL4   EL5   B25   PJG25   101   105   103   104   121   B26   PJG26   108   102   110   104   125   B27   PJG27   101   108   104   107   105   B28   PJG28   106   102   103   107   105   B29   PJG29   101   100   103   120   105

表1

2.选中数据后切换回CAD，在对话框中点击“加载数据标签”按钮，即将对应数据的 标签名称加载到列表框中，用鼠标将标签拖拽到输入数据用窗体中的相应的尺寸上， 输入数据用窗体如图4所示，按需要添写其余内容；

3.点击“生成”按钮退出对话框，在CAD命令行中提示“拾取插入点”，拾取点后即在 相应位置生成展开图a、b、c、d、e、f并依次向上排列，所生成的图形如图5所示； 图6为所生成的工艺参数图；

4.最后将工艺参数图对应参数返回到EXCEL中所选数据右侧，并附有参数名称行，如 表2所示。

表2