---

Hallo liebe CAD-Gemeinde,

Situation:
Ich habe etwa 50 Bauteile im Produkt angeordnet.
Per Makro messe ich zwischen bestimmten Bauteilsflächen den Abstand.
Die Werte für die Abstände variieren zwischen 1000 mm und 2400 mm.
Für den Zwischenraum stehen sechs verschiedene Bauteile zur Verfügung:
50, 100, 200, 600, 900 und 1600 (alle Werte in mm)

Problem:
Nun möchte ich diese Lücke mit den oben genannten Bauteilen auffüllen und zwar in der Rangfolge der Größe nach. Und zwar von groß nach klein.
Ich habe es bereits mit mehreren ineinander geschachtelten If-Schleifen versucht, doch das scheint mir ein endloses Unterfangen zu sein. Im ersten Schritt geht es mir um einen Vorschlag der berechnet werden und dem Benutzer ausgegeben werden soll. (z.B.: Der Zwischenraum 1700 mm kann mit einem Bauteil 1600mm und einem Bauteil 100mm befüllt werden! usw.)

Frage:
Gibt es für dieses Problem eine Funktion oder bzw. einen einfacheren Weg (Schleife o.ä.)???

Ich bin Euch für jeden Tipp und/oder Vorschlag dankbar.

Gruß
AstraUrtyp

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

---

Entschuldigt bitte, aber meine System-Info ist scheinbar abhanden gekommen:

CATIA V5R16
Service Pack 4
UNIX

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

---

Hallo,

Du könntest zwei verschachtelte Schleifen verwenden.
Die äußere Schleife wäre eine Do..While, die innere eine For..Next oder eine Do..While.
Die äußere Schleife sucht dann nach, bis noch etwas möglich ist und die Innere wählt den größtmöglichen aus.

Ohne Bedarf auf Vollständigkeit:

Code:

---

Dim aBauteilgroessen(5) as integer 'Array mit den Bauteilgrößen, Absteigend sortiert
aBauteilgroessen(0)=1600
aBauteilgroessen(1)=900
...
aBauteilgroessen(5)=50

Dim i as integer

Do While (Abstand>=aBauteilgroessen(5)) 'So kannst Du noch was einfügen
  for i=0 to 5
      if Abstand>=aBauteilgroessen(i) then
        'Du hast den größtmöglichen gefunden
        'hier kannst Du es einfügen oder was auch immer
        exit for 'steigt aus der Schleife aus, sonst würde jede weitere passen
      end if
  next
Loop

---

Gruß,
Zoltan

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

---

Hallo Zoltan,

vielen Dank für Deine schnelle Antwort. Dein Vorschlag klingt sehr gut!
Werde mich da mal ransetzen und es ausprobieren.

Gruß
Olli

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