Hallo, ich bins wieder mal
Ich hab ein neues Problem.
Ich habe ein Geometrisches Set, in dem Sketches stehen. Ich muss nun den Sketch kopieren, und als Result with Link in einem Body einfügen. Der Body ist als InWorkObject definiert. Wenn ich den folgenden Codeschnipsel ausführe, landet er bei meinem CATIA im korrekten Ziel, aber bei einem Kollegen bleibt das Solid/Ergebnisobjekt im Geometrischen Set und wird vom Code nicht mehr gefunden.
Kann mir jemand sagen, was ich da falsch mache oder wo mein Problem zu finden ist?
Gruss,
Helmut
Code:
Dim oUserSel as Selection
Dim oNewBody as Object
' Selection definieren
Set oUserSel = CATIA.ActiveDocument.Selection
' das übergebene Objekt oBody der Selection zufügen
' und kopieren. Es wurde zuvor mit einer SelectElement2()
' Aktion erfragt
oUserSel.Clear
oUserSel.Add oBody
oUserSel.Copy
' Ziel abfragen: InWorkObject des aktuellen Dokumentes
Set oNewBody = CATIA.ActiveDocument.Part.InWorkObject
' und das kopierte Objekt aus der Zwischenablage
' dort einfügen.
oUserSel.Clear
oUserSel.Add oNewBody
oUserSel.Selection.PasteSpecial "CATPrtResult"
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP