08-16-2018
11:14 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-16-2018
11:14 AM
Dim oCompdef As PartComponentDefinition oCompdef = ThisDoc.Document.ComponentDefinition Dim MsgBody As String Dim AboveEoP_SkCount As Integer=0 For each oSketch As Sketch in oCompDef.Sketches If oSketch.HealthStatus<>HealthStatusEnum.kBeyondStopNodeHealth then AboveEoP_SkCount=AboveEoP_SkCount+1 MsgBody=MsgBody & " " & oSketch.Name & vbCrLf Else Exit For End If Next MsgBox (MsgBody,,"Out of " & oCompDef.Sketches.Count & " sketches " & AboveEoP_SkCount & " are placed above EoP: ")
See attached IPT.
Sketch1 to my mind is normal
Sketch2 to my mind is auxiliary.
How could I sort them out?
Thanks in advance
Please vote for Inventor-Idea Text Search within Option Names