Imports System.Runtime.InteropServices
Public Class AddBalloonCallOutLeader
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDraftDocument As SolidEdgeDraft.DraftDocument = Nothing
Dim objSheet As SolidEdgeDraft.Sheet = Nothing
Dim objBalloons As SolidEdgeFrameworkSupport.Balloons = Nothing
Dim objBall As SolidEdgeFrameworkSupport.Balloon = Nothing
Try
objApplication = GetObject(, "SolidEdge.Application")
objApplication.Visible = True
objDraftDocument = objApplication.ActiveDocument
objSheet = objDraftDocument.ActiveSheet
objBalloons = objSheet.Balloons
'Following Code will add Balloon in the sheet
objBall = objBalloons.Add(0.05, 0.05, 0)
objBall.TextScale = 1.0
objBall.BalloonText = "B"
objBall.Leader = True
objBall.BreakLine = True
objBall.BalloonSize = 3
objBall.SetTerminator(objBall, 0, 0, 0, False)
objBall.BalloonType = SolidEdgeFrameworkSupport.DimBalloonTypeConstants.igDimBalloonCircle
objBall.Style.TerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermFilled 'Change Terminator Type if reqd
'Following Code will add Callout in the sheet
objBall = objBalloons.Add(0.1, 0.1, 0)
objBall.Callout = True
objBall.TextScale = 1.0
objBall.BalloonText = "This is a Callout"
objBall.Leader = True
objBall.BreakLine = True
objBall.BalloonSize = 3
objBall.SetTerminator(objBall, 0, 0, 0, False)
objBall.BalloonType = SolidEdgeFrameworkSupport.DimBalloonTypeConstants.igDimBalloonCircle
objBall.Style.TerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermFilled 'Change Terminator Type if reqd
Marshal.ReleaseComObject(objBall) : objBall = Nothing
Marshal.ReleaseComObject(objSheet) : objSheet = Nothing
Marshal.ReleaseComObject(objDraftDocument) : objDraftDocument = Nothing
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
End Sub
End Class
using System.Runtime.InteropServices;
public class AddBalloonCallOutLeader
{
private void Form1_Load(object sender, System.EventArgs e)
{
SolidEdgeFramework.Application objApplication = null;
SolidEdgeDraft.DraftDocument objDraftDocument = null;
SolidEdgeDraft.Sheet objSheet = null;
SolidEdgeFrameworkSupport.Balloons objBalloons = null;
SolidEdgeFrameworkSupport.Balloon objBall = null;
try
{
objApplication = Microsoft.VisualBasic.Interaction.GetObject(null, "SolidEdge.Application");
objApplication.Visible = true;
objDraftDocument = objApplication.ActiveDocument;
objSheet = objDraftDocument.ActiveSheet;
objBalloons = objSheet.Balloons;
//Following Code will add Balloon in the sheet
objBall = objBalloons.Add(0.05, 0.05, 0);
objBall.TextScale = 1.0;
objBall.BalloonText = "B";
objBall.Leader = true;
objBall.BreakLine = true;
objBall.BalloonSize = 3;
objBall.SetTerminator(objBall, 0, 0, 0, false);
objBall.BalloonType = SolidEdgeFrameworkSupport.DimBalloonTypeConstants.igDimBalloonCircle;
objBall.Style.TerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermFilled; //Change Terminator Type if reqd
//Following Code will add Callout in the sheet
objBall = objBalloons.Add(0.1, 0.1, 0);
objBall.Callout = true;
objBall.TextScale = 1.0;
objBall.BalloonText = "This is a Callout";
objBall.Leader = true;
objBall.BreakLine = true;
objBall.BalloonSize = 3;
objBall.SetTerminator(objBall, 0, 0, 0, false);
objBall.BalloonType = SolidEdgeFrameworkSupport.DimBalloonTypeConstants.igDimBalloonCircle;
objBall.Style.TerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermFilled; //Change Terminator Type if reqd
Marshal.ReleaseComObject(objBall);
objBall = null;
Marshal.ReleaseComObject(objSheet);
objSheet = null;
Marshal.ReleaseComObject(objDraftDocument);
objDraftDocument = null;
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
public AddBalloonCallOutLeader()
{
SubscribeToEvents();
}
private bool EventsSubscribed = false;
private void SubscribeToEvents()
{
if (EventsSubscribed)
return;
else
EventsSubscribed = true;
base.Load += Form1_Load;
}
}