---

Hallo

mit dem Makro von der Catia Hilfeseite zum einfärben von Gewindebohrungen bin ich für meine Zwecke schon ein Stück weitergekommen. Nun versuche ich dieses so anzupassen das es auch meine Passbohrungen (H7) erkennt und einfärbt, nur kenne ich leider den "Befehl" dazu nicht.
Könnte mir da jemand weitehelfen.
Vor ab schon mal besten Dank.

------------------
mfg    
me23

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

---

Hallo,

das Problem ist das es keine Eigenschaft hierzu gibt. Jedoch kannst du über das untere und obere Abmaß der Toleranz gehen um die Abfrage anzupassen.

Hier mal das Script:

Code:

---

Sub CATMain()

    Dim objSel As Selection
    Dim objPartDoc As PartDocument
    Dim arrHole() As Object
    Dim objHole As Variant
    Dim i As Integer
    Dim objVisProp As VisPropertySet
   
    Set objPartDoc = CATIA.ActiveDocument
   
    Set objSel = objPartDoc.Selection
    objSel.Clear
    objSel.Search "CATPrtSearch.Hole,all"
   
    '***ES GIBT BOHRUNGEN
    If objSel.Count > 0 Then
        '***HAT DIE BOHRUNG EIN GEWINDE?
        For i = 1 To objSel.Count
            Set objHole = objSel.Item(i).Value
            If objHole.ThreadingMode = catThreadedHoleThreading Then
                ReDim Preserve arrHole(UBound(arrHole) + 1)
                Set arrHole(UBound(arrHole)) = objHole
            ElseIf objHole.Diameter.MaximumTolerance <> 0 Or objHole.Diameter.MinimumTolerance <> 0 Then
                ReDim Preserve arrHole(UBound(arrHole) + 1)
                Set arrHole(UBound(arrHole)) = objHole
            End If
        Next
    Else
        Exit Sub
    End If
   
    objSel.Clear
   
    For Each objHole In arrHole
        objSel.Add objHole
    Next
           
   
    Set objVisProp = objSel.VisProperties
    objVisProp.SetRealColor 255, 255, 0, 0
    objSel.Clear

End Sub

---

HTH

------------------
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 Daniel

supi, besten Dank für die Hilfe.

------------------
mfg    
me23

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