Ansys.com


Pagina 6 di 8 PrimaPrima ... 45678 UltimaUltima
Risultati da 51 a 60 di 73
  1. #51
    Utente Standard L'avatar di teseo
    Iscritto dal
    2011
    Messaggi
    427
    Professione
    Cantinaro
    Regione
    Lombardia
    Software
    solidworks2016 sp4.0, autocad2013, pochino solidedge st7

    Predefinito

    grandissimooooooo

    grazie

    ciao

  2. #52
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    161
    Professione
    Disegnatore
    Regione
    Piemonte
    Software
    SolidWorks 2014 sp4

    Predefinito

    Citazione Originariamente Scritto da Gabryn Visualizza Messaggio
    Prego.
    Non sò perchè ma nell'incollare il codice in questo forum la scritta desktop è stata autocorretta in desk top


    Relativamente l'ultimo post penso che il problema sia:
    "utenti" è da cambiare in "users" anche se si usa Windows in italiano.
    .....\desktop" manca lo slash finale: .....\desktop\"


    Ciao.
    Come da titolo "Macro MOLTO interessante"

    Grazie mille
    --------------------------------
    Saluti Carlo

  3. #53
    Utente Senior L'avatar di marcof
    Iscritto dal
    2007
    Messaggi
    3587
    Professione
    appiccico francobolli con lo schiacciasassi
    Regione
    Modena
    Software
    solidworks 2013 SP 5.0

    Predefinito vista normale+zoom selezione

    Segnalo questa macro (appena sfornata dal gentilissimo Gabryn qui http://www.cad3d.it/forum1/threads/4...l=1#post351261) che permette di mettersi in vista normale ad una faccia o sketch selezionati adattando contemporaneamente lo zoom alla selezione.
    Per usarla togliere l'estensione .zip dall'allegato
    NormalView&Zoom.swp.zip
    "Ragazzo, il forum funziona come il computer: se immetti monnezza esce monnezza, ma moltiplicata di un fattore n
    Quindi accontentati di quello che è uscito, perchè è la logica conseguenza di quello che hai immesso"
    ©Meccbell

  4. #54
    Utente Standard L'avatar di tekno
    Iscritto dal
    2008
    Messaggi
    108
    Professione
    progettista
    Regione
    lombardia
    Software
    solidworks

    Predefinito

    Citazione Originariamente Scritto da Gabryn Visualizza Messaggio
    Prova a modificare il codice in questo modo:

    .......
    If Response = vbNo Then
    filename = CreateObject("WScript.Shell").specialfolders("Desk top") & "\" & Right(filename, Len(filename) - Len(WorkDir))
    ElseIf Response = vbCancel Then
    .......


    Io ho provato e funziona (Swx 2012 sp.4 su Win7 64bit)
    Ciao.
    Macro utilissima, vorrei un aiuto per modificarla.
    Un primo passo l'ho già fatto cambiando il salvataggio dei Dxf in dwg, noi usiamo quelli, ora vorrei modificare la directory di salvataggio, ovvero:
    Io i salvataggi li faccio sempre in una sub directory "\PDF + DWG", dove la dorectory principale cambia a secondo della commessa.
    Quindi come posso fare per ottenere la posizione automatica "Z:\xxxxxx\PDF + DWG".
    Spero di essere stato chiaro.
    Grazie e complimenti per questa macro.

  5. #55
    Utente Standard L'avatar di tekno
    Iscritto dal
    2008
    Messaggi
    108
    Professione
    progettista
    Regione
    lombardia
    Software
    solidworks

    Predefinito

    Ciao, sto ancora provando, l'ho modificata in questo modo:
    WorkDir = swApp.GetCurrentWorkingDirectory & ("PDF + DWG") & "\" 'get current directory
    Nel message box mi mostra il percorso corretto ma i file me li salva sempre nella directory di lavoro.
    Dove sbaglio?
    Ciao.

  6. #56
    Utente Junior L'avatar di Gabryn
    Iscritto dal
    2007
    Messaggi
    82
    Professione
    Tiralinee
    Regione
    Bs
    Software
    Acad2012,Me10 10.5,Swx16 sp4

    Predefinito

    Citazione Originariamente Scritto da tekno Visualizza Messaggio
    Ciao, sto ancora provando, l'ho modificata in questo modo:
    WorkDir = swApp.GetCurrentWorkingDirectory & ("PDF + DWG") & "\" 'get current directory
    Nel message box mi mostra il percorso corretto ma i file me li salva sempre nella directory di lavoro.
    Dove sbaglio?
    Ciao.
    Ho modificato la macro nella zona ...WorkDir = swApp.... e nella definizione file relativo il codice per lo 'step'.
    Allego macro.


    Ciao
    Gabriele
    File Allegati File Allegati
    -Quando tutto va bene, qualcosa andra' male. Corollari: 1. Quando non puo' andar peggio di cosi', lo -fara'.
    2. Se le cose sembrano andar meglio, c'e' qualcosa di cui non stiamo tenendo conto.

  7. #57
    Utente Standard L'avatar di tekno
    Iscritto dal
    2008
    Messaggi
    108
    Professione
    progettista
    Regione
    lombardia
    Software
    solidworks

    Predefinito

    Grazie tante, così è perfetta.
    Ciao
    Romano.

  8. #58
    Utente Junior L'avatar di Gabryn
    Iscritto dal
    2007
    Messaggi
    82
    Professione
    Tiralinee
    Regione
    Bs
    Software
    Acad2012,Me10 10.5,Swx16 sp4

    Predefinito

    Citazione Originariamente Scritto da tekno Visualizza Messaggio
    Grazie tante, così è perfetta.
    Ciao
    Romano.
    Prego

    Ciao
    Gabriele
    -Quando tutto va bene, qualcosa andra' male. Corollari: 1. Quando non puo' andar peggio di cosi', lo -fara'.
    2. Se le cose sembrano andar meglio, c'e' qualcosa di cui non stiamo tenendo conto.

  9. #59
    Utente poco attivo
    Iscritto dal
    2009
    Messaggi
    1
    Professione
    Disegnatore
    Regione
    Piemonte
    Software
    Solidworks

    Icon6 Aiuto per modifica macro

    Ciao a tutti, avrei bisogno di aiuto per modificare questa macro in maniera da salvare il file pdf in un latra directory. Qualcuno saprebbe gentilmente aiutarmi? Grazie mille.
    La macro è la seguente.
    ' © *Mg
    ' METAAL INDUSTRIE UDEN BV
    ' www.metaalindustrieudenbv.nl
    ' martin@metaalindustrieudenbv.nl

    Dim swApp As Object
    Dim Part As Object
    Dim boolstatus As Boolean
    Dim longstatus As Long, longwarnings As Long
    Dim Locatie As String
    Dim Locatie_aangepast As String
    Dim OpenDoc As Object
    Dim Extensie_nieuw As String
    Dim Extensie_oud As String
    Dim retval As String
    Dim Naam As String
    Dim Naam_aangepast As String




    Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set OpenDoc = swApp.ActiveDoc()

    Extensie_oud = ".SLDDRW"
    Extensie_nieuw = ".pdf"
    Locatie = OpenDoc.GetPathName
    Locatie_aangepast = Left(Locatie, Len(Locatie) - 7)
    retval = Dir$(Locatie_aangepast & Extensie_oud)
    Naam = Dir$(Locatie)
    Naam_aangepast = Left(Naam, Len(Naam) - 7)
    Titel = OpenDoc.GetTitle
    Titel = Left(Titel, (Len(Titel)))


    If retval = Naam Then
    nRetval = swApp.SendMsgToUser2(Naam_aangepast & " wordt geupdate!", swMbWarning, swMbOk)
    End If


    Set Part = swApp.ActiveDoc
    longstatus = Part.SaveAs3(Naam_aangepast & Extensie_nieuw, 0, 0)
    swApp.CloseDoc Titel
    End Sub

  10. #60
    Utente Junior
    Iscritto dal
    2014
    Messaggi
    11
    Professione
    Ingegnere
    Regione
    Emilia Romagna
    Software
    Solidworks

    Predefinito

    Salve,

    nei miei disegni voglio sempre utilizzare unità di misure personalizzate: in particolare parto da "MMGS (millimetro,grammo,secondo)" poi passo a "personalizzate" e cambio il grammo con il chilogrammo.
    Nei file nuovi non ho problemi (ho creato un template apposito) ma per i file vecchi mi tocca cambiarlo uno ad uno e la procedura è decisamente lenta.

    Conoscete una macro in cui è possibile velocizzare questa operazione di cambio unità di misura? magari si settano certe unità e con un semplice PLAY le mette a posto:


    aiutatemi...grazie!!!


  • Pagina 6 di 8 PrimaPrima ... 45678 UltimaUltima

    Discussioni Simili

    1. Macro solidworks
      Di matty nel forum Solidworks
      Risposte: 16
      Ultimo Messaggio: 03-02-2012, 11: 51
    2. Lavorare con solidworks 2005 e solidworks 2010
      Di angelogianni08 nel forum Altri CAD per la Meccanica
      Risposte: 5
      Ultimo Messaggio: 03-08-2011, 08: 58
    3. Aggiungere "TAG" a sottoscrizioni per trovare post interessanti
      Di reggio nel forum Proposte di modifiche al sito
      Risposte: 9
      Ultimo Messaggio: 27-01-2011, 16: 34
    4. Risposte: 2
      Ultimo Messaggio: 13-12-2010, 09: 36
    5. Link interessanti
      Di arri nel forum Lisp per Autocad
      Risposte: 3
      Ultimo Messaggio: 11-01-2008, 09: 14

    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