[求助] 在VB6里用GetPoint方法出现问题！

yyi

小弟用VB6写了一个插入图块的程序，其中片断如下：
Private Sub Cmdok_Click()
Dim Ipt As Variant
Dim Blk As String
Dim BlkRef As AcadBlockReference
Dim AcadUti As AcadUtility Set AcadApp = GetObject(, "AutoCAD.application.16")
Set AcadDoc = AcadApp.ActiveDocument
Set AcadMoS = AcadDoc.ModelSpace On Error Resume Next
Ipt = AcadUti.GetPoint(, "给出插入点: ")
If Err Then
MsgBox "错误！"
End
End If Blk = "d:\123\456.dwg"
Set BlkRef = AcadMoS.InsertBlock(Ipt, Blk, 1#, 1#, 1#, 0)
If Err Then
MsgBox "没有找到图块文件！"
Exit Sub
End If
……
End Sub 问题是执行到 Ipt = AcadUti.GetPoint(, "给出插入点: ")时总是出错，进行不下去了，在VBA里GetPoint方法是这样用的啊，哪位老大指点一下下！

mccad

对话框先隐藏。

yyi

谢谢！我试试。

yyi

还是不行，我这是VB程序，不是VBA。

雪山飞狐_lzh

AcadUti是空值

yyi

那么getpoint的功能怎么实现呢？

mccad

Set AcadUti = AcadApp.Utility

yyi

根据两位的提示，现在改了一下：
Private Sub Cmdok_Click()
Dim Ipt(0 To 2) As Double
Dim Blk As String
Dim BlkRef As AcadBlockReference
Dim AcadUti As AcadUtility
Dim Tmpdata
On Error Resume Next Set AcadApp = GetObject(, "autocad.application.16")
Set AcadDoc = AcadApp.ActiveDocument
Set AcadMoS = AcadDoc.ModelSpace Set Tmpdata = AcadUti.GetPoint(, "给出插入点: ")
Debug.Print Tmpdata Blk = "d:\123\456.dwg"
Set BlkRef = AcadMoS.InsertBlock(Ipt, Blk, 1#, 1#, 1#, 0)
……
End Sub 原来要用Set，呵呵，GetPoint方法不再出错了。但是正如lzh741206所说，Tmpdata是空值，那么我要把GetPoint得到的点用到InsertBlock里该怎么办？！

mccad

怎么就没有仔细看我们的回答呢？
这里指的是你那个 AcadUti 只是定义了，但没有赋值，所以这个变量是不能直接使用的。就好象你定义了
Dim a as String
一样，只是把a变量定义成字符串，而a变量是什么内容却需要另外赋值给它，如
a="明经通道"
则a的内容为“明经通道”。
凡对象的赋值都必须用 Set ，而对于普通变量的赋值则不需要。

yyi

已经搞定了！谢谢！不过老大有误，7楼：Set AcadUti = AcadDoc.Utility