Ich glaube, dass auf jeden Fall SolidWorks auf dem PC benötigt wird, um die Konvertierung durchzuführen.
1 „Gefällt mir“
a par ça zum Konvertieren ohne Basislizenz log SW
http://www.datakit.com/convertisseurs-cao/solidworks-3d-vers-pdf-3d/3-72-0.html
http://www.datakit.com/fr/cross_manager.php
Siehe auch
http://helpx.adobe.com/fr/acrobat/kb/supported-file-formats-acrobat-reader.html
@+ ;-)
Wie Lucas sagt, gibt es Codebeispiele dafür, in diesem Forum oder in anderen, die bei Google zu finden sind
Alle diese Beispiele erfordern SW,
Es ist möglich, die APIs von eDrawing zu verwenden, um eine PDF-Datei (über einen PDF-Druckertreiber) oder eine Bilddatei zu erstellen, aber mehr nicht.
7 „Gefällt mir“
Ich gebe an, dass die Konvertierungsqualität über eDrawing nicht garantiert wird
4 „Gefällt mir“
Nun, ich habe all diese Links durchsucht und für den Moment das Makro gefunden, das die Aufnahme in den 2 Formaten ermöglicht.
Jetzt muss ich einen Weg finden, sie in einem bestimmten Ordner zu speichern.
Überprüfen Sie schließlich, in welcher Version von AutoCAD sie gespeichert werden.
Dann
Die Aufzeichnungsversion hängt nicht vom Makro ab, sondern von den in AutoCAD vorgenommenen Einstellungen.
Damit ist dieser Punkt gelöst.
Beim Speichern der DWG- und PDF-Datei erstellt das Makro ein Sufix an den Plannamen. Das ist "Leerzeichen -", und ich werde es löschen.
Ich denke, es kommt von : FileName = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9)
Und bevor Sie die Website in unser Netzwerk aufnehmen.....
Wir ordnen unsere Dateien wie folgt an:
Datei der obersten Ebene: AUTO oder MOTORRAD oder TRAKTOR oder FAHRRAD
Datei der zweiten Ebene: Cabriolet oder Coupé oder MPV oder 4x4
Datei der dritten Ebene: 3D / DWG / PDF
In unseren ersten Levels haben wir also eine Kategorie
eine bestimmte Größe oder einen bestimmten Typ
Drittens, sortierte Ordner mit Dateien.
Und so findet sich diese dritte Ebene in allen Dateien. Aber wie teilen Sie dem Makro mit, dass Sie die Datei in einem ganz bestimmten DWG-Ordner speichern müssen (wenn Sie wissen, dass es Dutzende davon gibt)?
In der Tat ist es besser,
Dim fso As New Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject") ' add the reference "microsoft Scripting Runtime
Dateiname = fso. GetBaseName(swDraw.GetPathName)
Da swDraw.GetTitle den Namen der Ficheri + den Namen des Trauernden neu gefügt hat, haben wir 9 Zeichen gestickt, um den Namen des Blattes zu entfernen!
6 „Gefällt mir“
Ich habe gerade FileName = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9) ersetzt.
bis
Dateiname = fso. GetBaseName(swDraw.GetPathName)
Und zur Laufzeit Laufzeitfehler "424"
.. Wozu?
Ein Fehler meinerseits, denke ich.
da das Makro nun DWG- und PDF-Dateien als Ursprung benennt.
Aktualisieren Sie das Makro.
Sub main()
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
' Prüfen Sie, ob eine Zeichnung geladen ist.
if (swModel ist nichts) oder (swModel.GetType <> swDocDRAWING) dann
swApp.SendMsgToUser ("Nur für Zeichnungen zu verwenden, öffnen Sie zuerst eine Zeichnung und dann VERSUCHEN!")
' Wenn derzeit kein Modell geladen ist, beenden Sie
Sub beenden
Ende, wenn
Festlegen von swDraw = swModel
Dateipfad = Links(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
Set fso = CreateObject("Scripting.FileSystemObject") ' add the reference "microsoft Scripting Runtime
Dateiname = fso. GetBaseName(swDraw.GetPathName)
swDraw.SaveAs (Dateipfad + Dateiname + ".PDF")
swDraw.SaveAs (Dateipfad + Dateiname + ". DWG")
Ende Sub
Ein negativer Punkt,
Ich habe gerade die DWG-Sicherung geöffnet und erhalte die folgende Meldung:
Die DWG-Datei wurde in einer Anwendung gespeichert, die nicht von Autodesk entwickelt wurde oder nicht über eine Autodesk-Lizenz verfügt. Was möchten Sie tun?
Wenn ich mit der Eröffnung fortfahre, nichts Besonderes, aber wir können nicht zulassen, dass eine solche Nachricht erscheint, wenn sie geöffnet wird. (Qualitätsaudit verpflichtet)
Wie macht man das?
Es wird kompliziert sein, Dutzende von Fragen in dieser Diskussion zu beantworten!
Warum eröffnen Sie nicht für jedes Problem eine neue Frage?
Für das Makro, für den DWG-Fehler usw.?
2 „Gefällt mir“
Gibt es beim Speichern als DWG aus SolidWorks die gleiche Meldung?
Wenn ja (und das ist wahrscheinlich der Fall), müssen Sie die Exportoptionen in DWG ändern:
Datei> Speichern unter> Wählen Sie DWG, und dort erscheint die Schaltfläche Optionen
Mit welcher Software wird DWG geöffnet?
2 „Gefällt mir“
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!