以下是一个简单的 CAD VBA 编程实例，用于在 CAD 中绘制一个正方形：
Sub DrawSquare()
' 设置绘图参数
Dim width As Double
width = 10 ' 正方形的宽度
' 创建新的图形对象
Dim myGraphics As AcadGraphics
Set myGraphics = ThisDrawing.Graphics
' 绘制正方形
myGraphics.DrawRectangle 2, width, width, 0
End Sub
在这个例子中，我们首先定义了一个变量 width ，用于设置正方形的宽度。然后，我们使用 ThisDrawing.Graphics 对象创建一个新的图形对象 myGraphics 。
接下来，我们使用 DrawRectangle 方法绘制一个正方形。这个方法需要四个参数： Left 、 Top 、 Width 和 Height 。在这里，我们将 Left 和 Top 设置为 2，将 Width 和 Height 设置为 width 。
运行这个程序后，将会在 CAD 中绘制一个宽度为 10 的正方形。
这只是一个简单的例子，您可以根据需要进一步扩展和修改这个程序，以满足您的具体需求。
