02-14-2017
10:29 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-14-2017
10:29 PM
Hey, try this:
'...
Dim o As ComponentOccurrence Set o = d.ComponentDefinition.Occurrences(1) Dim oDoc As Document Set oDoc = o.Definition.Document If oDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Exit Sub End If Dim oFT As PartFeature Set oFT = oDoc.ComponentDefinition.Features.Item("Drain Port E2") If Not oFT.Suppressed Then Exit Sub End If
'...
Consider using "Accept as Solution" / "Kudos" if you find this helpful.
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods