'Mit diesem Makro können Sie alle Linienarten ändern.
'swLineFontVisibleEdgesThickness = Sichtbare Kanten
'swLineFontHiddenEdgesThickness =Verdeckte Kanten
'1 = dünn
'2= normal
'3 = dick
' und so weiter

Dim swApp As Object
Dim ModelDoc, DrawingDoc As Object
Dim SelectionMgr As Object
Dim LayerMgr As Object


Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc = swApp.ActiveDoc
    Set SelectionMgr = ModelDoc.SelectionManager
  
    Dim retval As Variant

   retval = ModelDoc.SetUserPreferenceIntegerValue(swLineFontVisibleEdgesThickness, "1")

   retval = ModelDoc.SetUserPreferenceIntegerValue(swLineFontHiddenEdgesThickness, "0")
 
     
    Call ModelDoc.WindowRedraw
    
End Sub