Dim AcadApp As AcadApplication

Private Sub Command1_Click()
Dim circleObj As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 20: centerpoint(1) = 30: centerpoint(2) = 0
radius = Val(Text1.Text)
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle_(centerpoint, radius)
ZoomAll
End Sub

Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("不能运行AutoCAD 2007,请检查是否安装了AutoCAD 2007")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub

还是不好使~~~~我都困扰死了，全掉了也不好使，用你的那个代码也不行

你听听我的设计流程对不对

我先在工程菜单里点击引用，选择AUTOcad,然后在窗口里输入打开CAD的代码，接着在窗口里放置了一个按钮和一个文本框，，然后编写程序，，，，，，，，，，，，，就这样 按理说应该没问题啊

哈哈哈，，，可以啦，，，万分感谢，可是昨天我也按照你的方法弄了，可是不知怎么的就没好使，不管怎么样，谢谢了，谢谢谢谢谢谢谢谢谢谢谢谢谢~~~~~~~~~给你一万个赞！！！

我又出现问题了，师傅，你忙不？