---

Hi,

habe folgende Aufgabenstellung. ich muss für einen Kunden eine gesamte Planung von unserem nativen Autocad Mechanical 2018 nach Autocad 2013 (ohne Mechanical) runterspeichern.

wenn ich jetzt manuell "speichern unter" ausführe und dann "autocad 2013" dateiformat auswähle funktioniert das wunderbar. jedoch nicht wenn ich das ganze versuche mit VBA zu realisieren. sobald nämlich autocad speichern will erkennt er das verschiedene mechanical objekte auf der Zeichnung vorhanden sind (z.b. am_note) und bringt eine fehlermeldung.

mit dieser variante habe ich es schon versucht:

Code:

---

thisdrawing.savas "neuerdateiname" , ac2013_dwg

---

auch mit der variante das ich vorher das setting fürs speichern umstelle:

Code:

---

ThisDrawing.Application.Preferences.OpenSave.SaveAsType = ac2013_dwg

thisdrawing.save

---

funktioniert leider beides nicht. warum klappt das ganze manuell, aber nicht im code

Ps. bei Zeichnungen auf den kein mechanical objekt vorhanden ist klappt es auch wunderbar.

Gruß
Daniel

[Diese Nachricht wurde von IVDH808 am 21. Aug. 2018 editiert.]

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

---

Hi,

nur mal so eingeworfen:
Hast du es mal mit einem älteren Dateityp versucht? 2010, 2007, 2004 oder so?

Grüße
Silcono

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

---

ja, habe schon verschiedenste variationen ausprobiert. leider ohne Erfolg :/

habe auch probiert mit "FILEDIA 0" und saveas das format auszuwählen. da bringt er auch schon eine meldung das es nicht geht wenn man AutoCAD 2013 auswählt.

warum das dann mit dem normalen "speichern" Dialog funktioniert ist mir echt ein Rätzel

Gruß
Daniel

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

---

juhu!

hab eine Lösung gefunden. auch wenns eine art Workaround ist.

man braucht zum richtigen exportieren nach AutoCAD den befehl: -exporttoautocad

mein makro sieht also wie folgt aus:

Code:

---

ThisDrawing.SendCommand "-exporttoautocad" & vbCr & "f" & vbCr & "2013" & vbCr & "P" & vbCr & "." & vbCr & vbCr & "neuer pfad und dateiname" & vbCr

---

und es klappt!!!

das ganze habe ich dann noch in einer "For Each" schleife die es mir für alle geöffneten Zeichnung wiederholt.

mit einem Klick 20 Minuten Arbeit gespart!

Gruß
Daniel

(Falls interesse besteht könnte ich auch mal das ganze Makro posten)

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

---

Zitat:

---

...
habe folgende Aufgabenstellung. ich muss für einen Kunden eine gesamte Planung von unserem nativen Autocad Mechanical 2018 nach Autocad 2013 (ohne Mechanical) runterspeichern.
...

---

Hallo,
Das kannst du doch mit eTransmit oder mit DWGKonvert machen:

https://help.autodesk.com/view/ACD/2018/DEU/?guid=GUID-413A58AD-C86F-432F-A4AC-A2737237001A
https://help.autodesk.com/view/ACD/2018/DEU/?guid=GUID-1C2163A6-29CC-4EC2-974C-5B6017B948C4

Da kannst du auch Dateilisten und Konfig speichern (für ev. späteren Wiedergebrauch).

------------------
Gruss Marco

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

---

Danke für die Info,

dwg-konvert hat beim testen nicht funktioniert weil mechanical dann auch eine mechanical 2013 version gemacht hat irgendwie.

etransmit gibt mir irgendwie keine option für die version.

Danke trozdem 

konnte es ja schon mit dem vba makro lösen

Gruß
Daniel

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