---

Erstmal ein freundliches Hallo an Alle!

Beim Importieren von sat/step/iges-Dateien in AIS, sind die Teile manchmal eingefärbt.
Nun habe ich das Problem, das teilweise den einzelnen Flächen eines 3D-Elements(zB Extrusion) eine Farbe zugewiesen wurde, statt dem eigentlichen 3D-Element.
Bei den importierten Teilen handelt es sich zB um elektrische Steckverbindungen (D-Sub, Stiftleisten, ...), welche oftmals auch sehr feine Details beinhalten. Dies bedeutet für mich, dass ich die unzähligen Flächen einzeln mit [STRG] anwählen muss und dann mit der RMT unter Eigenschaften die Farbe ändern kann. Sobald ich aber (aus Versehen) eine Kante mit anwähle erscheint im Kontextmenü die Option "Eigenschaften" nicht mehr.
Das Ganze geschiet in der Bauteilumgebung.

Dies ist auf Dauer sehr zeitaufwändig, und da der Sinn dahinter "nur" für das Auge ist bzw. für unsere Doku-Abteilung, möchte ich fragen, ob es mit VBA möglich ist, automatisch alle Flächen des Teils anzuwählen, um dann über das RMT-Kontextmenü unter Eigenschaften die Farbe auszuwählen?

andere Lösungsidee:
Eventuell gibt es die Möglichkeit die Eigenschaft:Farbe von Flächen, 3D-Elementen, Bauteil zurückzusetzen.
Sodass bei den Eigenschaften von Flächen "Wie Element" und bei den 3D-Elementen "Wie Bauteil" eingestellt ist.

Ich hoffe mein erster Beitrag ist für euch verständlich und lösbar 

Grüße
Michél

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

---

Code:

---

Sub SelectAllFaces()
    If (ThisApplication.ActiveDocumentType <> kPartDocumentObject) Then
        MsgBox "Nur für Bauteile gedacht...", vbOKOnly, "Falscher Dokumenttyp"
        Exit Sub
    End If
       
    Dim oPart As PartDocument
    Dim oFace As Face
    Dim oSurfaceBody As SurfaceBody
   
    Set oPart = ThisApplication.ActiveDocument
    For Each oSurfaceBody In oPart.ComponentDefinition.SurfaceBodies
        For Each oFace In oSurfaceBody.Faces
            oPart.SelectSet.Select oFace
        Next
    Next
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions
HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60

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

---

Vielen Dank Igor, funktioniert perfekt!

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

---

Wow, immer noch sehr hilfreich dieses Makro!!

Danke!!

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