Private Sub Form_Load()
Dim objApp As SolidEdgeFrameWork.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objLine As SolidEdgeFrameworkSupport.Line2d
Dim objDatumTargets As SolidEdgeFrameworkSupport.DatumTargets
Dim objDatumTarget As SolidEdgeFrameworkSupport.DatumTarget
Dim objDatumTarget1 As SolidEdgeFrameworkSupport.DatumTarget
Dim lngCountbfr As Long
' Report errors
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
If Err Then
Err.Clear
Set objApp = CreateObject("SolidEdge.Application")
Set objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")
objApp.Visible = True
Else
Set objDoc = objApp.ActiveDocument
End If
'getting the Active Sheet object
Set objSheet = objDoc.ActiveSheet
'Create a Line2d
Set objLine = objSheet.Lines2d.AddBy2Points(x1:=0.25, y1:=0.25, x2:=0.45, y2:=0.25)
'Getting the DatumTargets object
Set objDatumTargets = objSheet.DatumTargets
lngCountbfr = objDatumTargets.Count
'Create a Datum target in the active sheet
Set objDatumTarget = objDatumTargets.AddByTerminator(TerminatorObject:=objLine, _
x1:=0.3, y1:=0.25, z1:=0, keypoint1:=False)
'Add a Text to the Datum Target
objDatumTarget.DatumReference = "A"
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objDatumTargets = Nothing
Set objDatumTarget = Nothing
Set objDatumTarget1 = Nothing
Set objLine = Nothing
End Sub