Earlier I posted a question on how to create a line for my custom library and I was supplied the following code which works but I do have the following issue. Also in my library I have created a 2D shape which is a triangle. On this shape and the line shape I have the DefaultShapeGlue set to nothing. Here is the issue. I first drag the line to the canvas. I then drag the triangle to the canvas and place it on the line. When I do this the line turns red and it creates 2 other lines beneath the original line. How can I stop the line from turning red and stop the duplicate lines being created?
Thanks,
Ashley
Private Shared Sub InitAlternativeBranch1(ByVal shape As NShape)
shape.Init1DShape(EN1DShapeXForm.Vector)
shape.EndX = 200
shape.Height = 0
Dim geometry As NGeometry = shape.Geometry
If True Then
Dim plotFigure As NMoveTo = geometry.RelMoveTo(0R, 0.5R)
geometry.RelLineTo(1R, 0.5R)
plotFigure.CloseFigure = False
geometry.ClipWithTextBlock = ENGeometryClipWithShapeBlock.Clip
End If
Dim textBlock As NTextBlock = New NTextBlock()
textBlock.ResizeMode = ENTextBlockResizeMode.TextSize
textBlock.SetFx(NTextBlock.AngleProperty, "-ATAN2($Parent.EndY - $Parent.BeginY, $Parent.EndX - $Parent.BeginX)")
shape.TextBlock = textBlock
End Sub