Solid Edge Part Type Library > PartDocument Object : GetReflectivePlaneTransparency Method |
Visual Basic |
---|
Public Sub GetReflectivePlaneTransparency( _ ByRef bStatus As Boolean, _ ByRef dTransparency As Integer _ ) |
Public Class Form1 Private Sub btnReflectivePlane_Click(sender As System.Object, e As System.EventArgs) Handles btnReflectivePlane.Click Dim objPartDoc As SolidEdgePart.PartDocument = Nothing Dim objProfile As SolidEdgePart.Profile = Nothing Dim sketch As SolidEdgePart.Sketch = Nothing Dim objPoint As SolidEdgeFrameworkSupport.Point2d = Nothing Dim objOrientation As SolidEdgeFrameworkSupport.Line2d = Nothing Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objPointOut As SolidEdgeFrameworkSupport.Point2d = Nothing Dim objOrientationOut As SolidEdgeFrameworkSupport.Line2d = Nothing Dim bStatus As Boolean = False Dim dDistance As Double = 0 Dim iTransparency As Integer = 30 Try ' Create/get the application with specific settings objApplication = GetObject(, "SolidEdge.Application") If objApplication Is Nothing Then MessageBox.Show("Could not get application.") End If ' open the document mentioned in the doc files. objPartDoc = objApplication.Documents.Open("C:\ReflectivePlane.par") If objPartDoc Is Nothing Then MessageBox.Show("Could not open document ") End If objPartDoc.ActivateReflectivePlane() objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, True, 0.3) objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, True, 0.4) objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, True, 0.5) objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, bStatus, dDistance) objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, bStatus, dDistance) objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, bStatus, dDistance) objPartDoc.SetReflectivePlaneTransparency(True, iTransparency) objPartDoc.GetReflectivePlaneTransparency(bStatus, iTransparency) 'objPartDoc.DeActivateReflectivePlane() If objPartDoc Is Nothing Then objPartDoc.Close(False) objPartDoc = Nothing End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class
Public Class Form1 Private Sub btnReflectivePlane_Click(sender As System.Object, e As System.EventArgs) Handles btnReflectivePlane.Click Dim objPartDoc As SolidEdgePart.PartDocument = Nothing Dim objProfile As SolidEdgePart.Profile = Nothing Dim sketch As SolidEdgePart.Sketch = Nothing Dim objPoint As SolidEdgeFrameworkSupport.Point2d = Nothing Dim objOrientation As SolidEdgeFrameworkSupport.Line2d = Nothing Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objPointOut As SolidEdgeFrameworkSupport.Point2d = Nothing Dim objOrientationOut As SolidEdgeFrameworkSupport.Line2d = Nothing Dim bStatus As Boolean = False Dim dDistance As Double = 0 Dim iTransparency As Integer = 30 Try ' Create/get the application with specific settings objApplication = GetObject(, "SolidEdge.Application") If objApplication Is Nothing Then MessageBox.Show("Could not get application.") End If ' open the document mentioned in the doc files. objPartDoc = objApplication.Documents.Open("C:\ReflectivePlane.par") If objPartDoc Is Nothing Then MessageBox.Show("Could not open document ") End If objPartDoc.ActivateReflectivePlane() objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, True, 0.3) objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, True, 0.4) objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, True, 0.5) objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, bStatus, dDistance) objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, bStatus, dDistance) objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, bStatus, dDistance) objPartDoc.SetReflectivePlaneTransparency(True, iTransparency) objPartDoc.GetReflectivePlaneTransparency(bStatus, iTransparency) 'objPartDoc.DeActivateReflectivePlane() If objPartDoc Is Nothing Then objPartDoc.Close(False) objPartDoc = Nothing End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class