Risultati da 1 a 4 di 4
  1. #1
    Utente Standard L'avatar di Shaba
    Iscritto dal
    2007
    Messaggi
    404
    Professione
    Disegnatore
    Regione
    Lazio+Veneto
    Software
    Me10 The Best! OSD 19, KeyCreator 13.5, SolidWorks 2017, NX

    Predefinito Macro on/off filettatura cosmetica

    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! ;)

    Codice PHP:
    Dim SwApp As Object

    Dim Part 
    As Object
    Dim boolstatus 
    As Boolean
    Dim longstatus 
    As Longlongwarnings As Long


    Sub main
    ()

    Set SwApp Application.SldWorks

    Set Part 
    SwApp.ActiveDoc

    If SwApp.GetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreadsThen
      SwApp
    .SendMsgToUser ("11")
      
    boolstatus Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads0True)
    Else
      
    SwApp.SendMsgToUser ("22")
      
    boolstatus Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayShadedCosmeticThreads0False)
    End If

    End Sub 

  2. #2
    Utente Senior L'avatar di MassiVonWeizen
    Iscritto dal
    2009
    Messaggi
    4840
    Professione
    disegnatore
    Regione
    Friuli Venezia Giulia
    Software
    autocad 2013; solidworks 2014 e 2016

    Predefinito

    il comando mostra/nascondi le annotazioni non va bene?

  3. #3
    Utente Standard L'avatar di jenuary
    Iscritto dal
    2007
    Messaggi
    385
    Professione
    Progettista e Programmatore VB.Net
    Regione
    Veneto
    Software
    Solidworks

    Predefinito

    Allego macro modificata.
    File Allegati File Allegati

  4. #4
    Utente Standard L'avatar di Shaba
    Iscritto dal
    2007
    Messaggi
    404
    Professione
    Disegnatore
    Regione
    Lazio+Veneto
    Software
    Me10 The Best! OSD 19, KeyCreator 13.5, SolidWorks 2017, NX

    Predefinito

    Non ero lontano dal risultato...
    Penso che normalmente le tengo spente, ma se voglio vedere se il filetto è suff. lo accendo
    Grazie! :)


  • Discussioni Simili

    1. Filettatura cosmetica
      Di Dum nel forum Solidworks
      Risposte: 15
      Ultimo Messaggio: 23-08-2012, 18: 55
    2. Filettatura cosmetica 2d
      Di nicolapastena nel forum Solidworks
      Risposte: 2
      Ultimo Messaggio: 26-06-2012, 12: 28
    3. Filettatura cosmetica
      Di blubossa nel forum Solidworks
      Risposte: 3
      Ultimo Messaggio: 09-11-2010, 10: 36
    4. Filettatura cosmetica
      Di nene6363 nel forum Solidworks
      Risposte: 11
      Ultimo Messaggio: 16-06-2009, 23: 34
    5. filettatura cosmetica
      Di giannidsg nel forum Solidworks
      Risposte: 1
      Ultimo Messaggio: 23-01-2008, 09: 00

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  





    CAD3D.it - la community dei progettisti