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

clement · 发表于 2006-4-12 16:18:00

新建一个窗体，加一个按钮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 · 发表于 2006-4-12 21:36:00

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 · 发表于 2006-4-13 07:21:00

谢谢

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

发表回复

精选推荐