Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApplication As SolidEdgeFramework.Application
        Dim objDraftDoc As SolidEdgeDraft.DraftDocument = Nothing
        Dim objConst As SolidEdgeConstants.ApplicationGlobalConstants
        Dim objSheet As SolidEdgeDraft.Sheet
        Dim objSheets As SolidEdgeDraft.Sheets
        Dim objDimensions As SolidEdgeFrameworkSupport.Dimensions
        Dim objHzDim As SolidEdgeFrameworkSupport.Dimension
        Dim objVtDim As SolidEdgeFrameworkSupport.Dimension
        Dim objLines As SolidEdgeFrameworkSupport.Lines2d
        Dim objDimStyle As SolidEdgeFrameworkSupport.DimStyle
        Dim objDimensionStyles As SolidEdgeFrameworkSupport.DimensionStyles
        Dim objDimensionStyle As SolidEdgeFrameworkSupport.DimensionStyle
        Dim objHzLine As SolidEdgeFrameworkSupport.Line2d
        Dim objVtLine As SolidEdgeFrameworkSupport.Line2d

        Try
            ' Create/get the application with specific settings
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objDraftDoc = objApplication.Documents.Add("SolidEdge.DraftDocument")

            'Get the sheets collection
            objSheets = objDraftDoc.Sheets

            'Get the active sheet
            objSheet = objDraftDoc.ActiveSheet

            'Get the lines collection and dimensions collection.
            objLines = objSheet.Lines2d
            objDimensions = objSheet.Dimensions

            'Add a horizontal line and a vertical line
            objHzLine = objLines.AddBy2Points(x1:=0.2, y1:=0.2, x2:=0.3, y2:=0.2)
            objVtLine = objLines.AddBy2Points(x1:=0.35, y1:=0.35, x2:=0.35, y2:=0.25)

            'Add dimensions to the lines that are created above.
            objHzDim = objDimensions.AddLength(Object:=objHzLine)
            objVtDim = objDimensions.AddLength(Object:=objVtLine)

            'Get the horizontal dimension style
            objDimStyle = objHzDim.Style
            'Get the dimension style collection
            objDimensionStyles = objDraftDoc.DimensionStyles

            'Get and Set Allow origin value change option
            objDimStyle.AllowOriginValueChangeForCoordinate = True

            If objDimStyle.AllowOriginValueChangeForCoordinate <> True Then
                MsgBox("Error in Allow origin value change option property for dimension style.")
            End If

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            objDimensionStyles = Nothing
            objDimensionStyle = Nothing
            objDimStyle = Nothing
            objHzDim = Nothing
            objVtDim = Nothing
            objHzLine = Nothing
            objVtLine = Nothing
            objDimensions = Nothing
            objLines = Nothing
            objSheet = Nothing
            objSheets = Nothing
            objDraftDoc = Nothing
            objApplication = Nothing
            objConst = Nothing
        End Try
    End Sub

    
End Class