Pagina 4 di 4 PrimaPrima ... 234
Risultati da 31 a 33 di 33
  1. #31
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    809
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Ok, butta tutti i profili in un assieme e fai partire la macro. Scrive i risultati in un file testo (Nomepezzo / X,Y,Z)
    In bocca al lupo e ricorda: se il pezzo è storto o geometrie di lavoro sbordano il risultato non è buono. In bocca al lupo e fammi sapere come va!

    Public Sub MisuraRangeBox()

    Dim oAssy As AssemblyDocument


    Dim oApp As Inventor.Application
    Set oApp = ThisApplication

    Set oAssy = oApp.ActiveDocument

    Dim oCompOccs As ComponentOccurrences
    Set oCompOccs = oAssy.ComponentDefinition.Occurrences

    Dim oOcc As ComponentOccurrence
    Dim oPart As PartDocument
    Dim oPartDef As ComponentDefinition
    Dim oRange As Box
    Dim oMin() As Double, oMax() As Double
    Dim taglio As Double

    'Valore da aggiungere alla misura per ottenere il taglio
    taglio = 0

    'Prepara il file elenco
    Open "C:\elenco.txt" For Output As #1

    'Ciclo attraverso tutti gli elementi dentro un assieme
    For Each oOcc In oCompOccs
    Set oPart = oOcc.Definition.Document

    Set oPartDef = oPart.ComponentDefinition
    Set oRange = oPartDef.RangeBox

    Call oRange.GetBoxData(oMin(), oMax())

    'Scrive il nome del file
    'Print #1, oPart.FullFileName

    'Scrive il nome che si legge nel browser
    Print #1, oPart.DisplayName

    'Scrive i risultati
    Print #1, "X: "; (oMax(0) - oMin(0)) * 10 + taglio
    Print #1, "Y: "; (oMax(1) - oMin(1)) * 10 + taglio
    Print #1, "Z: "; (oMax(2) - oMin(2)) * 10 + taglio
    Next oOcc

    'Chiude il file
    Close #1
    End Sub
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  2. #32
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    809
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Nota: ti stampa ogni parte, quindi se metti 5 volte lo stesso file te lo ritrovi in elenco 5 volte.
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  3. #33
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    23
    Professione
    Disegnatore
    Regione
    Veneto
    Software
    Autocad2009

    Predefinito

    L'ho provata in velocità ma mi sembra ottima Grazie infinite. Appena ho un attimo faccio delle prove più accurate e poi ti faccio sapere. FANTASTICA


  • Pagina 4 di 4 PrimaPrima ... 234

    Discussioni Simili

    1. ricavare lamiera da file step
      Di cen82 nel forum Inventor
      Risposte: 15
      Ultimo Messaggio: 31-05-2016, 17: 35
    2. Visualizzatore file STEP
      Di CADEnrico nel forum Stampa 3D / Prototipazione Rapida
      Risposte: 8
      Ultimo Messaggio: 11-12-2013, 18: 42
    3. Visualizzatore per file CATIA V5 o file STEP
      Di Antony nel forum CATIA V5 vari
      Risposte: 0
      Ultimo Messaggio: 25-04-2012, 10: 40
    4. Risposte: 9
      Ultimo Messaggio: 28-03-2011, 17: 42
    5. Problemi file step
      Di giocamb nel forum CATIA V5 Interfaces
      Risposte: 0
      Ultimo Messaggio: 15-02-2011, 18: 51

    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