黄校小张 发表于 2013-3-18 10:53:37

求教 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 发表于 2013-3-18 11:54:20

我测试了，没有提示错误。你的autocad重启一下看看呢
页: [1]
查看完整版本: 求教 vba编程问题