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 objAttributeSets As Object
Dim objAttributeSet As Object
Dim bAttrPresence 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
'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
objDatumTarget.DatumReference = "A"
'Add a vertex
Call objDatumTarget.AddVertex(x:=0.35, y:=0.3, z:=0)
'Get the AttributeSets of DatumTarget
Set objAttributeSets = objDatumTarget.AttributeSets
'Create an AttributeSet
Set objAttributeSet = objAttributeSets.Add("MyAttrib Set")
' Check AttributeSet presence
bAttrPresence = objDatumTarget.IsAttributeSetPresent("MyAttrib Set")
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objDatumTargets = Nothing
Set objDatumTarget = Nothing
Set objAttributeSets = Nothing
Set objAttributeSet = Nothing
End Sub