---

Hallo Forumuser,

ich habe folgenden Code!!!

Code:

---

Public Sub Blechstile_kopieren()
    If ThisApplication.ActiveDocument Is Nothing Then
        MsgBox "No Document open", 16, "Error"
        Exit Sub
    End If
   
    If Not ThisApplication.ActiveDocument.DocumentType = kPartDocumentObject Then
        MsgBox "No Part", 16, "Error"
        Exit Sub
    End If

    Dim oApp As Application
    Set oApp = ThisApplication
 
    Dim oNewDocument As PartDocument
    Set oNewDocument = ThisApplication.ActiveDocument
   
    Dim oSourceDocument As PartDocument
    Set oSourceDocument = ThisApplication.Documents.Open(Environ$("Inventor") & "\blech.ipt", False)
   
    Dim oItems As Variant
    Set oItems = oSourceDocument.ComponentDefinition.SheetMetalStyles.Item(6)

---

Nun will ich das Item(6) in das aktive Teil kopieren funktioniert das???

CopyTo gibts hier nicht so viel ich gesehen habe

MfG
Thomas

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

---

Hallo,

also du willst quasi: oItems.CopyTo machen? Und oItems ist ein Variant? Ohne jetzt gestet zu haben, glaube ich nicht, dass es funktionieren kann.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,

genau das will ich machen allerdings nicht nur Item 6 sondern alle!

Also ich will die Blechstile, aus einer Quelldatei in eine Zieldatei kopieren!!!

MfG
Thomas

[Diese Nachricht wurde von freak-tom am 17. Feb. 2009 editiert.]

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