---

Ich steige jetzt so langsam , quasi im Selbststudium, in Inventor ein (2013). Wie kann ich eine Arbeitseben ausblenden (nicht löschen)?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bitteschön

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

schneller gehts mit der Tastenkombinationen:

ALT+]  fuer benutzererzeugte Arbeitsebenen
CTRL+] fuer system Arbeitsebenen

geht natuerlich nur wenn die Ebenen in den Bauteilen und/oder Baugruppen sichtbargeschaltet sind.

Fuers globale sichtbarschalten von Ebenen gibt es ein Macro, sobald ich es gefunden habe werd ich es hier posten, (oder jemand anderes tut es vor mir  )

------------------
Barbarus hic ego sum, quia non intellegor ulli!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

evtl. hilft des was, wenn nicht bitte ignorieren 

------------------------------
'Schaltet Sichtbarkeit aller Arbeitselemente einer Baugruppe oder eines Bauteils aus
'Berücksichtigt die komplette Struktur der Baugruppe!

Private Sub SetWorkInvisible(oMainDoc As Document, blVisible As Boolean)
  On Error Resume Next
  Dim oDoc As Document
  Dim oWorkPlane As WorkPlane
  Dim oWorkAxis As WorkAxis
  Dim oWorkPoint As WorkPoint
 
  'Sichtbarkeit der Arbeitselemente im Hauptdokument umschalten
  If oMainDoc.DocumentType = kAssemblyDocumentObject Or oMainDoc.DocumentType = kPartDocumentObject Then
      For Each oWorkPlane In oMainDoc.ComponentDefinition.WorkPlanes
        If oWorkPlane.Visible = True Then oWorkPlane.Visible = blVisible
      Next
     
      For Each oWorkAxis In oMainDoc.ComponentDefinition.WorkAxes
        If oWorkAxis.Visible = True Then oWorkAxis.Visible = blVisible
      Next
     
      For Each oWorkPoint In oMainDoc.ComponentDefinition.WorkPoints
        If oWorkPoint.Visible = True Then oWorkPoint.Visible = blVisible
      Next
  End If
  'Arbeitselemente in allen in der Baugruppe referenzierten Dokumente umschalten
  If oMainDoc.DocumentType = kAssemblyDocumentObject Then
      For Each oDoc In oMainDoc.AllReferencedDocuments
     
        'Sichtbarkeit aller Arbeitsebenen umschalten
        For Each oWorkPlane In oDoc.ComponentDefinition.WorkPlanes
        oWorkPlane.Visible = blVisible
        Next
       
        'Sichtbarkeit aller Arbeitsachsen umschalten
        For Each oWorkAxis In oDoc.ComponentDefinition.WorkAxes
        oWorkAxis.Visible = blVisible
        Next
       
        'Sichtbarkeit aller Arbeitspunkte umschalten
        For Each oWorkPoint In oDoc.ComponentDefinition.WorkPoints
        oWorkPoint.Visible = blVisible
        Next
      Next
  End If
 

 
End Sub
--------------------------------------------------

Grüße

MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP