---

Hallo zusammen!

Ich würde gerne ein kleines Makro erstellen, in welchem ich vorerst alle vorhandenen Bohrungen analysieren, und gegebenenfalls die Parameter bearbeiten möchte. Hierzu müssen allerdings vorerst alle Bohrungen gefunden werden. Bei GeometricElements bekomme ich das ohne weiteres gebacken, jedoch stoße ich bei Bohrungen an meine Grenzen.

Hat jemand einen Tipp für mich?

Lieben Gruß  
Kathi

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Du könntest zB über die Selektion nach allen Bohrungen suchen:

Code:

---

oselection.Search "CATPrtSearch.Hole,all"

---

Gruß
Bernd

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

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

---

Danke schonmal! Leider hab ich diese Funktion noch nie benutzt, welche Definitionen müssen vorher getroffen werden?

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

---

Servus
zB

Code:

---

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim oselection As Object
Set oselection = partDocument1.Selection

oselection.Search "CATPrtSearch.Hole,all"

dim oHole as Hole
dim i as iteger
for i = 0 to oselection.count
  set ohole = oselection.item2(i).value
  'mach was mit der Bohrung
next

---

Gruß
Bernd

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

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

---

Super, vielen Dank!

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