`ThisApplication` within `AddVbFile` file

[Anonymous]

Hi,

I'm trying to access `ThisApplication` from within a file accessed by a rule through `AddVbFile`
I'm sure there's a very good reason for this not working, but I don't know what it is. I imagine it has something to do with what's known at compile time vs. what's known at runtime.

Does anyone know what it might be?

Thanks

[Michael.Navara · Accepted solution]

AddVbFile merges code from this file to your main rule. But in this rule, you can't use any iLogic enhancements like ThisApplication or ThisDoc. Usually I use this for for code enclosed in class and in main rule I can create instance of this class and I need to pass all relevant references to this class (usually in constructor).

MyExternalVbCodeClass.iLogicVb code:

Class MyExternalVbCodeClass

	'You can rename this to ThisApplication
	Dim ThisApplicationInMyClass As Inventor.Application

	Public Sub New(inventorApp As Inventor.Application)
		Me.ThisApplicationInMyClass = inventorApp
	End Sub

	Public Function GetCaption() As String
		Return ThisApplicationInMyClass.Caption
	End Function

End Class

Main rule

AddVbFile "C:\Path\To\MyExternalVbCodeClass.iLogicVb"

Dim myExternalVbCodeClassInstance = New MyExternalVbCodeClass(ThisApplication)
Logger.Debug(myExternalVbCodeClassInstance.GetCaption())

[Anonymous]

Yeah, that's a nice idea. Thanks