Solid Edge Part Type Library > Profile Object : Plane Property |
Visual Basic |
---|
Public Property Plane As Object |
Private Sub Form_Load() Dim objApp As SolidEdgeFramework.Application Dim objDoc As SolidEdgePart.PartDocument Dim objProfile As SolidEdgePart.Profile Dim objPlane As SolidEdgePart.RefPlane ' 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.PartDocument") objApp.Visible = True Else Set objDoc = objApp.ActiveDocument End If 'Create a Profile object Set objProfile = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=objDoc.RefPlanes(1)) 'Assign the Plane of Profile to a New object Set objPlane = objProfile.Plane ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objPlane = Nothing Set objProfile = Nothing End Sub