---

Makro.JPG

Hallo,

bin neu hier und habe mal eine Frage an die Profs.

Hatte bis jetzt nichts mir Makro Erstellung zu tun und habe über die Aufnahmefunktion und etwas rumprobieren ein Makro zum
Erstellen eines Körpers und div. geo. Sets erstellt. (siehe Bild im Anhang).

Nun soll, wenn das Makro aufgerufen wird eine Textbox erscheinen in der man den Namen des Körper eingeben kann. z.B. Grundkörper. Daraufhin
soll der Körper automatisch umbenannt werden und die geo. Sets die entsprechende Endung bekommen (z.B. xxx_Grundkörper)

Hier mal das bestehende Makro:

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Add()
Body1.Name = "NEW_BODY"

Set hybridBodies1 = body1.HybridBodies

Set hybridBody1 = hybridBodies1.Add()
hybridBody1.Name = "Position"

part1.UpdateObject hybridBody1

Set hybridBody2 = hybridBodies1.Add()
hybridBody2.Name = "Hauptentf./Schieberr."

part1.UpdateObject hybridBody2

Set hybridBody3 = hybridBodies1.Add()
hybridBody3.Name = "Konstruktion"

part1.UpdateObject hybridBody3

Set hybridBodies2 = hybridBody3.HybridBodies

Set hybridBody4 = hybridBodies2.Add()
hybridBody4.Name = "EXTRACT"

part1.UpdateObject hybridBody4

Set hybridBody5 = hybridBodies2.Add()
hybridBody5.Name = "UNTRIM"

part1.UpdateObject hybridBody5

Set hybridBody6 = hybridBodies2.Add()
hybridBody6.Name = "KONS"

part1.UpdateObject hybridBody6

Set hybridBody7 = hybridBodies2.Add()
hybridBody7.Name = "FINAL"

part1.UpdateObject hybridBody7

Set hybridBody8 = hybridBodies2.Add()
hybridBody8.Name = "SKETCH"

part1.UpdateObject hybridBody8

End Sub

würde mich über eure Hilfe sehr freuen.

MfG NTjaz

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

---

Hallo,

Du kannst sowas machen:

Code:

---

Set bodies1 = part1.Bodies
Set body1 = bodies1.Add()

BodyName = Inputbox("Info Text", "Kopf")
Body1.Name = BodyName

Set hybridBodies1 = body1.HybridBodies
Set hybridBody1 = hybridBodies1.Add()

hybridBody1.Name = "Position_" & BodyName

---

[Diese Nachricht wurde von imation1999 am 12. Okt. 2013 editiert.]

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

---

Hat funktioniert.

Vielen Dank!

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