---

Hallo,
weiß jemand ob es möglich ist die Farbe von einzelnen Edges einer Polyline in einem Makro zu ändern?
Manuell kann ich es nicht, die Auswahlmöglichkeit ist grau hinterlegt.

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

---

Hallo,

kannst du die Edges über eine Suchabfrage ermitteln?

Dann kannst du diese Selektion auch einfärben.

Beispiele zum einfärben gibts hier im Forum.

Grüsse Dominik

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

---

TestEdge.CATPart

Hallo,
ich ahbe mal folgendes probiert. Leider scheint Edge oder Ecke irgendwie nicht gefunden zu werden.

Code:

---

Sub SubTestEdge()
    Dim SelectList As Selection
    Set SelectList = CATIA.ActiveDocument.Selection
    SelectList.Clear
    SelectList.Search "Name=*Edge*;all"
    SelectList.VisProperties.SetRealColor 255, 0, 0, 1
End Sub

---

Weiß niemand einen Rat?

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

---

Servus
Da es AFAIK manuell nicht geht, vermute ich dass es per Makro auch nicht geht eine Kante der Polylinie einzufärben.

Gruß
Bernd

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

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

---

Das ist ja Schade. Gibt es ein anderes Geometrieelement mit dem ich viele Punkte gerade miteinander verbinden kann und die einzelnen Abschnitte einfärben kann?

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

---

Hallo   ,

ja eine einfach Linie. Das Problem hierbei ist das du halt sehr viele Features (einzelne Linien) bekommst. Diese kannst du aber einzeln einfärben und ggf. zur weiteren Verwendung mit einem Join verbinden.

[EDIT]
Ich habe das ganze gerade mal ausprobiert. Wenn du nicht einfach eine Edge selektierst sondern eine Topology.CGMEdge dann findet er schon die einzelnen Linien der Polyline. Das Problem ist, das die diesen immer noch nicht einzeln färben kannst. Immer wenn du eine Linie in der Selektion einzeln färben willst nimmt CATIA die anderen automatisch mit. Hier mal mein Beispielscript mit dem ich experimentiert habe:

Code:

---

Sub CATMain()

    Dim intPartDocObj As PartDocument
    Dim intSelObj As Selection
    Dim intAllLineArr()
    Dim i As Integer
    Dim ii As Integer
    Dim intRandomizeRedLng As Long
    Dim intRandomizeBlueLng As Long
    Dim intRandomizeGreenLng As Long
   
    Set intPartDocObj = CATIA.ActiveDocument
    Set intSelObj = intPartDocObj.Selection
    intSelObj.Search "Topology.CGMEdge,all"
    If intSelObj.Count > 0 Then
        ReDim intAllLineArr(intSelObj.Count - 1)
        For i = 1 To intSelObj.Count
            Set intAllLineArr(i - 1) = intSelObj.Item(i).Value
        Next
    End If
   
    intSelObj.Clear
   
    For ii = 0 To UBound(intAllLineArr)
        Randomize
        intRandomizeRedLng = CSng((255 * Rnd) + 1)
        intRandomizeBlueLng = CSng((255 * Rnd) + 1)
        intRandomizeGreenLng = CSng((255 * Rnd) + 1)
        intSelObj.Add (intAllLineArr(ii))
        intSelObj.VisProperties.SetRealColor intRandomizeRedLng, intRandomizeGreenLng, intRandomizeBlueLng, 0
        intSelObj.Clear
    Next

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

   

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

---

Hallo,
ja danke. Muss mal sehen, ob ich meine Implementierung noch dahingehend änder. Aber ein interessanter Vorschlag.

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