Add justified leader note with iLogic

[Togo]

Hi guys,

I want to automate my workflow a little bit and I'd like to insert leader note to my drawings with ilogic rule.

I've managed to insert my note to the drawing like shown on the image below with iLogic rule.

Now I just need to justify the text of the note like shown below (justified manually). I don't know where and how to put justification property.

Thanks in advance for all replies.

[dgreatice]

insert your previous code, and others will upgrade your code.

[bradeneuropeArthur]

Hi,

Please put this in your code:

Public Sub leaderMiddle()

Dim a As Application
Set a = ThisApplication
Dim b As DrawingDocument
Set b = a.ActiveDocument

Dim c As Sheet
'Select the item sheet you need to change!
Set c = b.Sheets.Item(1)

Dim d As LeaderNote
'Select the item you need to change!
Set d = c.DrawingNotes.LeaderNotes.Item(1)

d.HorizontalJustification = kAlignTextCenter
d.VerticalJustification = kAlignTextMiddle

End Sub

[Togo]

This is my code.

Sub main AddLeaderNote()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument

    ' Set a reference to the active sheet.
    Dim oActiveSheet As Sheet
    oActiveSheet = oDrawDoc.ActiveSheet

    ' Set a reference to the drawing curve segment.
    ' This assumes that a drawing curve is selected.
    Dim oDrawingCurveSegment As DrawingCurveSegment
    oDrawingCurveSegment = oDrawDoc.SelectSet.Item(1)

    ' Set a reference to the drawing curve.
    Dim oDrawingCurve As DrawingCurve
    oDrawingCurve = oDrawingCurveSegment.Parent

    ' Get the mid point of the selected curve
    ' assuming that the selected curve is linear
    Dim oMidPoint As Point2d
    oMidPoint = oDrawingCurve.MidPoint

    ' Set a reference to the TransientGeometry object.
    Dim oTG As TransientGeometry
    oTG = ThisApplication.TransientGeometry

    Dim oLeaderPoints As ObjectCollection
    oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection

    ' Create a few leader points.
    Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 0.5, oMidPoint.Y - 0.5))
    'Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 10, oMidPoint.Y + 5))

    ' Create an intent and add to the leader points collection.
    ' This is the geometry that the leader text will attach to.
    Dim oGeometryIntent As GeometryIntent
    oGeometryIntent = oActiveSheet.CreateGeometryIntent(oDrawingCurve)

    Call oLeaderPoints.Add(oGeometryIntent)

    ' Create text with simple string as input. Since this doesn't use
    ' any text overrides, it will default to the active text style.
    Dim sText As String
    sText = "Measure<Br/>here"

    Dim oLeaderNote As LeaderNote
    oLeaderNote = oActiveSheet.DrawingNotes.LeaderNotes.Add(oLeaderPoints, sText)
    oLeaderNote.HorizontalJustification = kAlignTextCenter
    oLeaderNote.VerticalJustification = kAlignTextMiddle

    ' Insert a node.
    Dim oFirstNode As LeaderNode
    oFirstNode = oLeaderNote.Leader.RootNode.ChildNodes.Item(1)

    'Dim oSecondNode As LeaderNode
    'oSecondNode = oFirstNode.ChildNodes.Item(1)

    Call oFirstNode.InsertNode(oSecondNode, oTG.CreatePoint2d(oMidPoint.X + 5, oMidPoint.Y + 5))
End Sub 

 I've  added code as bradeneurope suggested, but it does nothing with my text.

[bradeneuropeArthur]

can you please put two msgboxes?

And write down what the first msgbox represents?

And write down what the second msgbox represents?

And share it with me?

 Dim oLeaderNote As LeaderNote
    oLeaderNote = oActiveSheet.DrawingNotes.LeaderNotes.Add(oLeaderPoints, sText)
    oLeaderNote.HorizontalJustification = kAlignTextCenter
	MsgBox oLeaderNote.HorizontalJustification

    oLeaderNote.VerticalJustification = kAlignTextMiddle
	MsgBox oLeaderNote.VerticalJustification 

[bradeneuropeArthur]

I have tested.

By me it is working.

Your code is correct.

What version of inventor are you using

[dgreatice]

Hi @bradeneuropeArthur

I have tested too, running at iLogic rule showing an error.

but running at VBA macro, its fine.

I using inventor 2014, any issue?

[bradeneuropeArthur]

Hi,

I have tested Vb.net.

I have not tested I-logic.

Maybe this is not supported for I-Logic.

That's why  I am interested in the release and service packs that are uses of inventor.

[Togo]

I'm using Autodesk Inventor Professional 2018.

Sorry, but I don't understand what you want from me with those msgboxes.

I'm also getting an error when I run the rule. How can I correct it?

But still my text is not justified.

[dgreatice]

can you migrate from iLogic to VBA Macro?

in VBA Macro you code run fine.

[bradeneuropeArthur · Accepted solution]

Change to this:

    oLeaderNote.HorizontalJustification = 19969

    oLeaderNote.VerticalJustification = 25601

Ilogic cannot use the object as name directly.

use the numbers like above! 

[Togo]

Yes, I have tried that in VBA Macro and it worked.

And with numbers in iLogic it also works now.

I have alse get rid of the error message. It was caused by last line before End sub.

So the working code is:

Sub main AddLeaderNote()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument

    ' Set a reference to the active sheet.
    Dim oActiveSheet As Sheet
    oActiveSheet = oDrawDoc.ActiveSheet

    ' Set a reference to the drawing curve segment.
    ' This assumes that a drawing curve is selected.
    Dim oDrawingCurveSegment As DrawingCurveSegment
    oDrawingCurveSegment = oDrawDoc.SelectSet.Item(1)

    ' Set a reference to the drawing curve.
    Dim oDrawingCurve As DrawingCurve
    oDrawingCurve = oDrawingCurveSegment.Parent

    ' Get the mid point of the selected curve
    ' assuming that the selected curve is linear
    Dim oMidPoint As Point2d
    oMidPoint = oDrawingCurve.MidPoint

    ' Set a reference to the TransientGeometry object.
    Dim oTG As TransientGeometry
    oTG = ThisApplication.TransientGeometry

    Dim oLeaderPoints As ObjectCollection
    oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection

    ' Create a few leader points.
    Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 0.5, oMidPoint.Y - 0.5))
    'Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 10, oMidPoint.Y + 5))

    ' Create an intent and add to the leader points collection.
    ' This is the geometry that the leader text will attach to.
    Dim oGeometryIntent As GeometryIntent
    oGeometryIntent = oActiveSheet.CreateGeometryIntent(oDrawingCurve)

    Call oLeaderPoints.Add(oGeometryIntent)

    ' Create text with simple string as input. Since this doesn't use
    ' any text overrides, it will default to the active text style.
    Dim sText As String
    sText = "Measure<Br/>here"

Dim oLeaderNote As LeaderNote
    oLeaderNote = oActiveSheet.DrawingNotes.LeaderNotes.Add(oLeaderPoints, sText)
    oLeaderNote.VerticalJustification = 25601

    ' Insert a node.
    Dim oFirstNode As LeaderNode
    oFirstNode = oLeaderNote.Leader.RootNode.ChildNodes.Item(1)

    'Dim oSecondNode As LeaderNode
    'oSecondNode = oFirstNode.ChildNodes.Item(1)

End Sub

Thank you very much for help. 

[bradeneuropeArthur]

Your thanks are appreciated!

[dgreatice]

hi,

make some code are better.

oDrawingCurveSegment = ThisApplication.CommandManager.Pick(16914, "select Line")