[求助]：请问我是程序有错还是cad设置的错误

gps

Private Sub CommandButton1_Click()
Dim sp As Variant
Dim ep As Variant
Dim h1 As String
Dim h2 As String
h1 = vbCrLf & "输入第一点"
h2 = vbCrLf & "输入第二点"
sp = ThisDrawing.Utility.GetPoint(, h1)
ep = ThisDrawing.Utility.GetPoint(sp, h2)
ThisDrawing.ModelSpace.AddLine sp, ep
End Sub
我本想通过getpoint方法在屏幕上拾取一个点，再把点的x坐标赋给a1，y坐标赋给a2,
但到上边语句就有问题。
逐语句调试正确，但运行时有如下错误提示。

实时错误‘-2147467259（80004005）’：
方法‘getpoint’作用于对象’IacadUtility’时失败

怎样才能把sp的x坐标赋给a1，y坐标赋给a2。

lijiao

我也遇到过这个问题，应该是ACAD的问题（公司多台机中只有一台出现），重装ACAD后OK了。

gps

我又试了两个电脑,都不行

efan2000

在窗体中操作与用户交互的语句时，应当先隐藏窗体，执行完后再显示。

雪山飞狐(lzh)

赋值用a1=sp(0):a2=sp(1)