<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Create Leader Note with the properties model- part number in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-leader-note-with-the-properties-model-part-number/m-p/9286307#M105206</link>
    <description>&lt;P&gt;i changed your code a bit. try this:&lt;/P&gt;&lt;PRE&gt;Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim s As String
s = "&amp;lt;Property Document='model' PropertySet='Design Tracking Properties' Property='Appearance' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='72'&amp;gt;APPEARANCE&amp;lt;/Property&amp;gt;"
Dim curve As DrawingCurve
curve = oDoc.SelectSet.Item(1).Parent
Dim oGI1 As GeometryIntent
oGI1 = oDoc.ActiveSheet.CreateGeometryIntent(curve, PointIntentEnum.kCenterPointIntent)

Dim pt As Point2d
pt = ThisApplication.TransientGeometry.CreatePoint2d

pt.X = oGI1.PointOnSheet.X + 3
pt.Y = oGI1.PointOnSheet.Y + 3

Dim oObjCol As ObjectCollection
oObjCol = ThisApplication.TransientObjects.CreateObjectCollection
oObjCol.Add(pt)
oObjCol.Add(oGI1)

Dim oLN As LeaderNote
' create a LeaderNote.
oLN = oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Add(oObjCol, "efadva")
oLN.FormattedText = s&lt;/PRE&gt;&lt;P&gt;i did have some with your formated string. so i changed it to show the Appearance iProperty. You probaly need something else. there for this rule that will shows the formated string of an leader that you need to select.&lt;/P&gt;&lt;PRE&gt;Dim test As LeaderNote = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingNoteFilter, "")
MsgBox(test.FormattedText)&lt;/PRE&gt;</description>
    <pubDate>Thu, 30 Jan 2020 18:34:19 GMT</pubDate>
    <dc:creator>JelteDeJong</dc:creator>
    <dc:date>2020-01-30T18:34:19Z</dc:date>
    <item>
      <title>Create Leader Note with the properties model- part number</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-leader-note-with-the-properties-model-part-number/m-p/9286114#M105200</link>
      <description>&lt;P&gt;Hi, i was trying to create an automated annotation tag but through ilogic but this is what i have so far..&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt;
&lt;SPAN&gt;oDoc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;s&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;s&lt;/SPAN&gt; = &lt;SPAN&gt;"&amp;lt;StyleOverride Font='Arial'&amp;gt;&amp;lt;Parameter Resolved='True' ComponentIdentifier='C:\Users\hanb\Documents\Disc.ipt' Name='HoleQuantity' Precision='0'&amp;gt;8&amp;lt;/Parameter&amp;gt;&amp;lt;/StyleOverride&amp;gt;&amp;lt;StyleOverride Font='Arial'&amp;gt; HOLES ON DIA &amp;lt;/StyleOverride&amp;gt;&amp;lt;StyleOverride Font='Arial'&amp;gt;&amp;lt;Parameter Resolved='True' ComponentIdentifier='C:\Users\hanb\Documents\Disc.ipt' Name='HolePCD' Precision='0'&amp;gt;35&amp;lt;/Parameter&amp;gt;&amp;lt;/StyleOverride&amp;gt;&amp;lt;StyleOverride Font='Arial'&amp;gt;±0.1 &amp;lt;/StyleOverride&amp;gt;&amp;lt;Br/&amp;gt;&amp;lt;StyleOverride Font='Arial'&amp;gt;WITH &amp;lt;/StyleOverride&amp;gt;&amp;lt;StyleOverride Font='Arial'&amp;gt;&amp;lt;Parameter Resolved='True' ComponentIdentifier='C:\Users\hanb\Documents\Disc.ipt' Name='HoleQuantity' Precision='0'&amp;gt;8&amp;lt;/Parameter&amp;gt;&amp;lt;/StyleOverride&amp;gt;&amp;lt;StyleOverride Font='Arial'&amp;gt; DIVISIONS&amp;lt;/StyleOverride&amp;gt;"&lt;/SPAN&gt;
 
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;curve&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingCurve&lt;/SPAN&gt;
&lt;SPAN&gt;curve&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;SelectSet&lt;/SPAN&gt;.&lt;SPAN&gt;Item&lt;/SPAN&gt;(1).&lt;SPAN&gt;Parent&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oGI1&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;GeometryIntent&lt;/SPAN&gt;
&lt;SPAN&gt;oGI1&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;CreateGeometryIntent&lt;/SPAN&gt;(&lt;SPAN&gt;curve&lt;/SPAN&gt;, &lt;SPAN&gt;kCenterPointIntent&lt;/SPAN&gt;)
 
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;pt&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Point2d&lt;/SPAN&gt;
&lt;SPAN&gt;pt&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientGeometry&lt;/SPAN&gt;.&lt;SPAN&gt;CreatePoint2d&lt;/SPAN&gt;
 
