---

Hallo Catia Anwender.
Ich habe folgendes Problem.
Ich finde es extrem lästig wenn ich einen neuen Body einfüg das ich dann erst auf Properties gehen muss und ihn dort Umbenennen kann. Gibt es eine Möglichkeit wie beim einfügen eines Geometrical Sets einen Namen zu vergeben?

Danke schon mal für eure Hilfe.

Alex

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

---

Hallo,

so wird immer der zuletzt eingefügte Body umbenannt:

======================
Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("NamePart.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

bodies1.Item(bodies1.Count).name = "NameBody"

End Sub
======================

Gruß Locke101

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

---

Language="VBSCRIPT"

Sub CATMain()
Dim mypartDocument ' As PartDocument
Set mypartDocument = CATIA.ActiveDocument

Dim mypart ' As Part
Set mypart = mypartDocument.Part

sString = InputBox("Bitte einen Namen vergeben", "Bodybenennung", "nun mach was")

Dim mybodies ' As bodies
Set mybodies = mypart.bodies
Set mybody = mybodies.Add()

mybodies.Item(mybodies.Count).Name = UCase(sString)'gross

End Sub

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

---

Hallo,

@Locke: deins hat leider nicht geklapt. Weis auch leider nicht warum.

@Thomas: deins Funktioniert super,
Danke.

Jetzt fände ich es cool wenn ich das als Button noch auf meinen Bildschirm bekomme. Damit ich blos einen Knopdruck habe.
Wie kann ich dem Makkro ein Symbol vergeben und in meine Symbolleisten schieben.

Jetzt schon mal ein Danke.

Alex

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

---

ok das mit dem Symbol für das Macro hat sich erledigt.
Das habe ich gerade selber herausgefunden.

@Thomas: Wenn ich Abbrechen drücke erstellt er trotzdem einen Boddy, allerdings ohne Namen. Kann man das noch ändern oder ist das zuviel arbeit. Wenn nicht auch nicht so dramatisch. Bin eh schon happy das so Funktioniert.
Wäre sehr Dankbar.

Alex

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

---

Hi,

nach Inputbox:

if sString = "" then
    unload me
    exit sub
end if

zu meinem 1. Beitrag: ich bin davon ausgegangen das du schon einen Body eingefügt hast.

Gruß locke101

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

---

Zitat:

---

Original erstellt von Locke101:
Hi,

nach Inputbox:

if sString = "" then
    unload me
    exit sub
end if

zu meinem 1. Beitrag: ich bin davon ausgegangen das du schon einen Body eingefügt hast.

Gruß locke101

---

Ohne den zusatz

unload me

hat es wunderbar geklappt.

Danke!!!!!!!!!

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