---

Kann mir jemand sagen wie man mit VBA ein Dia einer Zeichnung (machdia) erstellt?

------------------
Marco

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

---

...sendcommand mslide ?

------------------
"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

---

Klar kann mann es so aufrufen, geht auch mit sendcommand "machdia ", aber wie bekomme ich es dann unter dem gewünschten Dateinamen gespeichert. Auf sendkeys reagiert er nämlich nicht richtig. Er zeigt zwar im Dateinamensfeld das richtige an, speichern will er es aber im Originalnamen.

------------------
Marco

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

---

habmal das teile in ein unterprogramm gepackt !

Sub MakeSlide(SlideName)
    Dim tmpFileDia
    ; filedia auf null, da sonst der dialog zur dateiauswahl kommt
    tmpFileDia = ThisDrawing.GetVariable("FILEDIA")
    Call ThisDrawing.SetVariable("FILEDIA", 0)
    ; falls diadatei exiastiert gehört ein _yes zum überschreiben adzu
    If Dir(SlideName) <> "" Then
        Call ThisDrawing.SendCommand("_MSLIDE " & SlideName & vbCr & "_Yes" & vbCr)
    Else
        Call ThisDrawing.SendCommand("_MSLIDE " & SlideName & vbCr)
    End If
    Call ThisDrawing.SetVariable("FILEDIA", tmpFileDia)
End Sub

Sub test()
    Call MakeSlide("d:\test1.sld")
End Sub

------------------

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