Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objFilePrefs As SolidEdgeDraft.DraftFilePreferences
Dim objEdgeStyleName As String
Try
objApp = Marshal.GetActiveObject("SolidEdge.Application")
objDoc = objApp.ActiveDocument()
objFilePrefs = objDoc.FilePreferences()
'// Visible
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_VisibleEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_VisibleEdge) = "Phantom"
'// Hidden
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_HiddenEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_HiddenEdge) = "Phantom"
'// Tangent
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_TangentEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_TangentEdge) = "Phantom"
'// COMANDCS
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_CoordinateSystemEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_CoordinateSystemEdge) = "Phantom"
'// Reference Visible
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_ReferenceVisibleEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_ReferenceVisibleEdge) = "Phantom"
'// Reference Hidden
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_ReferenceHiddenEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_ReferenceHiddenEdge) = "Phantom"
'// Reference Tangent
objEdgeStyleName = objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_ReferenceTangentEdge)
objFilePrefs.DVEdgeStyleName(SolidEdgeConstants.DrawingViewEdgeStyleMappingEdgeType.seDVEdgeStyleMapping_ReferenceTangentEdge) = "Phantom"
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class