---

Hallo zusammen,
ich bin neu hier in diesem Forum, deswegen entschuldigt bitte ein Doppelposting. Habe allerdings nichts zu diesem Thema gefunden.
Hier mein Problem:
Ich möchte eine Baugruppe per Makro als 3DXML abspeichern, sodass unsere Fertigung im Viewer auch Zugriff darauf hat.
Beim Konstruieren nutze ich allerdings gerne transparente Bauteile.
Gibt es eine Möglichkeit, diese Transparanz im VBScript anzusprechen und anzupassen?
Vielen Dank schonmal für eure Antworten!

Mfg Andreas

------------------
Hauptsache wir machen was...

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

---

Servus

Willkommen im Forum.
Wird die Transparenz mit ins 3DXML exportiert (ggf auch mal mit einem manuellen Export vergleichen)? Soll diese mit exportiert werden?
Was meinst du mit:

Zitat:

---

diese Transparenz im VBScript anzusprechen

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

Ja, die Transparenz wird mit exportiert, sowohl wenn ich die Baugruppe per Hand exportiere, als auch per Makro.

Was ich nun tun möchte:
Jeden Körper der Baugruppe auf 100% opak (bzw. nicht transparent) setzen und das mittels einer Anweisung bevor das Makro die Baugruppe exportiert.

Wenn nötig, kann ich gerne das besagte Makro hier einstellen.

MfG
Andreas

------------------
Hauptsache wir machen was...

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

---

Hallo,

im Makro alle Körper suchen und dann über die Methode "SetRealOpacity" der "VisProperties" der "Selection" die Transparenz setzen.

Gruß Randle

------------------
Planung ersetzt Fehler durch Irrtum!

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

---

Hallo Randle,

das klingt genau nach dem was ich vorhabe.
Wahrscheinlich über eine For Each Schleife?
Weiter weiß ich dann allerdings nicht...

MfG Andreas

------------------
Hauptsache wir machen was...

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

---

Servus

ggf ist nicht mal eine Schleife erforderlich.
Was hast du den transparent gemacht? Wirklich einzelne Körper, oder ganze Instanzen im Product?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Zitat:

---

Original erstellt von bgrittmann:

Was hast du den transparent gemacht? Wirklich einzelne Körper, oder ganze Instanzen im Product?

---

Kann ich schlecht sagen, das hängt leider sehr vom Konstrukteur ab.
Einer macht einzelne Körper transparant, der nächste die ganze Instanz.

MfG
Andreas

------------------
Hauptsache wir machen was...

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

---

Servus

Die hemdsärmlige Lösung wäre wohl: alle Körper und Products selektieren und die Transparenz "zurücksetzen"

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "(CATAsmSearch.Product + CATPrtSearch.BodyFeature),all"

Dim oVisProperties
Set oVisProperties = selection1.VisProperties
oVisProperties.SetRealOpacity 255, 1

oSel.Clear

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Guten Morgen,

soeben mit eingebracht, läuft fehlerfrei.

Vielen Dank!

MfG
Andreas

------------------
Hauptsache wir machen was...

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