为什么一定要等到窗体关闭以后所创建的实体才在图中出现

clement

新建一个窗体，加一个按钮CommandButton1，事件如下

Private Sub CommandButton1_Click()
  Dim varpnt As Variant
  Me.Hide
  varpnt = ActiveDocument.Utility.GetPoint(, "请给出圆心")
  ActiveDocument.ModelSpace.AddCircle varpnt, 10
  Me.show
End Sub

在图中拾取圆心之后，所建的圆并没有在图中出现，而是需要等到窗体关闭

除了ActiveDocument.Regen acActiveViewport以外，请问还有没有更好的办法？

esri

Private Sub CommandButton1_Click()
  Dim varpnt As Variant

  dim pcircle As AcadCircle 

  Me.Hide
  varpnt = ActiveDocument.Utility.GetPoint(, "请给出圆心")
  set pcircle = ActiveDocument.ModelSpace.AddCircle(varpnt, 10)

   pcircle.update

  Me.show
End Sub

clement

谢谢