---

Hallo,

ich habe über VBA versucht mit dem Befehl new eine Zeichung zu öffnen auf Basis einer Vorlage, der Code lautet:

Private Sub btn_Open_A1_Click()
    Me.Hide
    Dim vorlage As String
    vorlage = "f:\A1.dwt"
    code = ThisDrawing.Open(vorlage)
End Sub

Leider bekomme ich immer eine Fehlermeldung, die lautet:

Laufzeitfehler '-2145320848 (80210070)':

Was kann das sein?

Danke!

Dirk Thiesen

------------------
------
Dirk Thiesen
Thiesen Treppen Haan
www.thiesen.de

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

---

Hallo Dirk,

zuerst mal ne Frage:
Mit welchem CAD System arbeitest du denn?
Falls es SolidWorks sein sollte ...
ein Tipp!

Zeiche doch einfach ein Macro auf...

1) Menue - Extras/Macro/Aufzeichen
2) Öffne dann eine Vorlage im SW
3) ... Macro stoppen und speichern.
4) ... Macro bearbeiten, gespeichertes Macro öffnen.

    hier kannst du die aufgezeichneten Befehle anschauen/ abschauen.

Gruß
Josef

------------------
josef.opitz@buerkert.com

[Diese Nachricht wurde von JosefOpitz am 21. September 2002 editiert.]

[Diese Nachricht wurde von JosefOpitz am 21. September 2002 editiert.]

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

---

Hy Josef

'vorlage = "f:\A1.dwt"'

sieht ganz nach Mechanical (Desktop) aus (*.dwt). Oder gibt es andere CAD-Programme mit der gleichen Dateiendung?

------------------
mechanical

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

---

Hallo,

leider ist es AutoCAD 2000 und daher kann ich da keine Makros aufnehmen. Damit kann ich leider auch nicht das Problem lösen. Vielleicht noch einen anderen Vorschlag??

LG DIrk Thiesen

------------------
------
Dirk Thiesen
Thiesen Treppen Haan
www.thiesen.de

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

---

Hallo Dirk,

stell doch deine Frage nochmal ins AutoDesk - Forum

Gruß
Josef

------------------
josef.opitz@buerkert.com

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

---

Hallo Dirk;

probieren Sie es doch mal hiermit !

Sub Example_Open()
    ' The following example opens "C:\AutoCAD\Sample\downtown.dwg" file.
    ' This drawing may not exist on your system. Change the drawing
    ' path and name to reflect a valid AutoCAD drawing on your system.
   
    ThisDrawing.Application.Documents.Open ("C:\AutoCAD\Sample\downtown.dwg")
   
End Sub
"Autocad Projekt *.dvb"

Grüße

Guido E

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

---

Hey, DAS FUNKTIONIERT! Warum hat es den mit meiner Art und Weise nicht funktioniert???

Verstehe ich nicht! Vielen vielen Dank aber noch einmal!

Was aber nun nicht funktioniert ist folgender String!

    wert = ThisDrawing.Application.ActiveDocument.New("f:\a1.dwt")

Ich kann also keine neue Datei öffnen auf Basis eines Templates!
Trickse die ganze Zeit schon, aber da bekomme ich irgendwie keinen Ansatz.

MfG

Dirk Thiesen

------------------
------
Dirk Thiesen
Thiesen Treppen Haan www.thiesen.de

[Diese Nachricht wurde von Dirk Thiesen am 28. September 2002 editiert.]

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

---

Hallo Dirk;

wie lautet Ihre E-Mail-Adresse?
Das "Wert= XXXX" ist nicht richtig (sollte so funktionieren
wie im Beispiel).

Grüße Guido E.

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

---

Hallo Dirk

nimm einfach folgendes Beispiel aus der Online-Hilfe:

Sub Example_New()
    ' This example creates a new drawing based on the template ansi-a.dwt.
    ' Note: The path to the template file is included with its name. Adjust
    ' this path for your installation location before running this example.
   
    Dim templateFileName As String
    templateFileName = "c:\AutoCAD\template\ansi-a.dwt"
   
    ThisDrawing.New templateFileName
   
End Sub

Gruß
Harry

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

---

Guten Morgen Dirk

Meine VB-Kenntnisse halten sich in Grenzen, aber soweit ich weiß muss bei "ThisDrawing.Application.ActiveDocument.New("f:\a1.dwt")" eine Zeichnung offen sein (ActiveDocument). Ist dies nicht der Fall so ergibt sich vermutlich ein ungültiger Wert für 'ActiveDocument'.

------------------
mechanical   

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