Lucas
Ich habe die üblichen Manipulationen vorgenommen (ohne das Makro zu durchlaufen)
Datei/Speichern unter/DWG-Format.
Wenn ich die DWG "mit AUTOCAD2013" öffne, erscheint tatsächlich die gleiche Meldung.
Wie ich in einem früheren Beitrag über den Fall sagte:
"Mit einem Makro können Sie wählen, ob Sie einen gemeinsamen Ordner, einen Ordner nach Dateityp, einen Ordner (basierend auf einer benutzerdefinierten Kundeneigenschaft, einer Deal-Nummer) definieren oder einen Datei-Explorer anbieten möchten, um jedes Mal auszuwählen, wo die verschiedenen Dateien gespeichert werden sollen."
Haben Sie ein persönliches Eigentum oder etwas in der Kodifikation, das Ihnen Folgendes sagt:
Datei der obersten Ebene: AUTO oder MOTORRAD oder TRAKTOR oder FAHRRAD
Datei der zweiten Ebene: Cabriolet oder Coupé oder MPV oder 4x4
Der Teil:
swDraw.SaveAs (Dateipfad + Dateiname + ".PDF")
swDraw.SaveAs (Dateipfad + Dateiname + ". DWG")
Sollte so aussehen:
Select Case Type 'Select Case vermeidet viele verschachtelte FIs
box = "CAR" 'if type = car
Folder = "C:\CAR" 'wir speichern im Autoordner
case = "MOTO" 'dito...
Ordner = "C:\MOTO"
box = "TRAKTOR"
Ordner = "C:\TRAKTOR"
case = "FAHRRAD"
Ordner = "C:\VELO"
else' case 'wenn anderer Typ oder kein Typ, Fehler
msgbox "Geben Sie Fehler1 ein"
Ausgang
Ende Auswahl
Gehäusetyp auswählen2
case = "CUT" 'wenn type1 = cut
Folder = Folder & "\CUT" 'wir fügen dem Ordner cut hinzu
case = "CAB"
Ordner = Ordner & "\CAB"
Gehäuse = "4x4"
Ordner = Ordner & "\4x4"
case = "MONOSPACE"
Ordner = Ordner & "\MONOSPACE"
Fall sonst
msgbox "Typ2 Fehler"
Ausgang
Ende Auswahl
Zur Information:
Typ1 und Typ2 müssen Variablen sein, die bereits in Ihren Dateien vorhanden sind oder vom Benutzer beim Starten des Makros abgefragt werden sollen.
swDraw.SaveAs(Ordner & "\PDF\" & Dateiname & ".PDF")
swDraw.SaveAs(Ordner & "\DWG\" & Dateiname & ". DWG")
1 „Gefällt mir“
Um das FSO zu verwenden, müssen Sie dem Makro die Microsoft Scripting Runtime-Referenz hinzufügen
Siehe Screenshot
capture.jpg
4 „Gefällt mir“
Für das Meldungsproblem beim Öffnen mit AutoCAD gibt es kein Häkchen, das deaktiviert werden muss, sodass die Meldung nicht mehr angezeigt wird.
Andernfalls siehe diesen Link /
http://autodesk.blogs.com/between_the_lines/2005/06/how_to_tell_if_.html
Bist du da rausgekommen?
1 „Gefällt mir“
Hallo, ich möchte Ihnen für Ihre Hilfe danken.
Im Moment passt das Makro zu unserem BE. Wir machen einfach die DWG- und PDF-Dateien von Hand.
Wir sparen bereits viel Zeit.
Das Unternehmen kann in EPDM investieren...
Wir werden zu diesem Zeitpunkt an der Dateiablage arbeiten.
Herzliche Grüße.
2 „Gefällt mir“
Bitte geben Sie in diesem Fall die beste Antwort an!