Solid Edge FrameworkSupport Type Library > CenterLine Object : Style Property |
Visual Basic |
---|
Public Property Style As DimStyle |
Private Sub Form_Load() Dim objApp As SolidEdgeFrameWork.Application Dim objDoc As SolidEdgeDraft.DraftDocument Dim objSheet As SolidEdgeDraft.Sheet Dim objCenterLines As SolidEdgeFrameworkSupport.CenterLines Dim objCenterLine As SolidEdgeFrameworkSupport.CenterLine Dim strStyle As String ' 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 ' Get the CenterLines object on the active sheet Set objCenterLines = objSheet.CenterLines ' Draw a CenterLine on the active sheet Set objCenterLine = objCenterLines.Add(x1:=0.25, y1:=0.15, z1:=0, _ x2:=0.25, y2:=0.35, z2:=0) ' Get the Style property strStyle = objCenterLine.Style ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objSheet = Nothing Set objCenterLines = Nothing Set objCenterLine = Nothing End Sub