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 Coordinate Text orientation
objDimStyle.CoordinateTextOrientation = SolidEdgeFrameworkSupport.DimTextOrientationConstants.igDimStyleTextPerpendicular
If objDimStyle.CoordinateTextOrientation <> SolidEdgeFrameworkSupport.DimTextOrientationConstants.igDimStyleTextPerpendicular Then
MsgBox("Error in Coordinate text orientation 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