Private Sub Form_Load()
Dim objApp As SolidEdgeFrameWork.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objDatumTargets As SolidEdgeFrameworkSupport.DatumTargets
Dim objDatumTarget As SolidEdgeFrameworkSupport.DatumTarget
Dim objLine As SolidEdgeFrameworkSupport.Line2d
Dim objLine1 As Object, dblX As Double, dblY As Double
Dim dblZ As Double, bKeyPoint As Boolean
' 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
'Create a Datum target in the active sheet with AddByTerminator to line
Set objDatumTarget = objDatumTargets.AddByTerminator(TerminatorObject:=objLine, _
x1:=0.25, y1:=0.25, z1:=0, keypoint1:=False)
'Add a Text to the Datum Target
objDatumTarget.DatumReference = "A"
'Get the Terminator of Datumtarget
Call objDatumTarget.GetTerminator(TerminatorObj:=objLine1, x:=dblX, y:=dblY, _
z:=dblZ, keypoint:=bKeyPoint)
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objDatumTargets = Nothing
Set objDatumTarget = Nothing
Set objLine = Nothing
End Sub