Imports System.Runtime.InteropServices
Public Class Leader
Private Sub Leader_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 objLeaders As SolidEdgeFrameworkSupport.Leaders = Nothing
Dim objLeader As SolidEdgeFrameworkSupport.Leader = Nothing
Dim objTextBoxes As SolidEdgeFrameworkSupport.TextBoxes = Nothing
Dim objTextBox As SolidEdgeFrameworkSupport.TextBox = Nothing
Try
objApplication = GetObject(, "SolidEdge.Application")
objApplication.Visible = True
objDraftDocument = objApplication.ActiveDocument
objSheet = objDraftDocument.ActiveSheet
'Following Code will add Text in the sheet
objTextBoxes = objSheet.TextBoxes
objTextBox = objTextBoxes.Add(0.25, 0.25, 0)
objTextBox.TextScale = 1
objTextBox.VerticalAlignment = SolidEdgeFrameworkSupport.TextVerticalAlignmentConstants.igTextHzAlignVCenter
objTextBox.Text = "Leader"
'Following Code will add Leader in the sheet
objLeaders = objSheet.Leaders
objLeader = objLeaders.Add(0.225, 0.225, 0, 0.25, 0.25, 0)
objLeader.Style.FreeSpaceTerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermFilled ' Change Terminator type if Required.
Marshal.ReleaseComObject(objSheet) : objSheet = Nothing
Marshal.ReleaseComObject(objDraftDocument) : objDraftDocument = Nothing
Marshal.ReleaseComObject(objTextBox) : objTextBox = Nothing
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
End Sub
End Class
using System.Runtime.InteropServices;
public class Leader
{
private void Leader_Load(object sender, System.EventArgs e)
{
SolidEdgeFramework.Application objApplication = null;
SolidEdgeDraft.DraftDocument objDraftDocument = null;
SolidEdgeDraft.Sheet objSheet = null;
SolidEdgeFrameworkSupport.Leaders objLeaders = null;
SolidEdgeFrameworkSupport.Leader objLeader = null;
SolidEdgeFrameworkSupport.TextBoxes objTextBoxes = null;
SolidEdgeFrameworkSupport.TextBox objTextBox = null;
try
{
objApplication = Microsoft.VisualBasic.Interaction.GetObject(null, "SolidEdge.Application");
objApplication.Visible = true;
objDraftDocument = objApplication.ActiveDocument;
objSheet = objDraftDocument.ActiveSheet;
//Following Code will add Text in the sheet
objTextBoxes = objSheet.TextBoxes;
objTextBox = objTextBoxes.Add(0.25, 0.25, 0);
objTextBox.TextScale = 1;
objTextBox.VerticalAlignment = SolidEdgeFrameworkSupport.TextVerticalAlignmentConstants.igTextHzAlignVCenter;
objTextBox.Text = "Leader";
//Following Code will add Leader in the sheet
objLeaders = objSheet.Leaders;
objLeader = objLeaders.Add(0.225, 0.225, 0, 0.25, 0.25, 0);
objLeader.Style.FreeSpaceTerminatorType = SolidEdgeFrameworkSupport.DimTermTypeConstants.igDimStyleTermFilled; // Change Terminator type if Required.
Marshal.ReleaseComObject(objSheet);
objSheet = null;
Marshal.ReleaseComObject(objDraftDocument);
objDraftDocument = null;
Marshal.ReleaseComObject(objTextBox);
objTextBox = null;
}
catch (Exception ex)
{
Console.WriteLine(ex.ToString());
}
}
public Leader()
{
SubscribeToEvents();
}
private bool EventsSubscribed = false;
private void SubscribeToEvents()
{
if (EventsSubscribed)
return;
else
EventsSubscribed = true;
base.Load += Leader_Load;
}
}