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 dblX As Double, dblY As Double, dblZ As Double
Dim sDumpStatus As String ' Used for temporary storage of datadump return string
Dim cKPTyp As SolidEdgeConstants.KeyPointType
Dim cHndTyp As SolidEdgeConstants.HandleType
' 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
'Getting the DatumTargets object
Set objDatumTargets = objSheet.DatumTargets
'Create a Datum target in the active sheet
Set objDatumTarget = objDatumTargets.Add(x1:=0.3, y1:=0.25, z1:=0.25)
'Set the DatumReference to "A"
objDatumTarget.DatumReference = "A"
'Add a vertex at the end
Call objDatumTarget.AddVertex(x:=0.35, y:=0.3, z:=0)
'Set the Leader line to true
objDatumTarget.Leader = True
'Set the BreakLine status to true
objDatumTarget.BreakLine = True
'Get the Key Point of the DatumTarget
Call objDatumTarget.GetKeyPoint(Index:=1, x:=dblX, y:=dblY, z:=dblZ, _
KeyPointType:=cKPTyp, HandleType:=cHndTyp)
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objDatumTargets = Nothing
Set objDatumTarget = Nothing
End Sub