Solid Edge FrameworkSupport Type Library > DatumPoints Collection : Style Property |
Visual Basic |
---|
Public Property Style As DimensionStyle |
Private Sub Form_Load() Dim objApp As SolidEdgeFrameWork.Application Dim objDoc As SolidEdgeDraft.DraftDocument Dim objSheet As SolidEdgeDraft.Sheet Dim objDatumPoints As SolidEdgeFrameworkSupport.DatumPoints Dim objStyle As SolidEdgeFrameworkSupport.DimensionStyle Dim objMyDimStyle As Object ' 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 'Get the Active Sheet object Set objSheet = objDoc.ActiveSheet 'add a new style Set objMyDimStyle = objDoc.DimensionStyles.Add("MyStyle", "ISO") 'create the datumpoints collection Set objDatumPoints = objSheet.DatumPoints 'set style objDatumPoints.Style = objMyDimStyle 'get the style Set objStyle = objDatumPoints.Style ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objSheet = Nothing Set objDatumPoints = Nothing Set objStyle = Nothing End Sub