---

RIPPE(1).ipt.txt

Hallo Freunde,

Ich habe hier einen STEP-Import im IV11 gemacht, da kann ich die Teile partout nicht anders einfärben. Egal was ich an Material, Farbe, Stile, Eigenschaften, auf BT-, Feature-, oder BG-Ebene  vergebe... es bleibt Alles in der blendend fast-weissen Standardfarbe.

Was habe ich da übersehen?

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

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

---

- Basis1 in Konstruktion kopieren
- Doppelklick auf Konstruktion
- Basis1 -> Volumenkörper(1) -> Rechtsklick -> Eigenschaften
- Farbstil Standard, Haken bei Überschreibungen entnehmen
- Basis1 löschen
- Volumenkörper (1) aus Konstruktion verschieben -> Basis2
- Rechtsklick auf Basis2 -> Eigenschaften -> Farbe ändern

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

---

Und das dem "Meister der gesparten Mausklicks" 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Das Leben ist nicht immer leicht ...

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

---

Danke.

Der Import hat ja nur 2500 Teile....

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

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

---

Hallo Leo,

du kannst mal das Macro probieren:

Code:

---

Public Sub FaceColor()
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oFace As Face
    For Each oFace In oPart.ComponentDefinition.SurfaceBodies(1).Faces
        oFace.SetRenderStyle kOverrideRenderStyle, oPart.RenderStyles("Blue") 'Hier RenderStyle eintragen
    Next
End Sub

---

Und das schreibt dir in Direktfenster welche Renderstyles vorhanden sind:

Code:

---

Public Sub RenderStyles()
    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim oRender As RenderStyle
    For Each oRender In oPart.RenderStyles
        Debug.Print oRender.Name
    Next
End Sub

---

Bei mir z.B.:

Al2-O3 (Polished-Dark)
Al2-O3 (Polished)
Aluminum (Cast)
Aluminum (Flat)
Aluminum (Machined)
Aluminum (Polished)

usw.

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

FX64 Software Solutions

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

---

Igor, ich verneige mich vor Dir!

(hab's zwar noch nicht probiert, schaut aber kompliziert genug aus um glaubwürdig zu sein <G> )

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

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

---

Hi Leo,

• Dein Bauteil öffnen
• ALT + F11 (Macro Editor öffnen)
• Links in ApplicationProject / Module1 den Code Kopieren (FaceColor)
• Mauszeiger in das Macro platzieren und F5 drücken
• Schauen obs passt 

Wenn war unklar sein sollte, weißt du wo du mich findest…

PS: Wenn du mit der deutschen Version arbeitest wird es wohl nicht Blue sonder Blau heißen…
------------------
Grüße daywa1k3r

FX64 Software Solutions

[Diese Nachricht wurde von daywa1k3r am 10. Aug. 2006 editiert.]

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

---

Igor,

müssen alle Faces einzeln gesetzt werden, oder reichts nicht, wenn Du das Material neu setzt ? (und den Renderstyle auf "wie Material")

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Ach Igor, kennst Du mich immer noch nicht? Ich muss doch immer noch eine dumme Meldung nachschieben <G>

Dank Deiner Hilfe sind jetzt ein paar Teile Blue, was ja schon viel besser ist.
Aber ich versteh' noch immer nicht warum ich für so Importteile keine BT-Farben vergeben kann?

Jedenfalls besten Dank!

Nachtrag:
Ah, Mathias hat jetzt ungewollt das Geheimnis verraten!

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

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

---

Zitat:

---

Original erstellt von Charly Setter:
Igor,

müssen alle Faces einzeln gesetzt werden, oder reichts nicht, wenn Du das Material neu setzt ? (und den Renderstyle auf "wie Material")

---

Das geht schon "per Hand" nicht, also habe ich es auch nicht "per Code" probiert.

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

FX64 Software Solutions

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

---

Wieder so´n blöder, überflüssiger Murks.... 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

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

---

Ihr seid ja schnell als ...
Werde ich sofort testen

Danke

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

IV11: Laufzeitfehler "5"    Ungültiger Prozeduraufruf oder ungültiges Argument.

markierte Zeile: ->  For Each oFace In oPart.ComponentDefinition.SurfaceBodies(1).Faces

Geht auch ohne, aber wäre toll gewesen, wenn ich es zusammengebracht hätte ... 

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