求教 vba编程问题

黄校小张

Private Sub cmdpickpt_Click()
'定义储存点变量
Dim ptpick As Variant
'将控制权交给AUTO CAD  
frmmain.hide
'获取点的位置
ptpick = ThisDrawing.Utility.GetPoint(, "指定点:")
'为文本框添加点的坐标
tbptx = ptpick(0)
tbpty = ptpick(1)
tpptz = ptpick(2)
'返回对话框
frmmain.Show
End Sub

上面红色的为什么一直出错求教    。。             另外哪位大侠有     《auto cad vba  开法精彩实例教程》后面的光盘求发一份光盘中的内容给我。谢谢了。     我的邮箱是905980061@qq.com

mycad

我测试了，没有提示错误。你的autocad重启一下看看呢