---

Hallo zusammen!
Ich habe 4 Geo Sets, in denen ein Punkt auf die gleiche Weise, mit Unterstützung meines Makros, erstellt wird. Anfangs hatte ich im Makro 4 mal die gleiche Anweisung. Der einzige Unterschied war lediglich die Zahl am Ende des namens des Geo Sets z.B. "Geo_Set.1" und "Geo_Set.2" etc...
Ich möchte die einzelnen Elemente mit meinem Makro ansprechen und dachte ich nehem eine for-Schleife dafür.
wenn ich die zahl durch ein "i" ersetze dann funktioniert es aber nicht.
ich habe einfach keine ahnung warum das so ist. was mache ich falsch?

Ich bin dankbar für jede Hilfe.

hier ein Auszug:

dim i
for i=1 to 4 step 1

Set anfang = parameters1.Item("Part1\Linie1\Pt:Schnittpunkt_i\_Punkt_i")
Set versatz_Steuerpunkt_(i) =  parameters1.Item("Part1\Linie1\Pt:Schnittpunkt_i\Steuerpunkt_i")
Set Messungi = parameters1.Item("Part1\Aufbau\Linie1\Pt:Schnittpunkt_i\Messungi")

…
…
next

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

---

Hallo  ,

Code:

---

Set anfang = parameters1.Item("Part1\Linie1\Pt:Schnittpunkt_i\_Punkt_i")
Set versatz_Steuerpunkt_(i) =  parameters1.Item("Part1\Linie1\Pt:Schnittpunkt_i\Steuerpunkt_i")
Set Messungi = parameters1.Item("Part1\Aufbau\Linie1\Pt:Schnittpunkt_i\Messungi")

---

das ist auch logisch den dein i steht zwischen Anführungszeichen und wird somit von VB als String interpretiert. Du musst den String zusammensetzen und an die Methode .Item übergeben.

Hier mal ein kleines Beispiel:

Code:

---

...
Dim i as Integer

For i = 1 to 4
  parameters1.Item("Part1\Linie1\Pt:Schnittpunkt_" & Cstr(i) & "\_Punkt_" & Cstr(i))
Next

---

In Beispiel wird jetzt folgender String an die Methode übergeben (für i = 1)
"Part1\Linie1\Pt:Schnittpunkt_1\_Punkt_1"

------------------
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!
Vielen Dank! Jetzt funktionierts.

nur noch einmal zum Verständnis:
- in Anführungszeichen wird eins String übergeben (also der Name des Elementes)
- deswegen wird das i hier nicht hochgezählt
- ich muss den String unterbrechen und mit dem & Zeichen sage ich, dass noch etwas zum namen hinzugefügt wird
- oder sage ich dass etwas zum string hinzugefügt wird mit Cstr?
- alle anderen i, die nicht in einem String stehen werden hochgezählt, so wie bei Messungi (wird dann zu Messung1, Messung2, usw.)

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

---

Hallo  ,

Zitat:

---

- in Anführungszeichen wird eins String übergeben (also der Name des Elementes)
- deswegen wird das i hier nicht hochgezählt
- ich muss den String unterbrechen und mit dem & Zeichen sage ich, dass noch etwas zum namen hinzugefügt wird
- oder sage ich dass etwas zum string hinzugefügt wird mit Cstr?
- alle anderen i, die nicht in einem String stehen werden hochgezählt, so wie bei Messungi (wird dann zu Messung1, Messung2, usw.)

---

- Richtig. Wenn eine Code in Anführungszeichen steht ist das für VB ein String
- Richtig. VB übergibt den kompletten String mitsamt den iŽs so an die Methode .item weiter. Leider gibt es in deinem Part kein geometrische Set mit dem Namen GeoSet.i. Das führt zu einem Laufzeitfehler
- Richtig. Der String wird an der Stelle an dem der Zähler (i) kommt unterbrochen. Da der String aber weitergeht kommt das kaufmännische Und (&) Zeichen um VB zu sagen das er den ersten Teil mit dem zweiten Teil verknüpfen soll
- Falsch. Die Funktion "CStr" konvertiert einen Ausdruck (Expression) in einen String (dein i wurde ja als Integer = Ganzzahl deklariert). Hierbei kann es auch zu Laufzeitfehlern kommen. Diese treten auf sobald ein Ausdruck nicht in den gewünschten Typ konvertiert werden kann (das ist hier aber nicht der Fall :lol
- Richtig. Alle iŽs aus dem String haben den selben Wert. Die Schleife wird beim ersten mal durchlaufen (i = i) alle iŽs innerhalb der Schleife sind 1. Beim zweiten Durchlauf i =2 sind alle iŽs innerhalb der Schleife gleich 2. Willst du das nicht haben musst du das i mit einer mathematischen Funktion korrigieren (z.B. ....Item(i+1))

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

---

Perfekt!!!  vielen vielen Dank für die Hilfe und die Erklärungen!!! 

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

---

Servus
Kleiner Hinweis:
Wenn dein Part mal einen anderen Namen hat, funktioniert das Makro nicht mehr, da der Name "Part1" hart-codiert ist (und somit sich nicht anpasst)

Gruß
Bernd

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

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

---

ok. ich dachte der name des aktiven dokuments wird automatisch übernommen. aber stimmt, nach der Umbenennung kommt es zu einem Fehler.
das part wird zwar ziemlich sicher nicht mehr umbenannt aber falls doch, wäre es gut zu wissen wie man den partnamen ins Makro übernimmt?

Mit der Funktion Insert Object Resolution kommt immer der gleiche Text(mal abgesehen von dem oberen Kommentar ), egal welchen Namen ich dem Part gebe.

'---- Begin resolution script for object : Part1
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
'---- End resolution script

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

---

Servus
AFAIR müsst es so gehen:
parameters1.Item(part1.name & "\Linie1\Pt:Schnittpunkt_" & Cstr(i) & "\_Punkt_" & Cstr(i))

Gruß
Bernd

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

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

---

wunderbar! habe ich das jetzt auch abgesichert! danke!

und soweit ich das gesehen habe, funktionert das Update (part1.update) und das lokale Update (part1.UpdateObject) auch wenn der Name des Parts geändert wurde.

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