---

Problembild.JPG

Dim aParam As Parameters
Set aParam = aProdukt.Parameters

Dim bArray()
ReDim bArray(aParam.Count)

For n = 1 To aParam.Count
    If aParam.Item(n) = ("Type=Lenght") Then
...

Ich will alle Parameter Typs Length in eine Liste packen.

Danke

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

---

Moin Physimathi,

versuch mal folgendes:

If TypeName(aParam.Item(n)) = "Lenght" Then
...

Gruß
Proofin

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

---

Hallo,
ich habe das mal gleich eingebaut. VB geht ordnungsgemäß die Parameter durch, doch erkennt den Typ "Lenght" nicht. Kann es damit zusammenhängen, dass es "Variant/Object/Length" ist?

Wenn ich das eingebe "Variant/Object/Length" läuft er aber auch die ganzen Parameter ohne Resultat durch.

Ich probiere mal noch eine weile.
Gruß und danke
Physi

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

---

TypeName.JPG

Ich hab bei mir mal folgenden Code ausprobiert:

Code:

---

Sub CATMain()

  Dim oParams, ii
  Dim yy
  Set oParams = CATIA.ActiveDocument.Part.Parameters
  For ii = 1 To oParams.Count
    If TypeName(oParams.Item(ii)) = "Length" Then
      yy = yy + 1
    End If
  Next
end sub

---

Und er zählt mir yy nur bei Parametern vom Type Length hoch.
Siehe auch den ScreenShot.

Ich weiß nicht wo dein Problem ist??

Gruß
Proofin

[Diese Nachricht wurde von Proofin am 16. Okt. 2007 editiert.]

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

---

Hallo Physimathi,

ich lehne mich mal aus dem Fenster und sage, Dein Problem ist einfach ein Abschreibfehler.
Wenn Du Dein Bild nochmal genau betrachtest, wirst Du erkennen, dass Du im Script "Lenght" anstelle von "Length" geschrieben hast. Damit funktioniert es natürlich nicht!
Der letzte Code von "Proofin" sollte funktionieren, im ersten hatte er Deinen Fehler leider übernommen.

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Jepp du hast recht, falsche Buchstabenreihe.

danke für so viele Antworten.

Physi

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

---

Moin Physimathi,

sorry da hab ich nicht drauf geachtet.
Ist der Nachteil beim Copy Paste 

Gruß
Proofin

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