---

Hallo,

Ich habe mal wieder ein Problem.  
Möchte mit einem Marko z.B einen Parameter ändern,
der zwar in den angewendeten Teilen immer gleich heißt,
aber von Catia immer anders durchnummeriert wurde.
Kann das natürlich mit einer Inputbox lösen,
indem ich immer die Nummer angebe, die der Parameter dann besitzt,
aber das muß doch auch anders gehen.

z.B.:

Parameter_Hub.6

Wie kann ich also den Parameter_Hub.6 ansprechen, egal welche nummer er hat ?

__________________________________________________________________________

Set length1 = parameters1.Item("Parameter_Hub.")

__________________________________________________________________________

Habe es mal so versucht:

__________________________________________________________________________

Dim n As Integer
n = oBodies.Count
.
.
.
Set length1 = parameters1.Item("Parameter_Hub." & n)

__________________________________________________________________________

Er meint aber immer "Das verfahren Item ist fehlgeschlagen"

Bin noch am verzweifeln !

Wie zum Teufel sag ich CATIA das "n" im Beispielfall "6" ist ?!?!

Gruß
Alex

------------------
Never stop progress !

[Diese Nachricht wurde von Syphield am 02. Jul. 2009 editiert.]

[Diese Nachricht wurde von Syphield am 02. Jul. 2009 editiert.]

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

---

Servus
Schau dir mal diesen Beitrag an.
Hast du schon mal VB oder VBA Tutorial angeschaut (die Basics sind fürs Programmieren wichtig)?

Gruß
Bernd

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

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

---

Hallo,

wie Bernd es sagt, solltest du dich etwas in VB/VBA vertiefen.
Die eine Zeile könnte in etwa so aussehen:
Set length1 = parameters1.Item("Parameter_Hub." & CStr(n))
Es wird aber jedesmal meckern, wenn der Parameter mit der Nummer am Ende nicht existiert. Das könnte man zwar mit Ausschalten der Fehlerroutine beheben, ist aber keine gute Lösung.

Eleganter wäre es mit eine Schleife durch die Paraemter zu laufen un prüfen, ob die Name mit den gesuchten String anfängt und bei Fund den Parameter weiterverwenden. In etwa so:

Code:

---

dim i as integer
dim sParamName as string
for i=1 to parameters1.count
  sParamName = parameters1.Item(i).name
  if instr(1,sParamName,"Parameter_Hub.")=1 then
    'Parameter gefunden
    'dein Code hier
    exit for
  end if
next

---

Gruß,
Zoltan

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

---

Danke mit einer For Schleife hab ichs auch schon probiert.
Anscheinen nur Falasch.
Wird gleich getestet.

Ja,ja... mir fehlen total die Basics, ich weiß.
Könnt ihr mir evtl. eine Buchempfehlung für Grundlagen VB/VBA geben ?

Gruß
Alex

------------------
Never stop progress !

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

---

Eventuell CATIA V5 - Effiziente Konstruktion mit Makros von Dieter R.Ziethen, daruas hab ich die Grundlagen... und klappt soweit recht gut.
Cya spoerk

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