[求助]：这样怎么画不了圆？

ghl_729

Private Sub Command2_Click()

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) = 100: cen(1) = 200: cen(2) = 0
R = 300
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
Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
   '这就是圆心的坐标
   Set C = ThisDrawing.ModelSpace.AddCircle(cen, R) '在“当前文档”的“模型空间”里“画圆”
C.Color = acBlue
End Sub
这段程序能连接cad，但却画不了圆，那位能帮帮我，应该怎么修改阿？

ps122

可以画，最好在end sub前加ZoomAll

雪山飞狐(lzh)

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

CHENHUIHUXIUMIN

在end sub前加ZoomAll ,而且要改为Set C = acadDoc.ModelSpace.AddCircle(cen, R)