---

Hallo zusammen,
ich wollte ein Makro schreiben, das die folgende Funktion hat:
eine Scheibe soll mit mehreren Bohrungen versehen werden. Die Bohrung mit den Bemaßungen(Parameter) ist als PowerCopy gespeichert. Per Fenstereingabe wird gefragt, welche Bemaßungen die Bohrung haben soll und wie viele Bohrungen es geben soll. Die Bohrungen sollen dann im gleichen Abstand zueinander positioniert werden.
Ich habe es so versucht, jedoch wird der Befehl "Wzk3D" als fehlerhaft markiert.Jedoch wird eine Bohrung 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

---

Hallo und willkommen auf CAD.de !

Die CAD-Community ist aufgeteilt in verschiedene Bereiche.
Dies ist das Forum für allgemeine Anwendungen.

Es gibt auch ein spezielles Forum mit Fachleuten für deine Software (CATIA ?)
Das findest du in der Übersicht auf der Startseite:
www.cad.de / Alle Foren (Strg + F)

Bevor du in dem Fachbereich die Frage nochmals reinstellst, solltest du aber die dort vorhandene Suchfunktion benutzen, weil das Thema eventuell schon diskutiert sein könnte.

Weiter möchte ich dir noch diese Informationen empfehlen: hilfe.cad.de

Viele Grüße
Matthias

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

---

Danke für den Hinweis!

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