---

Hallo,

ich möchte in meinem Makro in einer Produkstruktur, Punkte von einem Part zum anderen (as Result) kopieren.

Das Makro läuft sauber durch. Aber es wird nichts kopiert. Am Ende erhalte ich immer die Meldung "Selected element(s) not allowed for this operation." 
Die Meldung kommt jeweils pro zu kopierenden Element.
Scheinbar habe ich grad ein zentimeterdickes Brett vorm Kopf

Den Code habe ich unten angehängt.

Sub Elemente_kopieren(mypart, name_zur_uebergabe, mypart_selected, mysel, myroot)

mysel.Add (mypart_selected.FindObjectByName(name_zur_uebergabe))
MsgBox mysel.Item2(1).value.Name & vbNewLine & "das wird kopiert"
mysel.Copy
mysel.Clear
mysel.Add (mypart)
MsgBox mysel.Item2(1).value.Name & vbNewLine & "dort solls rein"
mysel.PasteSpecial ("CATPrtResultWithOutLink")
mypart.Update
mysel.Clear

End Sub

Wäre super, wenn ihr mir hierzu Tipps geben könntet.

Gruss
Crio

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

---

Hallo,

ohne es auszuprobeiren tippe ich darauf das du versucht den Punkt in ein CATPart einzufügen. Das geht nicht, der Punkt muss im CATPart in ein geometrisches Set.

EDIT: Du musst zur Selektion nicht das Part sondern den "hybridboy" hinzufügen dann sollte es gehen.

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

[Diese Nachricht wurde von denyo_1 am 11. Nov. 2008 editiert.]

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

---

Hallo Schau mal aufmeinen Beitrag

"Erstellen eines CCP-Links"

darin findest du Quellcode, den du verwenden kannst. Ich habe nur noch die Selektion zwischen zwei CAD-Dokumenten dabei.

Sollte dann ungefähr so aussehen:

Dim part1 As Part
Set part1 = PotDokument.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.GetItem("Output")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim NoHybridShapes1 As Integer
NoHybridShapes1 = hybridShapes1.Count
Dim hybridShape1 As HybridShape
Dim selection1 As Selection
Set selection1 = PotDokument.Selection
selection1.Clear
For ii = 1 To NoHybridShapes1
  If hybridShapes1.Item(ii).Name = "Test_Plane" Then
  Set hybridShape1 = hybridShapes1.Item(ii)
  selection1.Add hybridShape1
  selection1.Copy    ' hier wird die Ebene kopiert.
  End If
Next

Set hybridBody1 = hybridBodies1.GetItem("Paste")

Dim Selection2 As Selection
Set Selection2 = PotDokument.Selection
Selection2.Clear
Selection2.Add hybridBody1 'Container in dem es sein soll
Selection2.PasteSpecial ("CATPrtResultWithOutLink")
Selection2.Clear
End Sub

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