[VBA程序]：求救：运行时错误‘91’ 对象变量或 With 块变量没有设置（错误 91）？？

szlili · 发表于 2006-3-14 10:03:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我使用Acad2006 VBA 在引用中也加有：
VisualBasic For Applications、
AutoCAD 2006 TYpe LiBrary
OLE
Microsoft Forms 2.0 Object Library

我程序代码如下：

Private Sub UserForm_Initialize()
Dim t1, t2, t3, t4, ss, ss0, i, mypos, n1, n2, n3, n4, n5, cb
Dim users2, users5, tn As String
Dim j, k As Integer
Dim vt

Set acadApp = GetObject(, "AutoCAD.Application")
path = acadApp.ActiveDocument.GetVariable("acadprefix")

在运行到 path = acadApp.ActiveDocument.GetVariable("acadprefix") 行时出现 91 错误。
???????

雪山飞狐(lzh) · 发表于 2006-3-14 10:20:27

Set acadApp = GetObject(, "AutoCAD.Application")
path = acadApp.ActiveDocument.GetVariable("acadprefix")
改为

path = ThisDrawing.GetVariable("acadprefix")

szlili · 发表于 2006-3-14 11:47:56

谢谢! 随心飘荡

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：求救：运行时错误‘91’ 对象变量或 With 块变量没有设置（错误 91）？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子