Public Class frmReflectiveDisplay
Private Sub ReflectivePlane_Click(sender As System.Object, e As System.EventArgs) Handles ReflectivePlane.Click
Dim objSheetMetalDoc As SolidEdgePart.SheetMetalDocument = 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 objApp 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
' Create/get the application with specific settings
objApp = GetObject(, "SolidEdge.Application")
If Err.Number() Or objApp Is Nothing Then
MessageBox.Show("Could not get application.")
End If
' open the document mentioned in the doc files.
objSheetMetalDoc = objApp.Documents.Open("C:\ReflectivePlane.psm")
If Err.Number() Or objSheetMetalDoc Is Nothing Then
MessageBox.Show("Could not open document ")
End If
objSheetMetalDoc.ActivateReflectivePlane()
objSheetMetalDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, True, 0.3)
objSheetMetalDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, True, 0.4)
objSheetMetalDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, True, 0.5)
objSheetMetalDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, bStatus, dDistance)
objSheetMetalDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, bStatus, dDistance)
objSheetMetalDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, bStatus, dDistance)
objSheetMetalDoc.SetReflectivePlaneTransparency(True, iTransparency)
objSheetMetalDoc.GetReflectivePlaneTransparency(bStatus, iTransparency)
End Sub
End Class