与ACAD中VBA有关的问题急死我了

[wjj1973]

我在使用ACAD2000中的VBA时，按照书上输入以下语句，运行中出现错误
（Run-time error '-2147467259(80004005)':
Method 'GetPoint' of object 'IAcadutility' failed)




Private Sub CommandButton1_Click()
Dim arcobj As AcadArc
Dim center As Variant
Dim radius As Double
Dim sangle As Double
Dim eangle As Double
Const pi = 3.141592654

radius = 35
sangle = 45 * pi / 180
eangle = 150 * pi / 180
center = ThisDrawing.Utility.GetPoint(, "选择圆心点位置：")
Set arcobj = ThisDrawing.ModelSpace.AddArc(center, radius, sangle, eangle)


End Sub


在试图用OPEN方法打开已存在的DWG文件时，也会有类似的提示。
有没有谁可以告诉我，到底是怎么回事，该如何解决。谢谢了！

[Un1]

必须先把form hide掉！

[iwin]

因为你的Form是模态的，所以要先把它隐藏掉。

[hcat1999]

Test...