---

Hallo zusammen,

ich bin auf der Suche nach einem Beispiel für die Erzeugung eines SweptVolumes. Kann mir da jemand weiterhelfen?

habe mit dem Makro-Rekorder folgenden Befehl erhalten:

Code:

---

sweptVolumes1variant.ComputeSweptVolumesFromSweptable Meca, arrayOfVariantOfObject1, Nothing, 0, 0.2, 0, 0, -1#, -1#, -1#, arrayOfVariantOfObject2

---

Meca, arrayOfVariantOfObject1 und arrayOfVariantOfObject2 sind befüllte. Trotzdem bekomme ich die Meldung Object required...

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

---

Etwas dünn der Code. :-)

Ist in sweptVolumes1variant was drin?
Sind die Arrays korrekt dimensioniert und befüllt?

Mach mal ein Call davor und Klammern um die Übergabewerte.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

SweptVolume1 ist definiert. Wenn ich aber das "Variant" weglasse gibt es einen Fehler. ich habe diese Variante vom Makro-Recorder.
Die Arrays sind beide befüllt, wobei das erste die Produkte enthält, die berücksichtigt werden sollen und das zweite genausoviele Elemente wie das erste hat, die "nothing" enthalten (ebenfalls vom Recorder abgeschaut).

Danke schonmal für die Hilfe!

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

---

Mit Call und Klammern gehts leider auch nicht.

Code:

---

Dim arrayOfVariantOfObject1()
Dim arrayOfVariantOfObject2()
For i = 0 To products1.Count - 2

    ReDim arrayOfVariantOfObject1(i)
    ReDim arrayOfVariantOfObject2(i)

    Set oProd = products1.Item(i + 2)
   
    Set arrayOfVariantOfObject1(i) = oProd
   
    Set arrayOfVariantOfObject2(i) = Nothing

sweptVolumes1variant.ComputeSweptVolumesFromSweptable Meca, arrayOfVariantOfObject1, Nothing, 0, 0.2, 1, 0, 20#, 0.1, -1#, arrayOfVariantOfObject2
   
     
Next

---

Meca behinhaltet den Mechanismus.

Bin für jeden Vorschlag dankbar.

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

---

Der Mechanismus war falsch definiert! Jetzt funktiniert das Ganze, aber mit dem Ergebnis bin ich noch nicht zufrieden. Wenn ich nämlich eine SweptVolume ablaufen lasse und den Code aufzeichne, erhalte ich die oben zu sehenden Zeilen. Das Ergebnis, also das CGR sieht aber anders aus, wenn ich von Hand ein SweptVolume erzeuge, als wenn ich das ganze nochmal per Makro ablaufen lasse.
Woran liegt das?

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

---

Hat jemand Erfahrung damit direkt ein Wrapping bei der Erzeugung eines SweptVolumes auszuführen. "Von Hand" ist das kein Problem und im Skript gibts es extra Parameter beim oben genannten Befehl. Das Ergebnis ist bei mir allerdings immer die selbe Hüllgeometrie...

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

---

Warum ist ComputeSweptVolumesFromSweptable() in der Schleife? Nimm das mal aus der Schleife raus, das macht aus meiner Sicht keinen Sinn, dann kannst Du es ja gleich für jedes Teil einzeln aufrufen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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