Solid Edge FrameworkSupport Type Library > Arc2d Object : Style Property |
Visual Basic |
---|
Public Property Style As GeometryStyle2d |
Private Sub Form_Load() Dim objApp As SolidEdgeFrameWork.Application Dim objDoc As SolidEdgeDraft.DraftDocument Dim objSheet As SolidEdgeDraft.Sheet Dim objArcs2d As SolidEdgeFrameworkSupport.Arcs2d Dim objArc2d As SolidEdgeFrameworkSupport.Arc2d Dim objSty As SolidEdgeFrameworkSupport.GeometryStyle2d Dim strdashna 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 ' create arcs2d object Set objArcs2d = objSheet.Arcs2d 'create an arc2d Set objArc2d = objArcs2d.AddByCenterStartEnd(xCenter:=0, yCenter:=0, _ xStart:=0.15, yStart:=0#, xEnd:=0, yEnd:=0.15) 'get style of arc2d Set objSty = objArc2d.Style ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objSheet = Nothing Set objArcs2d = Nothing Set objArc2d = Nothing Set objSty = Nothing End Sub