VBA 窗体与 CAD 图形交互

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

2、在command控件 Click 下输入如下代码：标注黑斜体代码为主要代码

Private Sub CommandButton1_Click()   ‘Guilin Hu<Continental>

Dim a(0 To 2) As Double

a(0) = 1000

a(1) = 1000

a(2) = 0

Call ThisDrawing.ModelSpace.AddCircle(a, TextBox1.Text)

ThisDrawing.Application.Update

End Sub

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