[求助]：还是老问题，这个圆怎么画不到已经有的文件上啊？

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(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
End
End If
acadApp.Visible = True
acadApp.Documents.Open sPath
'Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
   '这就是圆心的坐标
   Set C = acadDoc.ModelSpace.AddCircle(cen, R) '在“当前文档”的“模型空间”里“画圆”
C.Color = acBlue
End Sub
我这做了，但是这个圆怎么画的不是在a.dwg的这个文件上，而还是在一个新的文件上啊