---

Hallo zusammen,
ich wollte ein Makro schreiben, das die folgende Funktion hat:
an eine Scheibe sollen mehrere Bolzen eingefügt werden. Jeder Bolzen mit den Bemaßungen(Parameter) ist als PowerCopy gespeichert. Per Fenstereingabe wird gefragt, welche Bemaßungen der Bolzen haben soll und wie viele Bolzen es geben soll. Die Bolzen sollen dann im gleichen Abstand zueinander positioniert werden.
Ich habe es so versucht, jedoch wird der Befehl "Wzk3D" als fehlerhaft markiert.Jedoch wird ein Bolzen hinzugefügt und die Bemaßungen werden auch richtig aktualisiert. Das Programm:

Private Sub B_Scheibe_Click()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
parameters1.Item("Abstand.1").value = C_Abstand.value
parameters1.Item("Radius.1").value = C_Radius.value
part1.Update

Dim I, Schritt, Winkel As Integer
For I = 1 To C_Anzahl.value Step 1
    Schritt = 360 / C_Anzahl.value
    Winkel = Schritt * I
    parameters1.Item("Winkel.1").value = Winkel
    Dim Operation As Add
    Set Operation = Wzk3D.AddNewAdd(part1)
    part1.Update
Next
End Sub

Weiss jemand, woran mein Fehler liegt oder hat jemand einen anderen Vorschlag, wie man das Problem lösen könnte??? 

Schöne Grüße Daniel

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

---

Servus
Bitte Systeminfo ausfüllen.
Von einer Powercopy sehe ich deinem Code nichts.
Vermutlich muss Wzk3D als ShapeFactory dimensioniert und mit Set Wzk3D = part.ShapeFactory definiert werden.
Welchen Körper willst du "Adden"? Gemäß Doku muss bei AddNewAdd ein Körper übergeben werden.

Gruß
Bern

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

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

---

Hallo Daniel,

ein paar Dinge sind mir beim Durchlesen des Scripts aufgefallen:

Zitat:

---

Private Sub B_Scheibe_Click()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
parameters1.Item("Abstand.1").value = C_Abstand.value
parameters1.Item("Radius.1").value = C_Radius.value

---

Bei mir geht das nicht in einem Schritt.
Um den Wert des Parameters 'Radius.1' zu ändern verwende ich

Dim l_r1 as Length
set l_r1 = parameters1.Item("Radius.1")
l_r1.Value = C_Radius.value

Wo sind C_Abstand und C_Radius definiert?

Zitat:

---

part1.Update

Dim I, Schritt, Winkel As Integer

---

Das steht zwar oft in den VB-Skript-Beispielen von Dassault, ist aber trotzdem schlecht.
Siehe hierzu:
http://ww3.cad.de/foren/ubb/Forum137/HTML/005635.shtml

Zitat:

---

For I = 1 To C_Anzahl.value Step 1
    Schritt = 360 / C_Anzahl.value
    Winkel = Schritt * I
    parameters1.Item("Winkel.1").value = Winkel

---

Siehe oben...

Ausserdem: 'Step 1' ist der Default-Wert bei For-Schleifen.
Step macht nur Sinn bei Schrittweiten <> 1.

Zitat:

---

    Dim Operation As Add
    Set Operation = Wzk3D.AddNewAdd(part1)

---

Wo hast Du Wzk3D dimensioniert? (siehe Bernd)

Zitat:

---

    part1.Update
Next
End Sub

---

Prüf bitte mal, ob die Zuweisungen an die Parameter wirklich funktionieren.

Tschau,
Joe

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

---

Hallo Leute,
schon mal vielen Dank für eure Antworten.
Ich wollte einen Bolzen adden. Dies muss in meinem Fall aber nicht über das Programmieren an sich erfolgen. Der Benutzer soll den Bolzen, der als PowerCopy in einer anderen Datei gespeichert ist, selbst hinzufügen, dann das Makro-Programm starten, worauf er gefragt wird, wie viele Bolzen es geben soll, welchen Durchmesser sie haben sollen und den Abstand jedes Bolzens von der Mitte aus.
Ich werde es morgen versuchen mit der Definition von Wzk3D (zu Hause habe ich leider kein Catia).

Schöne Grüße Daniel

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