---

Servus!
Ich habe Probleme wenn ich einen Join einfärben will.
Die Teilflächen des Joins (Multi-sectíons Surface, Extrapolate.1, Extrapolate.2) lassen sich problemlos einfärben.
Beim Join funzt es aber net!

Code:

---

Dim Selection1 As Selection
Set Selection1 = CATIA.ActiveDocument.Selection
Selection1.Clear
Selection1.Add Join
Selection1.VisProperties.SetRealColor 255, 0, 255, 1

---

Irgendwelche Vorschläge???

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

---

Hallo! 

code:
-----------------------
CATIA.ActiveDocument.Selection.Add Join 'line Selection

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties

visProperties1.SetRealColor 0, 128, 0, 1 'Farbe

visProperties1.SetRealLineType 4, 1 'Line Type

visProperties1.SetRealWidth 4, 1 'Dick Line
-----------------------

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

Funktioniert auch nicht 

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

---

Hast du Fehlermeldung?

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

Keine Fehlermeldung, aber der Join wird einfach net eingefärbt!?

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

---

Join.jpg

code:
------------------------------------
Sub CATMain()

Set oPart = CATIA.ActiveDocument.Part
Set HBodies = oPart.HybridBodies
Set HB = hybridBodies1.Item("Geometrical Set.1")
Set HShapes = HB.HybridShapes
Set Join_ = HShapes.Item("Join.1")

Dim Selection1 As Selection
Set Selection1 = CATIA.ActiveDocument.Selection
Selection1.Clear
Selection1.Add Join_
Selection1.VisProperties.SetRealColor 0, 100, 255, 1

End Sub
-----------------------------------------

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

NichteingefärbterJoin.JPG

Wie schon gesagt, bei mir wird der Join NICHT eingefärbt!
Die Teilfläche aber schon obwohl ich den selben Code benutze!

Code:

---

...

Dim Selection1 As Selection
Set Selection1 = CATIA.ActiveDocument.Selection

Dim RefJoin1, RefJoin2, RefJoin3 As Reference
Set RefJoin1 = GSSurfaces.HybridShapes.Item ("Multi-sections Surface")
Set RefJoin2 = GSSurfaces.HybridShapes.Item ("Extrapol.1")
Set RefJoin3 = GSSurfaces.HybridShapes.Item ("Extrapol.2")

Dim Join As HybridShapeAssemble
Set Join = Wzk3D.AddNewJoin (RefJoin1, RefJoin2)
Join.AddElement RefJoin3
Join.Name = "Join"

GSSurfaces.AppendHybridShape Join

'Teilfläche einfärben
Selection1.Clear
Selection1.Add RefJoin3
Selection1.VisProperties.SetRealColor 255, 0, 255, 1

'Join einfärben
Selection1.Clear
Selection1.Add Join
Selection1.VisProperties.SetRealColor 255, 0, 255, 1

---

???????????????

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

---

NichteingefärbterJoin.JPG

Nochmal das Bild...

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

---

Join.JPG

& nochmal xD hoffentl klappts jetzt 

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