I have a code that attaches custom sketched symbol to drawing curve:
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
Dim oLeaderPoints As ObjectCollection
Set oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection
Call oLeaderPoints.Add(oTG.CreatePoint2d(oCurvePoint.X + 2, oCurvePoint.Y + 2))
Dim oGeometryIntent As GeometryIntent
Set oGeometryIntent = oActiveSheet.CreateGeometryIntent(oDrawingCurve, oCurvePoint)
Call oLeaderPoints.Add(oGeometryIntent.Intent)
Dim sPS(0) As String
sPS(0) = oBOM_Text
Call oActiveSheet.SketchedSymbols.AddWithLeader("CUSTOM_BALLOON", oLeaderPoints, , , sPS, , True
This code works just fine. Problems is that when I place symbol using this code, leader does not have info on AttachedEntity:
If I manually re-attach same symbol against drawing curve info on AttachedEntity shows up:
I thought that GeometryIntent actually places leader against drawingcurve at certain point but this is not the case.
How can I place symbol with leader and leader to have info for AttachedEntity?