VBA 窗体与 CAD 图形交互

1、在CAD VBA中添加如图控件,并将USERFORM的 ShowModal属性改成False.

2、在command控件 Click 下输入如下代码：标注黑斜体代码为主要代码Private Sub CommandButton1_Click() ‘Guilin Hu<Continental>Dim a(0 To 2) As Doublea(0) = 1000a(1) = 1000a(2) = 0Call ThisDrawing.ModelSpace.AddCircle(a, TextBox1.Text)ThisDrawing.Application.UpdateEnd Sub

3、按F5执行窗体代码，输入半径，然后点击 画圆即可随意画圆。