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

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

谢谢

查看完整版本: 为什么一定要等到窗体关闭以后所创建的实体才在图中出现