Export CAD and coordinations

[halganabi]

I Have a 3d sketch, 
it has lines, and also points, all together making a geometry as shown

I want to export a CAD, 3d or 2d Top is okay, 
showing the lines and point and a label of coordiation X Y Z. 

This require a coding if someone can help 

please find attached inventor file

Any similar idea or any thing can help doing this task is acceptable, 
at the end i don't want to fill the XYZ manually for each point as a repeated work.

thanks

[JelteDeJong · Accepted solution]

You could use the following work flow:

Create a drawing and create views.

Include work features. (User work points)

Run the following iLogic rule and select the workpoints that need an XYZ value leader. (press 'ESC' if you selected all)

Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet

While True
    Dim centerMark = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCentermarkFilter, "Select a center mark")

    If (centerMark Is Nothing) Then Exit While

    Dim workPoint As WorkPoint = centerMark.ModelWorkFeature
    Dim x = Math.Round(workPoint.Point.X * 10)
    Dim y = Math.Round(workPoint.Point.Y * 10)
    Dim z = Math.Round(workPoint.Point.Z * 10)


    Dim leaderTextPoint = ThisApplication.TransientGeometry.CreatePoint2d(centerMark.Position.X + 1, centerMark.Position.Y + 2)

    Dim points = ThisApplication.TransientObjects.CreateObjectCollection()
    points.Add(leaderTextPoint)
    points.Add(centerMark.Position)

    sheet.DrawingNotes.LeaderNotes.Add(points, String.Format("X: {0}mm<br />Y:{1}mm<br />Z:{2}mm<br />", x, y, z))
End While

[halganabi]

Brilliant!!