Pagina 2 di 3 PrimaPrima 123 UltimaUltima
Risultati da 11 a 20 di 21
  1. #11
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    781
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Nell'assieme:
    Crei La rappresentazione farlocca (che serve perch altrimenti non ti fa piazzare la sovrapposta);
    Crei la rappresentazione vista (nell'esempio "Da evidenziare") con i pezzi che ti interessano

    Nella tavola:
    Piazzi la vista di base
    Piazzi la sovrapposta; nella finestra scegli la rappresentazione di vista che vuoi associare alla rappresentazione di posizione; selezioni lo stile "ombreggiato"

    Se si potessero sovrapporre con precisione viste normali (io non so farlo) tutto ci non servirebbe, ma non nemmeno troppo complicato, via! In bocca al lupo!
    Immagini Allegate Immagini Allegate
    Spesso astuzia ed intelligenza sono molto pi efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  2. #12
    Utente Senior
    Iscritto dal
    2013
    Messaggi
    1112
    Professione
    Progettista/Disegnatore
    Regione
    Emilia Romagna
    Software
    Inventor/Rhinoceros/Creo Direct Modeling

    Predefinito

    Grazie, risultato non male.

    Non conoscevo la vista sovrapposta.

  3. #13
    Utente Senior
    Iscritto dal
    2013
    Messaggi
    1112
    Professione
    Progettista/Disegnatore
    Regione
    Emilia Romagna
    Software
    Inventor/Rhinoceros/Creo Direct Modeling

    Predefinito

    Approfitto ancora, se volessi cambiare colore al componente?

    Ho provato a farlo nell'assieme, nella rappresentazione di vista in cui ho solo i componenti da evidenziare ma non funziona.
    Mi mantiene gli aspetti del materiale.

  4. #14
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    781
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Devi "vistare" la catenina subito sotto il combobox di scelta della rappresentazione di vista in modo da rendere associative le viste nel modello ed in tavola; in caso contrario in tavola si fissa quella usato all'inserimento. Provato a rendere il paletto rosso, funziona.
    Spesso astuzia ed intelligenza sono molto pi efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  5. #15
    Utente Senior
    Iscritto dal
    2013
    Messaggi
    1112
    Professione
    Progettista/Disegnatore
    Regione
    Emilia Romagna
    Software
    Inventor/Rhinoceros/Creo Direct Modeling

    Predefinito

    Ok, grazie di nuovo.

    Ho un ultima domanda (spero): la vista ok, quando stampo per come se il quadrato della vista sovrapposta mi cancellasse la parte di vista che ha sotto.

    Succedo solo in stampa, gi dalla finestra di anteprima. Nella tavola vedo tutto.

  6. #16
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    781
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Ok, s, la vista rapp. di posizione vince quella base: ho risolto invertendo le visualizzazioni, ovvero la vista base usa la rapp. "Da Evidenziare" con ombreggiatura, quella di posizione usa la rapp. di default senza ombreggiatura e layer "Come parti" (per non avere le linee fantasma").
    Spesso astuzia ed intelligenza sono molto pi efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  7. Il seguente utente ha ringraziato Catafratto per questo post

    TECNOMODEL (13-07-2016)

  8. #17
    Utente Senior
    Iscritto dal
    2013
    Messaggi
    1112
    Professione
    Progettista/Disegnatore
    Regione
    Emilia Romagna
    Software
    Inventor/Rhinoceros/Creo Direct Modeling

    Predefinito

    C' un piccolo difetto anche in questa soluzione.
    Il particolare ombreggiato semitrasparente e si vedono le linee del particolare sotto.

    Purtroppo una cosa che va su un catalogo, sapete come sono i commerciali

  9. #18
    Utente poco attivo
    Iscritto dal
    2011
    Messaggi
    4
    Professione
    Disegnatore
    Regione
    Lombardia
    Software
    inventor 2011

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    Mi pare fosse questa, su assiemi grossi lentissima.

    Codice:
    Public Sub ChangeViewEdgeColorToFaceColor()
    
    Dim invAllSheets As Sheets
    Dim invSHEET As Sheet
    Dim invDrawDOC As DrawingDocument
    Dim answer
    
        
    
        Set invDrawDOC = ThisApplication.ActiveDocument
        
       
        'On Error Resume Next
        'Debug.Print "START"
        Set invAllSheets = invDrawDOC.Sheets
        
        If invAllSheets.Count > 1 Then
            answer = MsgBox("Ci sono " & invAllSheets.Count & " fogli: processo tutto?", vbYesNo, "Change colors")
            If answer = vbYes Then
                For Each invSHEET In invAllSheets
                Debug.Print "CALLING >1"
                    Call ChangeSheetColors(invSHEET)
                Next invSHEET
            Else
                'Debug.Print "CALLING 1"
                Call ChangeSheetColors(invDrawDOC.ActiveSheet)
            End If
            
        Else
            Call ChangeSheetColors(invDrawDOC.ActiveSheet)
        End If
    End Sub
    
    Private Sub ChangeSheetColors(invSHEET As Sheet)
        Dim invAllViews As DrawingViews
        Dim invCurrView As DrawingView
    
        Dim invAllCurves As DrawingCurvesEnumerator
        Dim invCURVE As DrawingCurve
        Dim invAllSegs As DrawingCurveSegments
        Dim invSEG As DrawingCurveSegment
        Dim objGEN As Object
        Dim invRenderST As RenderStyle
        Dim invFace As Face
        Dim bytRED As Byte
        Dim bytGREEN As Byte
        Dim bytBLUE As Byte
        Dim invCOLOR As color
        Dim invTO As TransientObjects
        Dim invEdgePRX As EdgeProxy
        Dim invAllFACES As Faces
    
    
        On Error Resume Next
        Set invTO = ThisApplication.TransientObjects
        Set invCOLOR = invTO.CreateColor(255, 0, 0)
        
        Set invAllViews = invSHEET.DrawingViews
        For Each invCurrView In invAllViews
            Set invAllCurves = invCurrView.DrawingCurves
            'Debug.Print "n CURVE: " & invAllCurves.Count
            For Each invCURVE In invAllCurves
                Set invAllSegs = invCURVE.Segments
                'Debug.Print "n Segmenti " & invAllSegs.Count
                For Each invSEG In invAllSegs
                    Set objGEN = invSEG.Parent.ModelGeometry
                    If (TypeOf objGEN Is EdgeProxy) And (invSEG.Visible = True) Then
                        'Debug.Print "Trovata edgeproxy"
                        Set invEdgePRX = objGEN
                        Set invAllFACES = invEdgePRX.Faces
                        'Debug.Print "Edge proxy"
                        'Debug.Print "n " & invAllFACES.Count & " facce"
                        For Each invFace In invAllFACES
                            Set invRenderST = invFace.GetRenderStyle(kOverrideRenderStyle)
                            If Not invRenderST Is Nothing Then
                                invRenderST.GetAmbientColor bytRED, bytGREEN, bytBLUE
                                'Debug.Print "RED: " & bytRED
                                'Debug.Print "GREEN: " & bytGREEN
                                'Debug.Print "BLUE: " & bytBLUE
                                invCOLOR.SetColor bytRED, bytGREEN, bytBLUE
                                invCURVE.OverrideColor = invCOLOR
                                invCURVE.LineWeight = 0.05
                            End If
                        Next invFace
                    Else
                        If (TypeOf objGEN Is FaceProxy) And (invSEG.Visible = True) Then
                            Set invFace = objGEN
                            Set invRenderST = invFace.GetRenderStyle(kOverrideRenderStyle)
                            Debug.Print "RED: " & bytRED
                                Debug.Print "GREEN: " & bytGREEN
                                Debug.Print "BLUE: " & bytBLUE
                                invCOLOR.SetColor bytRED, bytGREEN, bytBLUE
                                invCURVE.OverrideColor = invCOLOR
                                invCURVE.LineWeight = 0.05
                        End If
                    End If
                    
                    'If (TypeOf objGEN Is ) Then
                    '   Debug.Print "Trovati!"
                    'End If
                   
                Next invSEG
            Next invCURVE
        Next invCurrView
    End Sub

    Grazie, ma se gi mi dici che sarebbe lentissima purtroppo sono gi tagliato fuori... Certo che secondo me potrebbe essere una cosa che interesserebbe a molti... o almeno penso

  10. #19
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    781
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Provare su qualche assieme quanto ci mette no?
    Spesso astuzia ed intelligenza sono molto pi efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  11. #20
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    781
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Citazione Originariamente Scritto da TECNOMODEL Visualizza Messaggio
    C' un piccolo difetto anche in questa soluzione.
    Il particolare ombreggiato semitrasparente e si vedono le linee del particolare sotto.

    Purtroppo una cosa che va su un catalogo, sapete come sono i commerciali
    Finite le idee, sorry...
    Spesso astuzia ed intelligenza sono molto pi efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...


  • Pagina 2 di 3 PrimaPrima 123 UltimaUltima

    Discussioni Simili

    1. Risposte: 2
      Ultimo Messaggio: 07-08-2012, 14: 44
    2. non vedo la deformata colorata
      Di mario barbieri nel forum Ansys
      Risposte: 3
      Ultimo Messaggio: 11-02-2012, 16: 48
    3. Messa in tavola ??
      Di Guido nel forum Rhino3D
      Risposte: 1
      Ultimo Messaggio: 29-03-2010, 16: 04
    4. messa in tavola
      Di jim78b nel forum Solidworks
      Risposte: 7
      Ultimo Messaggio: 19-01-2010, 17: 40

    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