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

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:     ")

Безымянный.png

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