Solid Edge FrameworkSupport Type Library > Circle2d 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 objCircs As SolidEdgeFrameworkSupport.Circles2d Dim objCirc1 As SolidEdgeFrameworkSupport.Circle2d Dim objStyle As SolidEdgeFrameworkSupport.GeometryStyle2d Dim strVisible 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 Circles collection object Set objCircs = objSheet.Circles2d ' Create a circle object Set objCirc1 = objCircs.AddByCenterRadius(x:=0.25, y:=0.25, Radius:=0.06) ' Get the circle object style Set objStyle = objCirc1.Style ' Get the Linear name property of circle object strVisible = objStyle.LinearName ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objSheet = Nothing Set objCircs = Nothing Set objCirc1 = Nothing Set objStyle = Nothing End Sub