getpoint方法怎么使用？

狂舞九天

小弟刚刚学VBA，感觉很多函数和方法用起来很罗嗦，今天刚刚试了一个getpoint方法，用不起来，是不是要设置什么？请高手指点，给出一个完整的输入点的例子，不胜感激

zeng29

RetVal = GetPoint([Point][, Prompt]) retval定义为Variant,Point为可选,Prompt为提示内容.
多看帮助和对象模型.

狂舞九天

老兄，不行阿，看看我的程序错在哪里 Private Sub CommandButton1_Click()
Dim point1 As Variant
point1 = ThisDrawing.Utility.GetPoint("选择点")
End Sub 提示为： 实时错误 ‘2147467259 (80004005)': 方法‘Getpoint’作用于对象‘IAcadUtility’时失败

mccad

2. Private Sub CommandButton1_Click()
3. Dim point1 As Variant
4. point1 = ThisDrawing.Utility.GetPoint([b],[/b]"选择点")
5. End Sub

Private Sub CommandButton1_Click() Dim point1 As Variant point1 = ThisDrawing.Utility.GetPoint([b],[/b]"选择点") End Sub

myfreemind

加一个逗号！

狂舞九天

是我机子问题吗？怎么改都是那个错误，不管把point1定义成局部变量还是全局变量，不管加不加逗号还是那个提示，郁闷！所有的get族方法都一样

mccad

还有一个重要的问题，就是在调用GETXXX方法前必须隐藏窗体：

1. UserForm1.Hide

复制代码

狂舞九天

OK啦，谢谢大哥