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

getpoint怎么总出错啊

程序：
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 = ""(注意中间有空格)

bsynuaa 发表于 2003-7-5 09:38:00

谢谢斑竹，问题解决了
还有一个问题，就是用程序插入属性块的时候，如果属性是空的，为什么就会出错啊

bluemoon 发表于 2003-7-12 19:37:00

如果是空的 为什么要插入呢？
页: [1]
查看完整版本: getpoint怎么总出错啊