Message 1 of 4
ExcludeAll

Not applicable
05-11-2007
12:25 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I am trying to exclude all the derived part sketches, geometry, parameters etc from a part with VBA. The code below does not work although it shows no errors. Am I missing something?
Thanks for any help
Public Sub Test()
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
Dim oDerivedPart As DerivedPartDefinition
Set oDerivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1).Definition
oDerivedPart.ExcludeAll
End Sub
Thanks for any help
Public Sub Test()
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
Dim oDerivedPart As DerivedPartDefinition
Set oDerivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1).Definition
oDerivedPart.ExcludeAll
End Sub