| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: [VBA] Acad Mechanical 2018 nach Autocad 2013 speichern nicht möglich? (753 mal gelesen)
|
IVDH808 Mitglied
Beiträge: 48 Registriert: 07.04.2014 Autocad Mechanical 2018
|
erstellt am: 21. Aug. 2018 12:37 <-- editieren / zitieren --> Unities abgeben:
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 |
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 21. Aug. 2018 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für IVDH808
|
IVDH808 Mitglied
Beiträge: 48 Registriert: 07.04.2014 Autocad Mechanical 2018
|
erstellt am: 21. Aug. 2018 14:30 <-- editieren / zitieren --> Unities abgeben:
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 |
IVDH808 Mitglied
Beiträge: 48 Registriert: 07.04.2014 Autocad Mechanical 2018
|
erstellt am: 21. Aug. 2018 15:10 <-- editieren / zitieren --> Unities abgeben:
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 |
mcap Mitglied CAD-Supporter
Beiträge: 124 Registriert: 13.11.2014
|
erstellt am: 07. Sep. 2018 12:45 <-- editieren / zitieren --> Unities abgeben: Nur für IVDH808
|
| Konstruktionstechniker (m/w/d) | Alle reden über nachhaltige Energie - wir bringen sie auf den Weg. Mit den vereinten Kräften der Daimler Truck AG und der Volvo Group AB bündeln wir 30 Jahre an Erfahrung in der Entwicklung, Produktion und Vermarktung sicherer und effizienter Brennstoffzellensysteme von höchster Qualität. Unser Ziel ist es, cellcentric zu einem weltweit führenden Hersteller von Brennstoffzellen zu etablieren und damit zu einem klimaneutralen und nachhaltigen Transport bis zum Jahr 2050 beizutragen.... | Anzeige ansehen | Konstruktion, Visualisierung |
|
IVDH808 Mitglied
Beiträge: 48 Registriert: 07.04.2014 Autocad Mechanical 2018
|
erstellt am: 07. Sep. 2018 13:11 <-- editieren / zitieren --> Unities abgeben:
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 |