---

Hallo
Ich möchte die einzelnen Volumen eines Mehrvolumenkörpers umbenennen so dass es eine 4 Stellige Zahl ist und diese immer um 1 aufaddiert wird.
Soweit hab ich das ja schon hin bekommen was mir jetzt noch fehlt ist dass auch die führenden 0en geschrieben werden also "0001 und 0002 usw."

Das ist das ilogic:
----------------------------------------------
partDoc = ThisApplication.ActiveDocument
Dim solid As SurfaceBody
Dim Vorgabewert As Integer

Vorgabewert = InputBox("Vorgabewert Volumen angeben", "Vorgabewert", "0000")

For Each solid In partDoc.ComponentDefinition.SurfaceBodies
solid.Name = CStr(Vorgabewert)
Vorgabewert = Vorgabewert + 1
Next

----------------------------------------------

Danke im Vorraus
Marcus

------------------
Marcus 

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

---

Hallo Marcus,

probier mal folgendes:

Code:

---

partDoc = ThisApplication.ActiveDocument
Dim solid As SurfaceBody
Dim Vorgabewert As Integer

Vorgabewert = InputBox("Vorgabewert Volumen angeben", "Vorgabewert", "0000")

For Each solid In partDoc.ComponentDefinition.SurfaceBodies
solid.Name = CStr(Microsoft.VisualBasic.Strings.Format(Vorgabewert,"0000"))
Vorgabewert = Vorgabewert + 1
Next

---

Schönen Gruß
Helmut

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

---

     
danke haut hin

------------------
Marcus 

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