Macro on/off filettatura cosmetica

Shaba

Utente Standard
Professione: Disegnatore
Software: Me10 The Best! OSD 19, KeyCreator 13.5, SolidWorks 2017, NX
Regione: Lazio+Veneto
#1
Vorrei fare una macro per spegnere e accendere velocemente le "Filettature cosmetiche ombreggiate"
Mi sono bloccato sull'IF che legge lo stato settato..
Help me...
Thanks! ;)

PHP:
Dim SwApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long


Sub main()

Set SwApp = Application.SldWorks

Set Part = SwApp.ActiveDoc

If SwApp.GetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads) Then
  SwApp.SendMsgToUser ("11")
  boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads, 0, True)
Else
  SwApp.SendMsgToUser ("22")
  boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads, 0, False)
End If

End Sub
 

Shaba

Utente Standard
Professione: Disegnatore
Software: Me10 The Best! OSD 19, KeyCreator 13.5, SolidWorks 2017, NX
Regione: Lazio+Veneto
#4
Non ero lontano dal risultato...
Penso che normalmente le tengo spente, ma se voglio vedere se il filetto è suff. lo accendo
Grazie! :)