questions abot leader notes

[Anonymous]

I have added a leader note with the below code. My questions:

1. How do I create the " sign instead of inch in sText?

2. How can I break the leader note into several lines with text? I want to write something below 1" BSPP.

3. How do I change the leader note text side of each line? Say, if I want the first line to be size 5, and the second line to be size 3.5.

Thanks in advance 😃

	'\\\--- ADDS LEADER NOTES ---///

    ' Get the mid point of the selected curve
    ' assuming that the selected curve is linear.
	' This is the geometry that the leader text will attach to.
    Dim oMidPoint As Point2d
    oMidPoint = aoDrawCurves3SectionViewA(3).MidPoint

    Dim oLeaderPoints As ObjectCollection
    oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection

    ' Create a few leader points.
    Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 3, oMidPoint.Y+2))
    Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X + 2, oMidPoint.Y+2))
	Call oLeaderPoints.Add(oTG.CreatePoint2d(oMidPoint.X , oMidPoint.Y))

    ' 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 = "1 inch BSPP"
		
    Dim oLeaderNote As LeaderNote
    oLeaderNote = oSheet.DrawingNotes.LeaderNotes.Add(oLeaderPoints, sTexT)	

[rikard.nilsson · Accepted solution]

Hi,

Here is the answer for question 1 & 2

Dim sText = "1 " & Chr(34) & vbCr & "BSPP"

For question number 3 I don't have a good answer..

If I wanted to do that I probably had used Sketched Symbol insted. Thay also have leaders and you can control them a lot better..

/Rikard

[Anonymous]

thank you