---

counterbored.gif

Hallo Zusammen,

ich möchte mehrere vorhandene, abgesenkte Bohrungen mehrfarbig einfärben (siehe Anhang).
Einfarbig ist mir klar, aber mehrfarbig...?

Vielen Dank im Voraus für eure Hilfe

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

---

Hallo imation1999,

bin mir nicht so sicher ob das so funzt.
Featurebasierend ja, aber dann müßtest du die Fläche ansprechen.

Das sollte automatisiert schwer werden.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo,

ist eigentlich nicht so kompliziert. Anbei ein kleines Beispiel, wie ich das angehen würde.

Code:

---

Sub CATMain()

Dim MySel As Selection
Dim MyCol As New Collection
Dim i As Integer
Dim SPAWorkbench As SPAWorkbench
Dim MyMeasurable As Measurable

    Set MySel = CATIA.ActiveDocument.Selection
   
    MySel.Search ".Bohrung,alle"
   
    For i = 1 To MySel.Count2
        MyCol.Add MySel.Item2(i).Value
    Next i
   
    MySel.Clear
   
    For i = 1 To MyCol.Count
        MySel.Add MyCol.Item(i)
    Next i
   
    MySel.Search "Topologie.Teilfläche,aus"
   
    For i = MyCol.Count To 1 Step -1
        MyCol.Remove (i)
    Next i
   
    For i = 1 To MySel.Count2
        MyCol.Add MySel.Item2(i).Reference
    Next i
   
    Set SPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
   
    For i = 1 To MyCol.Count
        Set MyMeasurable = SPAWorkbench.GetMeasurable(MyCol.Item(i))
        If MyMeasurable.GeometryName = CatMeasurableCylinder Then
       
        Select Case MyMeasurable.Radius
            Case 7.5
                MySel.Clear
                MySel.Add MyCol.Item(i)
                MySel.VisProperties.SetRealColor 123, 4, 2, 1
            Case 5
                MySel.Clear
                MySel.Add MyCol.Item(i)
                MySel.VisProperties.SetRealColor 1, 4, 222, 1
        End Select
       
        End If
   
    Next i
   
   
End Sub

---

Gruß
  Mark

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

---

Hallo Mark,

Zitat:

---

Featurebasierend ja, aber dann müßtest du die Fläche ansprechen.

Das sollte automatisiert schwer werden.

---

Ok überredet!!

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo Mark,

vielen-vielen Dank für Deine Antwort. Es klappt wunderbar. Diese Code kann ich schon erweitern.

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