Lucas
Ik heb de gebruikelijke manipulaties gedaan (zonder door de macro te gaan)
Bestand/Opslaan als/DWG-formaat.
als ik de DWG "met AUTOCAD2013 open, verschijnt eigenlijk dezelfde melding.
Zoals ik in een eerdere post over de zaak al zei:
"Met een macro kun je ervoor kiezen om een gemeenschappelijke map te definiëren, een map op bestandstype, een map (op basis van een aangepaste klanteigenschap, dealnummer) of een bestandsverkenner aan te bieden om elke keer te kiezen waar je de verschillende bestanden wilt opslaan."
Heeft u een persoonlijk eigendom of iets in de codificatie dat u dit vertelt:
bestand op het hoogste niveau: AUTO of MOTORFIETS of TRACTOR of FIETS
bestand op het tweede niveau: Cabriolet of Coupé of MPV of 4x4
Het onderdeel:
swDraw.SaveAs (Bestandspad + Bestandsnaam + ".PDF")
swDraw.SaveAs (Bestandspad + Bestandsnaam + ". DWG")
Zou er als volgt uit moeten zien:
Selecteer hoofdlettertype 'selecteer geval vermijdt veel geneste FI's
box = "AUTO" 'if type = auto
Map = "C:\CAR" 'we slaan op in de automap
case = "MOTO" 'idem...
Map = "C:\MOTO"
box = "TRACTOR"
Map = "C:\TRACTOR"
case = "FIETS"
Map = "C:\VELO"
else' geval 'indien een ander type of geen type, fout
msgbox "Type Fout1"
uitgang
Einde selecteren
Selecteer casetype2
case = "CUT" 'if type1 = cut
Map = Map & "\CUT" 'we voegen cut toe aan de map
case = "CAB"
Map = Map & "\CAB"
Behuizing = "4x4"
Map = Map & "\4x4"
case = "MONOSPACE"
Map = Map & "\MONOSPACE"
Ander geval
msgbox "Type2-fout"
uitgang
Einde selecteren
Ter informatie:
Type1 en type2 moeten variabelen zijn die al in uw bestanden voorkomen of die aan de gebruiker moeten worden gevraagd bij het starten van de macro.
swDraw.SaveAs(Map & "\PDF\" & Bestandsnaam & ".PDF")
swDraw.SaveAs(Map & "\DWG\" & Bestandsnaam & ". DWG")
1 like
Als u de FSO wilt gebruiken, moet u de Microsoft Scripting Runtime-referentie toevoegen aan uw macro
Zie screenshot
capture.jpg
4 likes
Voor het berichtprobleem bij het openen met AutoCAD is er geen vakje om uit te vinken zodat het bericht niet meer verschijnt?
Anders zie deze link /
http://autodesk.blogs.com/between_the_lines/2005/06/how_to_tell_if_.html
Ben je eruit gekomen?
1 like
Hallo, ik wil je bedanken voor je hulp.
Op dit moment past de macro bij onze BE. We doen alleen de DWG- en PDF-bestanden met de hand.
We besparen al veel tijd.
Het bedrijf kan investeren in EPDM...
Op dat moment gaan we aan de slag met de opslag van de bestanden.
Vriendelijke groeten.
2 likes
Geef in dit geval het beste antwoord aan!