---

Moin!

Mit freundlicher Hilfe dieses Forums habe ich ein Makro (s.u.), das mir erlaubt, sämtliche Arbeitselemte in einer Datei sichtbar oder unsichtbar zu machen. Da würde ich jetzt gern auch die sog. Flächenkörper mit einschließen. Geht das, und wenn ja, bitte wie?

Code:

---

Public Sub ToggleWorkElements()
    If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
        Dim oPart As PartDocument
        Set oPart = ThisApplication.ActiveDocument
        Dim oWorkAxis As WorkAxis
        Dim oWorkPlane As WorkPlane
        Dim oWorkPoint As WorkPoint
        Dim V As Boolean
        If oPart.ComponentDefinition.WorkPoints.Item(1).Visible Then
          V = 0
        Else
          V = 1
        End If
        For Each oWorkPlane In oPart.ComponentDefinition.WorkPlanes
            oWorkPlane.Visible = V
        Next
        For Each oWorkPoint In oPart.ComponentDefinition.WorkPoints
            oWorkPoint.Visible = V
        Next
        For Each oWorkAxis In oPart.ComponentDefinition.WorkAxes
            oWorkAxis.Visible = V
        Next
    ElseIf ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
        Dim oAsm As AssemblyDocument
        Set oAsm = ThisApplication.ActiveDocument
        If oAsm.ComponentDefinition.WorkPoints.Item(1).Visible Then
          V = 0
        Else
          V = 1
        End If
        For Each oWorkAxis In oAsm.ComponentDefinition.WorkAxes
            oWorkAxis.Visible = V
        Next
        For Each oWorkPlane In oAsm.ComponentDefinition.WorkPlanes
            oWorkPlane.Visible = V
        Next
        For Each oWorkPoint In oAsm.ComponentDefinition.WorkPoints
            oWorkPoint.Visible = V
        Next
    Else
        MsgBox "Geht nur für einzeln geöffnete Einzelteile und Baugruppen."
        Exit Sub
    End If
End Sub

---

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

Hallo Roland,

hab das jetzt nicht ausprobiert, sondern nur kurz in der Hilfe gekuckt. Es gibt einen Container .ComponentDefinition.WorkSurfaces der alle Worksurface-Elemente enthält. Ob das nun die gewünschten "Flächenkörper" sind, weiß ich nicht. Kannst Du ja ggf. selbst probieren.

https://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-A3EE039E-C184-46D8-A317-B386B78683DF

sollte dann genauso funktionieren...
For Each oWF In oPart.ComponentDefinition.WorkSurfaces
oWF.Visible = V
Next
(natürlich nur im If-Teil für PartDocuments)

------------------
Gruß KraBBy

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

---

Mir geht es um
- extrudierte oder rotierte Hilfsflächen, die ich immer häufiger für die Modelierung etwas kompliziertere Formen benötige
- per AK importierte Oberflächen anderer Bauteile

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

jetzt ausprobiert. Die "Worksurfaces" sind genau die Elemente, die im Modellbrowser unter dem Punkt "Flächenkörper" aufgelistet sind. Entsprechend hat folgender Code bei meinem Versuch funktioniert.

(getestet in einer ipt, Rotationsfläche, Versatzfläche und Fläche aus AK)

Code:

---

Public Sub ToggleWorkElements()
    If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
        Dim oPart As PartDocument
        Set oPart = ThisApplication.ActiveDocument
        Dim oWorkAxis As WorkAxis
        Dim oWorkPlane As WorkPlane
        Dim oWorkPoint As WorkPoint
        Dim V As Boolean
        If oPart.ComponentDefinition.WorkPoints.Item(1).Visible Then
          V = 0
        Else
          V = 1
        End If
        For Each oWorkPlane In oPart.ComponentDefinition.WorkPlanes
            oWorkPlane.Visible = V
        Next
        For Each oWorkPoint In oPart.ComponentDefinition.WorkPoints
            oWorkPoint.Visible = V
        Next
        For Each oWorkAxis In oPart.ComponentDefinition.WorkAxes
            oWorkAxis.Visible = V
        Next
        ' ----- eingefügt ----- KraBBy
        Dim oWF As WorkSurface
        For Each oWF In oPart.ComponentDefinition.WorkSurfaces
            oWF.Visible = V
        Next
        ' -----
    ElseIf ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
        Dim oAsm As AssemblyDocument
        Set oAsm = ThisApplication.ActiveDocument
        If oAsm.ComponentDefinition.WorkPoints.Item(1).Visible Then
          V = 0
        Else
          V = 1
        End If
        For Each oWorkAxis In oAsm.ComponentDefinition.WorkAxes
            oWorkAxis.Visible = V
        Next
        For Each oWorkPlane In oAsm.ComponentDefinition.WorkPlanes
            oWorkPlane.Visible = V
        Next
        For Each oWorkPoint In oAsm.ComponentDefinition.WorkPoints
            oWorkPoint.Visible = V
        Next
    Else
        MsgBox "Geht nur für einzeln geöffnete Einzelteile und Baugruppen."
        Exit Sub
    End If
End Sub

---

------------------
Gruß KraBBy

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