getpoint怎么总出错啊

bsynuaa · 发表于 2003-7-4 10:56:00

程序：
Dim Point As Variant
Point = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
但是运行时总出错
错误现象：
运行时错误'-2147467259 (80004005)'
方法'GetPoint' 作用于对象‘IAcadUtility’时失败

zfbj · 发表于 2003-7-4 11:32:00

请给出上下文的代码。
什么版本的AutoCAD？

bsynuaa · 发表于 2003-7-4 13:57:00

2002的版本
我是用这个程序来插入图块的，想取一点作为基点，用一个拾取按扭来实现取点。
该按扭没有别的代码，仅此而已

zfbj · 发表于 2003-7-4 15:05:00

是否在调用该函数之后隐藏了窗体？将控制权交给AutoCAD？

bsynuaa · 发表于 2003-7-4 15:36:00

没有，我刚开始学的，怎么将控制权交给AutoCAD啊？
还有一个问题，我的属性块插入图纸空间的时候，如果某个属性为空的话，为什么程序就出现错误啊？
麻烦斑竹了

zfbj · 发表于 2003-7-4 16:18:00

下面的几句代码就能实现：
Dim pt As Variant
'隐藏窗体(将控制权交给AutoCAD)
Form.Hide
pt = ThisDrawing.Utility.GetPoint(, "拾取点：")

txtPtX.Text = pt(0)
txtPtY.Text = pt(1)
txtPtZ.Text = pt(2)

'显示窗体
Form.Show
另外的一个问题，我不太明白，为何要将属性设置为空，试试string = " "(注意中间有空格)