CAD2014中砌体排砖画图宏源代码实现

本文档介绍了一个在AutoCAD 2014环境中使用的VBA宏，用于砌体排砖的绘制。该宏是基于Visual Basic for Applications (VBA) 编程语言编写的，特别针对CAD软件的图形操作进行定制。主要关注的是如何通过用户界面（CommandButton1_Click事件）触发一个函数来创建砖块的几何图形表示。 1. **宏函数**: - `vector(a,b,c)`: 这是一个简单的VBA函数，它接受三个参数a、b和c，返回一个包含这三者值的二维数组（d(0)=a, d(1)=b, d(2)=c），用以表示三维空间中的向量。 2. `rect(xAsDouble,xhAsDouble,yAsDouble,zAsDouble)`: 这个未实现的函数可能是用于创建一个矩形或砖块的轮廓。函数原型中涉及了线段的绘制，包括从点(x, y)出发，沿着x轴水平移动xh，然后垂直移动y，接着水平移动z，最后回到起点。然而，由于这部分代码并未完成，实际的线段添加、终点计算以及绘制并未实现。 3. **`rec(xAsVariant,hAsDouble,bAsDouble)` 函数**: 这是宏中的核心部分，它接收三个参数：x（砖块的起始点）、h（砖的高度）和b（砖的宽度）。函数内部首先将x转换为二维变量sp，然后计算砖块的两个端点epv（左上角）和 eph（右下角）。通过`ThisDrawing.ModelSpace.AddLine()` 方法在模型空间中添加四条线，分别代表砖块的边。最后，函数设置一个临时变量bug存储ePH(0)的值，可能是为了后续的砖块定位或处理。 总结来说，这个宏主要用于在CAD环境中快速绘制砌体砖块的几何布局，但目前只实现了砖块的轮廓线绘制，而砖块的计算和测量功能是在外部的手机APP中完成的。使用时，用户可能需要在CAD界面上点击命令按钮，启动宏，然后在APP中输入砖块尺寸等数据，再由宏在CAD中生成砖块的图形表示。这个宏提供了一种自动化的方式来简化砌体设计中的排砖过程，提高了效率。