---

Hallo,
ich versuche gerade eine kleine VB6 Anwendung zu schreiben, die mir Pläne automatisch archiviert. Dazu solle aus em VB6 Programm ein eTransmit einer bestimmten dwg erstellt werden werden.

Ist es möglich AutoCAD so anzusprechen, dass dies gelingt?
Kann ich dann auch den Speicherort der erstellten ZIP bestimmen (=Speicherort wie dwg)?

MfG

Christian

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

---

Zwar kein VBA aber auch eine VBA-Lösung.

filedia und sonstige Störfaktoren ausschalten und
mit thisdrawing.sendcommand "._-etransmit" "zip" ...
die datei(n) erstellen.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Falls es jemanden interessiert. Hier der VB(A) Code zum erstellen eines ETransmit

Code:

---

Public Sub ConnectToAcad()

'vorher noch Abfrage, ob das Dokument bereits erstellt wurde
Dim fso As FileSystemObject

Dim acadApp As Object

Set fso = New FileSystemObject
Set acadApp = Nothing

If fso.FileExists("C:\tmp\test\1-250.zip") Then    'Den Pfad anpassen
    MsgBox "ZIP vorhanden"
    GoTo ende:
End If

On Error GoTo error
Set acadApp = GetObject(, "AutoCad.Application")
MsgBox "Bitte beenden Sie AutoCAD und probieren es erneut !"
GoTo ende:

error:
If Err.Number = 429 Then
        Set acadApp = CreateObject("AutoCAD.Application")
        acadApp.Application.WindowState = acMin
        'acadApp.Application.Visible = False
       
   
End If

acadApp.Documents.Open ("C:\tmp\test\1-250.dwg") 'Den Pfad anpassen

Call acadApp.ActiveDocument.SetVariable("Filedia", 0)

acadApp.ActiveDocument.SendCommand ("-etransmit" & vbCr & "zip" & vbCr & "C:\tmp\test\1-250" & vbCr _
    & vbCr & "j" & vbCr & "n" & vbCr & "n" & vbCr & "j" & vbCr & "n" & vbCr & vbCr)

Call acadApp.ActiveDocument.SetVariable("Filedia", 1)
acadApp.ActiveDocument.Close
acadApp.Quit

ende:
Set fso = Nothing
Set acadApp = Nothing

End Sub

---

Viel Spaß damit

Christian

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