Get full document name of sub assy by picking model leader note

[tim11_manhhieu]

Can i get full path of sub assy NDA006848.iam when i pick ① leader note?

Option Explicit

Sub yyyyyyy()

Dim oLeader As ModelLeaderNote
Set oLeader = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kModelAnnotationFilter, "Select: ")

End Sub

[Stakin]

please check:

https://forums.autodesk.com/t5/inventor-programming-ilogic/how-to-get-referenced-object-of-modellead...

[Stakin · Accepted solution]

Sub Main()
	Dim oSS As SelectSet= ThisApplication.ActiveDocument.SelectSet
	oSS.Select(ThisApplication.CommandManager.Pick(SelectionFilterEnum.kModelAnnotationFilter, "Select a ModelAnnotation"))	 
	Dim  oNote As ModelLeaderNote = oSS.Item(1)	 
	 Dim oOccEnumerator As ComponentOccurrencesEnumerator 
	 oOccEnumerator = oNote.Definition.Intent.Geometry.ContainingOccurrence.OccurrencePath
	 Dim oFullFileName As String
	 oFullFileName=oOccEnumerator(1).Definition.Document.FullFileName
	 MessageBox.Show("1st Level Occ(Part/Sub Asm) Name:" & oOccEnumerator(1).Name & vbLf & 
	 			"1st Level Occ(Part/Sub Asm)  FileName:" & oFullFileName & vbLf & 
	 			"Leaf Occurrence(Part) Name:" & oOccEnumerator(oOccEnumerator.Count).Name & vbLf & 
	 			"Leaf Occurrence(Part) FileName:" & oOccEnumerator(oOccEnumerator.Count).Definition.Document.FullFileName, "oNote associate")
End Sub

[tim11_manhhieu]

Appreciate it.

VBA for who need.

Option Explicit

Sub xxx()

Dim oNote As ModelLeaderNote
Set oNote = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kModelAnnotationFilter, "Select: ")

Dim oOccEnumerator As ComponentOccurrencesEnumerator
Set oOccEnumerator = oNote.Definition.Intent.Geometry.ContainingOccurrence.OccurrencePath

Dim oFullFileName As String
oFullFileName = oOccEnumerator(1).Definition.Document.fullFilename

Debug.Print oFullFileName

End Sub