---

Hallo! 
Ja, bin neu hier - und gleich ein kleines Problemchen:
Ich bin auf der Suche nach einem ganz einfachen Beispiel für Copy and Paste.

Ich möchte einen Kurvenverlauf aus einem Part in ein anderes kopieren.
Die Ausgangskurve wird vom Benutzer selektiert und vermerkt.
Aber wie füge ich die Kurve in das andere Part ein?

Gefunden habe hier schon; http://ww3.cad.de/foren/ubb/Forum137/HTML/003253.shtml#000015 und http://ww3.cad.de/foren/ubb/Forum137/HTML/003253.shtml#000009 aber irgendetwas funktioniert bei mir halt nicht.

Soweit bin ich halt schon:

Code:

---

Public CurveFProfil As HybridShapeCurveExplicit
Public initfile As Document
Public initpart As Part
Public initfilename, macro, version, newfilename, newpath, qpfad, qdatei(10) As String
Public datum
Public UselLine, UselSurface As Object

Sub m1()
Set initfile = CATIA.ActiveDocument
    Set initpart = initfile.Part
    initfilename = initpart.name
    qpfad = "C:\profil_template\"
    qdatei(0) = ""
    qdatei(1) = "PROFIL_WORK.CATProduct"
    qdatei(2) = "PROFIL.CATPart"
Profil_Start_Form.Show
end sub

Private Sub linie_Click()
    Profil_Start_Form.Hide
    Dim Auswahl
    Dim CurveSel
    Set UselLine = initfile.Selection
    UselLine.Clear
    Dim Was(0)
    Was(0) = "HybridShapeCurveExplicit"
    Auswahl = UselLine.SelectElement2(Was, "Bitte den Kurvenverlauf wählen.", False)
' User wählt Kurve aus
Set CurveSel = UselLine.Item(1).Value
    Set CurveProfil = CurveSel  'Zuweisung auf globale Variable
    Profil_Start_Form.Show      'Auswahlfenster anzeigen
End Sub

Private Sub START_Click()

    UselLine.Copy

    Dim par1 As PartDocument
    Set par1 = d1.Open(qpfad & qdatei(2)) 
    Set par1 = CATIA.ActiveDocument
    Dim pd As Part
    Set pd = par1.Part
'######### PASTE???? ####################
    UselLine.Clear  '## selektion erneut löschen
    'UselLine.Add (pd) '## zielpart der selektion hinzufügen
    UselLine.PasteSpecial "CATIA_RESULT" 
    '## oder einfügen mit "CATPrtResultWithOutLink"       

    '### CATIA.ActiveDocument.Selection.Paste() ###
   
    'pd.UpdateObject hybridShapeCurveExplicit1
   
    '#### ENDE ENDE ENDE ????  #########################################
    'Save Product & Parts ?
   
    MsgBox "Achtung Ende!"
    ' CreateSendTo( )
    Unload Profil_Start_Form   
End Sub

---

mfG joneta

------------------
Mit freundlichen Grüßen

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

---

Servus
Ich vermute dass du im Zielpart zuerst die Selection (in jedem Dokument gibt es eine) dimensionieren muss, dann das Part selektieren und dann einfügen. zB (ungetestet):

Code:

---

    Dim pd As Part
    Set pd = par1.Part
    Set UselLine = par1.Selection

    UselLine.Clear 
    UselLine.Add p
    UselLine.PasteSpecial "CATIA_RESULT"

---

Gruß
Bernd

PS: Oder willst du im Baugruppenkontext kopieren und einfügen?

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

[Diese Nachricht wurde von bgrittmann am 12. Okt. 2011 editiert.]

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

---

Ja! Danke!

Das wars! auch wenn ich noch nicht verstanden habe was ich da gemacht habe...

Jetzt werde ich mal versuchen eine Linie und eine Fläche zu kopieren...

Im Baugruppenkontext muß ich nicht kopieren und einfügen. Hätte das Vorteile? (Die Parts sollen nicht über die BG verlinkt sein)

joneta

------------------
Mit freundlichen Grüßen

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