---

Moin Moin!

Ich versuche gerade ein Makro zu schreiben bei dem der Benutzer ein V4 Model auswählt und dieses dann mit "Einfügen Special" in ein Part eingefügt wird. Ich bekomme jedoch diese Fehlermeldung: " Die ausgewählten Elemente sind für diese Operation nicht zulässig"

mein Code:
----------------------------------------------------------------------
Language="VBSCRIPT"
Sub CATMain()
Dim document1 As Document
Set document1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = document1.Selection
selection1.Clear

'auswählen des V4 Models
    Dim InputObjectType(0)
    selection1.Clear
    InputObjectType(0) = "V4MasterModel"
    status = selection1.SelectElement3(InputObjectType, "Körper auswählen (für Abbruch: Esc drücken)", True, CATMultiSelTriggWhenSelPerf, False)
selection1.Copy

'öffnen eines neuen Part-Documentes
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As Document
Set partDocument1 = documents1.Add("Part")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies

'auswählendes Parts
selection1.clear
InputObjectType(0) = "Part"
    status = selection1.SelectElement3(InputObjectType, "Körper auswählen", True, CATMultiSelTriggWhenSelPerf, False)

'einfügen des V4 Models mit "EinfügenSpecial"
'ab hier funktioniert es nicht mehr
selection1.PasteSpecial ("CATIA_SPEC")
End Sub
----------------------------------------------------------------------
Wenn ich die Zeile " Selection1.PastSpecial..." weg lasse und den Befehl per Hand ausführe funktioniert es.

Gruß
Watje

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

---

Moin!
Habe endlich selber eine Lösung gefunden. Es lag wohl an der Selection des Parts durch den Benutzer
mein neuer Code:
----------------------------------------------------------------------
Language="VBSCRIPT"
Sub CATMain()
Dim document1 As Document
Set document1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = document1.Selection
selection1.Clear
'auswählen des V4 Models
    Dim InputObjectType(0)
    selection1.Clear
    InputObjectType(0) = "V4MasterModel"
    status = selection1.SelectElement3(InputObjectType, "Körper auswählen (für Abbruch: Esc drücken)", True, CATMultiSelTriggWhenSelPerf, False)
selection1.Copy

'öffnen eines neuen Part-Documentes
Set document2 = CATIA.Documents.Add("Part")
document2.Activate
Dim part2 As Part
Set part2 = document2.Part
Set selection2 = document2.selection             
selection2.Add part2
selection2.PasteSpecial ("CATIA_SPEC")

End Sub
_____________________________________________________________________

Gruß
Watje

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

---

um etwas mit pastespecial einzufügen, muss man vorher ein objekt in die selection einfügen (add). damit wird sozusagen der zielort angegeben, an dem das einfügen ausgeführt wird.

beispiel:

Set part1 = CATIA.Documents.Item("Part1.CATPart").Part
sel1.Add part1
sel1.PasteSpecial ("CATPrtResult")

mfg

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

---

ich war 4 minuten zu spät 

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

---

Hallo 3.1415926535,

als Trost bekommst Du aber trotzdem 8 Unities für die Erklärung!!!

mfg,
Lusilnie

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

---

Hallo zusammen,

ich möchte das Thema kurz neu anstoßen. Ich versuche eine Linie von einem Set in ein anderes tot zu kopieren.
Der macrorekorder zeichnet mir auch etwas auf, alelrdings passiert nichts beim erneuten ausführen.

ich weiß jetzt leider nicht genau wie ich denn das zweite Set definieren kann, dass dort reinkopiert werden soll?

Außerdem sollen auf der toten Linie Punkte liegen, die vorher schon im Baum existieren. Wie kann man das am besten definieren?

Ich bin für jede Hilfe dankbar.
Grüße

Hier der Code aus der Aufzeichnung:
Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set selection1 = partDocument1.Selection
selection1.Clear
Set part1 = partDocument1.Part
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapeLinePtPt1 = hybridShapes1.Item("Line.1")
selection1.Add hybridShapeLinePtPt1
selection1.Copy
Set parameters1 = part1.Parameters
Set hybridShapeLineExplicit1 = parameters1.Item("Line.2")
part1.UpdateObject hybridShapeLineExplicit1

End Sub

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