---

Hallo Forum,

Ich möchte der Partbody eine bestimmte Farbe geben.
Das Programm (vba) bricht aber ab bei "selection1.Clear"
Hilfe ...

Sub CATMain()

iColorRed = 135
iColorGreen = 170
iColorBlue = 228

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("PartBody")

Dim selection1 As Selection
selection1.Clear
Set selection1 = body1
Set visProperties1 = CATIA.ActiveDocument.selection1.VisProperties
visProperties1.SetRealColor ColorRed, iColorGreen, iColorBlue, 1
MyPart.Update

End Sub

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

---

Servus

irgendwie ist die selection nicht richtig deklariert. Sry hab aber grad keine Lösung parat.Schau mal in der Hilfe oder Such mal.

Gruß Andi

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

---

Hi Seby,

So kann es nicht funktionieren. Du muß der selection1 erst die CATIA Selektion zuweisen.
Ersetze mal deinen Code, ab "Dim selection1 As Selection" durch folgenden:

Dim selection1 'As Selection
set selection1 = CATIA.ActivDocument.Selection
selection1.Clear
selection1.Add(body1)
Set visProperties1 = selection1.VisProperties
visProperties1.SetRealColor ColorRed, iColorGreen, iColorBlue, 1
MyPart.Update

Gruß
Proofin

[Diese Nachricht wurde von Proofin am 31. Jan. 2007 editiert.]

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

---

Danke Proofin es funktioniert

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