having problem with getinterfaceobject

[Anonymous]

The following function always fails at the last line.
GetobjProj = objProj

The error msg says:

object variable or with block variable not set.

Can someone help? Thanks a lot.


Public Function GetobjProj(ProjID As String) As Object
Dim ProjID2 As String
ProjID2 = ProjID & "." & Left(ThisDrawing.GetVariable("ACADVER"), 2)
Dim objProj As Object
With ThisDrawing.Application
Set objProj = .GetInterfaceObject(ProjID2)
If objProj Is Nothing Then
Set objProj = .GetInterfaceObject(ProjID)
End If
End With
GetobjProj = objProj
End Function

[Anonymous]

Remember, it's an object so you have to Set GetobjProj = objProj "Kelie" wrote in message news:7988127.1096047141464.JavaMail.jive@jiveforum2.autodesk.com... > The following function always fails at the last line. > GetobjProj = objProj > > The error msg says: > > object variable or with block variable not set. > > Can someone help? Thanks a lot. > > > Public Function GetobjProj(ProjID As String) As Object > Dim ProjID2 As String > ProjID2 = ProjID & "." & Left(ThisDrawing.GetVariable("ACADVER"), 2) > Dim objProj As Object > With ThisDrawing.Application > Set objProj = .GetInterfaceObject(ProjID2) > If objProj Is Nothing Then > Set objProj = .GetInterfaceObject(ProjID) > End If > End With > GetobjProj = objProj > End Function

[Anonymous]

That was the problem. Thanks for your help.