---

Hallo

Habe hier noch kurz eine kleine Herausforderung

Ich habe ein geometrisches Set, in welchem sich 100 ebenen befinden, da ich schon öfters welche erzeugt und gelöscht habe möchte ich diese mal per Makro kurz selektieren und umbennen wie "Linienebene_1"...bis "Linienebene_100"

Bidde Bidde

Ich weiß dass es eine For Schleife sein sollte

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim GeoElem As GeometricElements
Set GeoElem = CATIA.ActiveDocument.Part.HybridBodies.Item("####Beschnittebenen").GeometricElements
Dim Name As String

Dim UserSelect1 As Selection
Set UserSelect1 = CATIA.ActiveDocument. Selection

If UserSelect1 > 0 Count then  (hier wähle ich ja leider nur ein Element)

--> Also wie das ganze Geo Set und alle elemente da drin?

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

---

Moin,

ja, da muss ich Dir beipflichten...das ist nicht so wild ;-)))
Elemente im Baum selektieren und dann das Makro starten...

Code:

---

Set oSelection = CATIA.ActiveDocument.Selection
For iCount = 1 To oSelection.Count
Set oItem = oSelection.Item(iCount).Value
oItem.Name = "Plane_" & iCount
Next

---

Gruss,

Kai

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

---

Hallo,
Du kannst es am einfachsten über die Suche machen, wobei du die Suche auf eine Auswahl (Selection) beschränkst:

-------------------------------
Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set selection1 = partDocument1.Selection
Dim InputObjectType(0)
InputObjectType(0) = "HybridBody"
status = selection1.SelectElement2(InputObjectType, "Wählen Sie ein Geometrisches Set aus", False)
if(status = "cancel") then
Exit sub
end if

selection1.Search "CATGmoSearch.Plane,sel"

For i=1 to selection1.Count
Set item1 = selection1.Item(i).Value
item1.Name = "Linienebene_" & i
next

End Sub
----------------------------------------

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

---

DANKE DANKE DANKE DANKE DANKE DANKE  

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

---

ja.. iss ja jut ...

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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