Difference between revisions of "HasPackage"
From scripting
(Created page with " 'Dim PkgManager 'Set PkgManager = MyPart.GetItem("GTCAttPkgManagerVBExt") Function HasPackage(InputObj As Variant) As Boolean On Error GoTo Blast Dim pkgs As AttPackage...") |
(No difference)
|
Latest revision as of 06:05, 22 April 2017
'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