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

You are right regarding latest versions (2018 don't "see" auxiliary Sketch at all)

yet... Inventor 2014 returns False value of IsOwnedByFeature for all sketches (seems not very useful property). 

 

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 & " - " & oSketch.IsOwnedByFeature & vbCrLf
	Else
Exit For
	End If
Next
MsgBox (MsgBody,,"Out of " & oCompDef.Sketches.Count & " sketches " & AboveEoP_SkCount & " are placed above EoP:     ")

I guess you then have no other recommendation but move to newest Inventor, right?

 

Please vote for Inventor-Idea Text Search within Option Names