---

Hallo Zusammen
ich will eine Feature Analyse in einem CATPart durchführen. Anzahl der Bohrungen, Radien, Fasen und … Das will ich mit einem Makro in CATVBA realisieren. Dazu suche ich z.B. nach allen Bohrungen, bei denen der Bohrungsdurchmesser kleiner als 5,3 mm ist.

Mit der „Search Funktion“ habe ich folgende Zeile eingefügt und das funktioniert auch. Nur dabei ist der Wert fest vorgegeben.

    oSel.Search "CATPrtSearch.Hole.Diameter<5,3mm,sel"

Nun will ich den Wert für den Durchmesser als Variable einfügen.

Der Durchmesser wird nach Dokumentation als Variable vom Type length definiert. Das habe ich auch versucht, doch hier komme ich nicht weiter.

Wie muss die Definition der Variable aussehen?

    Dim itarget_diameter As Length
    itarget_diameter = 4.7

Hierbei kommt folgende Fehlermeldung:
Run Time error 91
Object variable or With block variable not set

Wenn die Variable ohne Type angegeben wird, dann kommt bei der "Search Funktion" folgende Fehlermeldung:
The methode search failed.

    Dim itarget_diameter
    itarget_diameter = 4.7
    oSel.Search "CATPrtSearch.Hole.Diameter < itarget_diameter ,sel"

Wie muss die Variable definiert werden, damit die "Search Funktion" funktioniert?

Danke

Gruß
Reimund

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

---

Servus
Versuch mal den String zusammen zusetzen:
oSel.Search "CATPrtSearch.Hole.Diameter < " & CStr(itarget_diameter) & ",sel"

Gruß
Bernd

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

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

---

Hallo Bernd,
danke für die Hilfe. Ich habe es nun so umgesetzt.

'--------------
Dim itarget_diameter As Double
itarget_diameter = 3
Dim sUnit As String
sUnit = "mm"
oSel.Search "CATPrtSearch.Hole.Diameter < " & CStr(itarget_diameter) & sUnit & ",sel"

'--------------
Gruß
Reimund

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