HasPackage

From scripting
Jump to: navigation, search
'Dim PkgManager
'Set PkgManager = MyPart.GetItem("GTCAttPkgManagerVBExt")

Function HasPackage(InputObj As Variant) As Boolean
On Error GoTo Blast
Dim pkgs As AttPackages
Set pkgs = attManager.GetAttachedPackages(InputObj)
If pkgs.Count = 0 Then
    hasPackage = False
    Exit Function
End If
HasPackage = True
Exit Function
Blast:
HasPackage = False
End Function