编程论坛 → VB6论坛

大家看看这个程序有什么错误，一直显示91错误：对象变量或Wih变量未设置

乔一恒发布于 2016-11-04 12:18， 1443 次点击

Dim AcadApp As AcadApplication
Private Sub Command1_Click()
AcadApp.Quit
Set AcadApp=Nothing
End Sub

5 回复

乔一恒2016-11-04 12:20

风吹过b2016-11-04 14:18

Dim AcadApp As AcadApplication  定义为一个指定类型的对象
Private Sub Command1_Click()
   AcadApp.Quit      使用，但你在哪里初始化了？对象没有实例，当前是 nothing
   Set AcadApp=Nothing
End Sub

乔一恒2016-11-04 15:08

回复 3楼风吹过b

那你帮我改改吧

xzlxzlxzl2016-11-04 17:00

如果运行未提示“用户定义类型未定义”的话，说明你autoacd的相关com件已经注册并引用正常，试试将Dim AcadApp As AcadApplication改成Dim AcadApp As New AcadApplication。
我没有autocad的com件，无法实验。

风吹过b2016-11-04 17:00

你在另一个贴子里的代码就是啊。

Set AcadApp = GetObject(, "AutoCAD.Application")            '读取已存在对象
If Err Then                                                 '出现错误，说明没有读取成功
   Err.Clear                                                '清除错误信息
   Set AcadApp = CreateObject("AutoCAD.Application")        '创建对象

我也没有安装 AutoCad ，无法测试。