Solid Edge FrameworkSupport Type Library > Curve2d 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 objCurves As SolidEdgeFrameworkSupport.Curves2d Dim objCurve1 As SolidEdgeFrameworkSupport.Curve2d Dim objStyle As SolidEdgeFrameworkSupport.GeometryStyle2d Dim dblPoint(1 To 8) As Double Dim dblX As Double, dblY As Double ' 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 Curves collection Set objCurves = objSheet.Curves2d 'Define points dblPoint(1) = 0.15 dblPoint(2) = 0.15 dblPoint(3) = 0.25 dblPoint(4) = 0.15 dblPoint(5) = 0.25 dblPoint(6) = 0.25 dblPoint(7) = 0.15 dblPoint(8) = 0.25 'Create curve Set objCurve1 = objCurves.AddByPoints(Pointcount:=4, Points:=dblPoint, FitType:=igDirectFit, Closed:=False) 'get Style Set objStyle = objCurve1.Style ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objSheet = Nothing Set objCurves = Nothing Set objCurve1 = Nothing Set objStyle = Nothing End Sub