[求助]：lzh741206班竹邦邦忙啊

ghl_729

Private Sub Command2_Click()
'定义路径
Dim sPath
Dim acadApp As Object
Dim acadDoc As Object
Dim moSpace As Object
Dim cen(2) As Double
Dim C As Object
Dim R As Double
'这就是圆心的坐标
cen(0) = Val(Text1.Text)
cen(1) = Val(Text2.Text)
cen(2) = Val(Text3.Text)

sPath = "f:\a.dwg"
R = 10
'连接cad
On Error Resume Next
Set acadApp = GetObject(, "f:\a.dwg")
If Err Then
Err.Clear
Set acadApp = CreateObject("f:\a.dwg")
If Err Then End
End If
acadApp.Visible = True
'acadApp.Documents.Add sPath
Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
'这就是圆心的坐标
Set C = thisdrawing.ModelSpace.AddCircle(cen, R) '在“当前文档”的“模型空间”里“画圆”
C.Color = acBlue
End Sub
在这个程序中，我可以打开已经存在的文件，但是却不能在这个文件上画圆，这是为什么阿？谢谢了

雪山飞狐(lzh)

Set C = acadDoc.ModelSpace.AddCircle(cen, R)

ghl_729

还是画不上啊？楼上可以为我调试一下这段代码么，谢谢了！