---

Hallo Community,
oft kommt es vor, dass man an importierten 3D-Daten, z.B. eines Zulieferers, die Eigenscahften von Flächen umstellen muss.
Mühsam ist es jedoch, an komplizierten Teilen alle Flächen einzeln auszuwählen. Klickt man versehentlich und unbemerkt auf eine Kante, so fängt man von vorn an.
Gibt es eine Möglichkeit, alle oder mehrere Flächen (z.B. in einem Auswahlfenster) auszuwählen. Oder: Hat jemand solch ein pfiffiges VBA-Tool geschrieben?
Wir nutzen bei uns IV 11.

Vielen Dank für die Hilfe

rabokon

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

---

Willkommen! Und hier ist dein Geschenk 

Code:

---

Public Sub SelectAllFaces()
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oFace As Face
    For Each oFace In oPart.ComponentDefinition.SurfaceBodies(1).Faces
        oPart.SelectSet.Select oFace
    Next
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Bravo, Igor!

Da bleibt mir nur noch, auf diesen Thread hier zu verweisen: http://ww3.cad.de/foren/ubb/Forum50/HTML/013629.shtml

------------------
mfg - Leo

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

---

Hallo hallo,
vielen Dank für die schnellen Reaktionen auf meine Frage.
Bleibt mir nur noch, das Script einzubinden.

Bess demnähx

rabokon

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

---

Hat der Leo schon gepostet. http://ww3.cad.de/foren/ubb/Forum50/HTML/013629.shtml#000007

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Hallo hallo,
das Erstellen des Makros hat geklappt.
Leider ist der Ausführen-Button nicht anwählbar.
Klicke ich doppelt auf das aufgeführte Makro (Modul1.SelectAllFaces), so erhalte ich die Fehlermeldung "Microsoft Visual Basic, Systemfehler &H80004005 (-2147467259). Unbekannter Fehler" und lande im Makroeditor, wo der Code steht.

Wo ist der Haken?

Viele Grüße

rabokon

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

---

Schon die Revision meines vorigen Beitrages:

Das Tool enthielt noch die Zeile "Code:".
Die habe ich gelöscht - und alles funktioniert zur vollsten Zufriedenheit.

Habt vielen Dank für die schnelle Hilfe und:

Ein schönes Wochenende

rabokon

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

---

Nur als Info. Code ist ein ubb Tag und ist nur eine Formatierung in dem Beitrag. Also Code gehört nie zu dem, darunter geposteten Code.

------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

hallo Leute
das mit dem code funktioniert bei mir super bei einzelnen Bauteilen. Kann man das auch bei einer Baugruppe machen?
es ist eben mühsam alle Bauteile (über 100) einzeln zu öffen und die Farbe zu ändern
DANKE an Igor für die tolle Arbeit

arbeite im IV2011 SP1

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