---

Hallo Zusammen  

versuche seit Tagen das Problem hinzubekommen. Klappt leider nicht.

In CV5 VBA habe eine Userform, dort gebe ich an, welche Dwg Datei er mir öffnen soll.
Aber es klappt einfach nicht. Eine CATDrawing geht ohne Probleme:

        Dim document1 As Document
       
        Set document1 = documents1.Open("V:\Zeichnungsnormalien\Ident\Vor1.CATDrawing")

Die geöffnete DWg möchte ich später kopieren und in eine Skizze in CATPart einfügen.

Wäre super, wenn ihr mir hier weiterhelfen könnt.

Mit freundlichen Grüßen
Feyza  

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 12. Nov. 2014 editiert.]

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

---

Servus
Bei mir klappte der Code auch  bei einem dwg-File.
Kannst du die Datei manuell öffnen? Stimmt der Pfad?

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen dank für Deine Hilfe.

der Pfad stimmt. Die Datei kann ich auch manuell öffnen.

Aber in VBA bekomme ich folgende Meldung:

"Document cannot be read"

------------------
Schöne Grüße
Feyza : )

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

---

Hallo Bernd,

jetzt geht es auch. habe mir den pfad nochmal nach und einander neu erstellt.

Im Userform ist ein textfeld. hier war ein Leerzeichen drinnen :|

Danke nochmals 

------------------
Schöne Grüße
Feyza : )

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

---

Hallo Bernd,

kannst Du mir hier bitte noch weiterhelfen?

Ich gehe wieder auf den CATPart zurück und möchte den kopierten Inhalt in eine neue Skizze einfügen.

        '-------------------------------------------------------------------------------
        'CATPart öffnen
        '-------------------------------------------------------------------------------
       
        oDoc.Activate

        '-------------------------------------------------------------------------------
        'In Skizze wechseln
        '-------------------------------------------------------------------------------

        Dim partDocument1 As PartDocument
        Set partDocument1 = CATIA.ActiveDocument

        Dim part1 As Part
        Set part1 = partDocument1.Part

        Dim bodies1 As Bodies
        Set bodies1 = part1.Bodies

        Dim body1 As Body
        Set body1 = bodies1.Item("PartBody")

        Dim sketches1 As Sketches
        Set sketches1 = body1.Sketches

        Dim sketch1 As Sketch
-->      Set sketch1 = sketches1.Item("Sketch.1")

        part1.InWorkObject = sketch1

        Dim factory2D1 As Factory2D
        Set factory2D1 = sketch1.OpenEdition()

Das VBA programm bricht an der markierten Stelle ab.
Habe gemerkt, wenn die Sketch.1 vorhanden ist, läuft das Programm durch.
Möchte ich aber die kopierten Elemente in eine neue Skizze einfügen, also muss ich eine neue Skizze erzeugen.
Wie würde das funktionieren? 

Vielen Dank im Voraus.

------------------
Schöne Grüße
Feyza : )

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

---

Hallo Feyza,

was sagt der Makro-Editor?

Just a thought,
Joe

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

---

Hallo Joe,

habe das von der Aufzeichnung.
Hier erzeugt er die Skizze.1 und findet diese nicht in einer neuen Part.

Wurde aber geklärt:
http://forum.cad.de/foren/ubb/Forum137/HTML/005739.shtml

Vielen Dank.

jetzt gibt es ein weiteres problem.

Wenn Du Lust hast, könntest du dort menie frage vielleicht auch beantworten :|

Schönen gruß

------------------
Schöne Grüße
Feyza : )

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