---

Hallo zusammen,

ich versuche Gewinde nach Durchmesser einzufärben. Was ich so gelesen habe kriegt man das eigentliche Gewinde nicht raus (zB. M4).Der Durchmesser würde mir aber soweit reichen. Ich habe folgendes probiert:

Language="VBSCRIPT"

Sub CATMain()

    On Error Resume Next

    Dim productDocument1 As Document
    Set productDocument1 = CATIA.ActiveDocument

    Dim selection1 As Selection
    Set selection1 = productDocument1.Selection

selection1.Search "'Part Design'.Bohrung.Gewinde=TRUE"
iAnzahlGew = selection1.count
MsgBox "AnzGew"&iAnzahlGew

For i = 1 To iAnzahlGew
    Set Durchmesser = selection1.Item(i).Diameter
    MsgBox CStr(Durchmesser)

Next

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 255,255,0,0
    selection1.Clear

End Sub

Die Variable Durchmesser wird mir aber nicht angezeigt. Was mache ich falsch?  Besten Ank für Eure Inputs.

------------------
Gruss
Stefan Inderbitzin

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

---

Servus
Versuch mal:
Set Durchmesser = selection1.Item2(i).Value.Diameter

Gruß
Bernd

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

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

---

Hallo Bernd,

besten Dank für die Antwort. Leider gehts auch so nicht.

------------------
Gruss
Stefan Inderbitzin

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

---

Servus
ich hab es jetzt mal selbst getestet. So sollte es funktionieren:

Code:

---

Sub CATMain()

    Dim productDocument1 As Document
    Set productDocument1 = CATIA.ActiveDocument

    Dim selection1 As Selection
    Set selection1 = productDocument1.Selection

    selection1.Search "CATPrtSearch.Hole.Threaded=TRUE,all"
iAnzahlGew = selection1.Count
MsgBox "AnzGew " & iAnzahlGew

For i = 1 To iAnzahlGew
    Set Hole = selection1.Item2(i).Value
    MsgBox CStr(Hole.Diameter.Value)
    MsgBox CStr(Hole.HoleThreadDescription.Value)

Next

Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 255,255,0,0
selection1.Clear

End Sub

---

Gruß
Bernd

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

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

---

Hallo Bernd,

genial !!!

Besten Dank.

------------------
Gruss
Stefan Inderbitzin

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