---

Hallöchen,

mal wieder ne kleine Frage,

ich habe mittels eines VBA-Makros eine UserForm erstellt, dort kann der Anwender auf eine Button klicken.
Wenn dieser Button betätigt wird soll er zuerst einen Körper anwählen der dann als DefineInWork getzt wird. Dann soll eine Powercopy starten.

Das mit der Auswahl und der Powercopy funktioniert auch super, bloß wird der ausgewählte Körper nicht DefineInWork gesetzt.

Hoffe jemand hat eine Idee, hier mal der Teilcode:

Private Sub CommandButton1_Click()

makroname = "Konstruktionshilfen"
version = "1.0"

CATIA.DisplayFileAlerts = False

Set partdoc1 = CATIA.ActiveDocument
Set Selection1 = CATIA.ActiveDocument.Selection
MsgBox "Wählen Sie einen Körper aus!", vbInfromation, makroname + "  " + version

Dim InputObjectType1(0)
InputObjectType1(0) = "Body"
Selection1.Clear
Me.Hide
Status = Selection1.SelectElement2(InputObjectType1, "Wählen Sie einen Körper aus!", False)
If (Status = "Cancel") Then
MsgBox "Auswahl wurde abgebrochen", 16, makroname + "  " + version
Me.Show (vbModeless)
Exit Sub
Else

End If

CATIA.StartCommand "UID_v0/File/C:\........"
End Sub

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

---

Servus
Versuche es mal so:

Code:

---

partdoc1.Part.InWorkObject = Selection1.item2(1).value

---

Gruß
Bernd

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

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

---

Jup hat funktioniert.

Dankesehr Bernd

Jetzt mal noch eine kleine Verständnisfrage.
Ich hatte es schonmal so versucht, bloß hatte ich:

partdoc1.Part.InWorkObject = Selection1.item(1).value

statt

partdoc1.Part.InWorkObject = Selection1.item2(1).value

warum ist das nun so?

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

---

Moin,

Auszug aus V5Automation für item

Zitat:

---

V5R16 #Item2 . The Count and Item Methods have been replaced by the Count2 and Item2 methods because they did not process correctly features which are not exposed to automation (such as a ResourcesList feature of a .CATProcess document).

---

------------------
wer ist diese Catia und wo kann ich sie finden?

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

---

hom dieses Schlitzohr

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