Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Owner2229
in reply to: Anonymous

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