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

Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle_(centerpoint, radius)
怎么还是昨天同样的错误?
删掉红色下划线

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

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

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

烤验我原本就糊涂的脑子
我原样拷你贴的代码,工程中引用ACAD后,运行出现

去掉下划线就正常了.
难道你不知你ACAD版本?

我用的是ACAD2013,需要的是这句
Set AcadApp = CreateObject("AutoCAD.Application")
生成ACAD应用

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

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