&lt;SPAN&gt;pt&lt;/SPAN&gt;.&lt;SPAN&gt;X&lt;/SPAN&gt; = &lt;SPAN&gt;curve&lt;/SPAN&gt;.&lt;SPAN&gt;CenterPoint&lt;/SPAN&gt;.&lt;SPAN&gt;X&lt;/SPAN&gt; + 3
&lt;SPAN&gt;pt&lt;/SPAN&gt;.&lt;SPAN&gt;Y&lt;/SPAN&gt; = &lt;SPAN&gt;curve&lt;/SPAN&gt;.&lt;SPAN&gt;CenterPoint&lt;/SPAN&gt;.&lt;SPAN&gt;Y&lt;/SPAN&gt; + 5
 
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oObjCol&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;ObjectCollection&lt;/SPAN&gt;
&lt;SPAN&gt;oObjCol&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateObjectCollection&lt;/SPAN&gt;
&lt;SPAN&gt;oObjCol&lt;/SPAN&gt;.&lt;SPAN&gt;Addpt&lt;/SPAN&gt;
&lt;SPAN&gt;oObjCol&lt;/SPAN&gt;.&lt;SPAN&gt;AddoGI1&lt;/SPAN&gt;
 
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oLN&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;LeaderNote&lt;/SPAN&gt;
&lt;SPAN&gt;' create a LeaderNote.&lt;/SPAN&gt;
&lt;SPAN&gt;oLN&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingNotes&lt;/SPAN&gt;.&lt;SPAN&gt;LeaderNotes&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;oObjCol&lt;/SPAN&gt;, &lt;SPAN&gt;""&lt;/SPAN&gt;)
&lt;SPAN&gt;oLN&lt;/SPAN&gt;.&lt;SPAN&gt;FormattedText&lt;/SPAN&gt; = &lt;SPAN&gt;s&lt;/SPAN&gt;

&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 30 Jan 2020 17:07:37 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-leader-note-with-the-properties-model-part-number/m-p/9286114#M105200</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2020-01-30T17:07:37Z</dc:date>
    </item>
    <item>
      <title>Re: Create Leader Note with the properties model- part number</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-leader-note-with-the-properties-model-part-number/m-p/9286307#M105206</link>
      <description>&lt;P&gt;i changed your code a bit. try this:&lt;/P&gt;&lt;PRE&gt;Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim s As String
s = "&amp;lt;Property Document='model' PropertySet='Design Tracking Properties' Property='Appearance' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='72'&amp;gt;APPEARANCE&amp;lt;/Property&amp;gt;"
Dim curve As DrawingCurve
curve = oDoc.SelectSet.Item(1).Parent
Dim oGI1 As GeometryIntent
oGI1 = oDoc.ActiveSheet.CreateGeometryIntent(curve, PointIntentEnum.kCenterPointIntent)

Dim pt As Point2d
pt = ThisApplication.TransientGeometry.CreatePoint2d

pt.X = oGI1.PointOnSheet.X + 3
pt.Y = oGI1.PointOnSheet.Y + 3

Dim oObjCol As ObjectCollection
oObjCol = ThisApplication.TransientObjects.CreateObjectCollection
oObjCol.Add(pt)
oObjCol.Add(oGI1)

Dim oLN As LeaderNote
' create a LeaderNote.
oLN = oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Add(oObjCol, "efadva")
oLN.FormattedText = s&lt;/PRE&gt;&lt;P&gt;i did have some with your formated string. so i changed it to show the Appearance iProperty. You probaly need something else. there for this rule that will shows the formated string of an leader that you need to select.&lt;/P&gt;&lt;PRE&gt;Dim test As LeaderNote = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingNoteFilter, "")
MsgBox(test.FormattedText)&lt;/PRE&gt;</description>
      <pubDate>Thu, 30 Jan 2020 18:34:19 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-leader-note-with-the-properties-model-part-number/m-p/9286307#M105206</guid>
      <dc:creator>JelteDeJong</dc:creator>
      <dc:date>2020-01-30T18:34:19Z</dc:date>
    </item>
  </channel>
</rss>

