SLDW-macro's gebruiken

Hallo

 

Ik ben op SLDW 2014 in 64bits.

 

Ik heb wat onderzoek gedaan om tijd te besparen bij het opslaan van onze bestanden.

Dus laat het me uitleggen.

 

Onze solidworks Europarlementariërs moeten telkens in 3 verschillende formaten worden opgeslagen. Een SLDDRW, een PDF en een DWG (in de versie van 2000 of 2002).

Deze bestanden zijn gecategoriseerd in respectievelijke bestanden.

Op dit moment openen we de solidworks MEP, slaan ons vervolgens op in PDF, vervolgens doen we hetzelfde in DWG, terwijl we een conversiebestand gebruiken.

Het kost dus nogal wat tijd.

 

En ik zag, tijdens mijn onderzoek, dat er een veelheid aan macro's voor zijn.

 

Maar wie kon me leiden om de manipulaties correct uit te voeren.

En waar worden PDF- en DWG-bestanden opgeslagen?

 

Bij voorbaat dank.

Terugkerend onderwerp over Lynkoa

http://www.lynkoa.com/search/enregistrer%20pdf%20dwg

Er zijn kant-en-klare tools

evenals macro

@+;-)

 

4 likes

Hallo

 

Zoals ik hier heb aangegeven:

http://www.lynkoa.com/forum/3d/comment-enregister-des-plusieurs-fichiers-slddrw-en-pdf-et-dxf

 

Als je de MyCAD-tools hebt, is er BatchConverter,

 

Anders is het mogelijk per macro:

 

http://www.lynkoa.com/forum/cao/macro-d-enregistrement-en-pdf-et-dxf-dan...

http://www.lynkoa.com/forum/3d/macro-d-enregistrement-en-pdf

http://www.lynkoa.com/forum/3d/convertion-pdf-en-2014

http://www.lynkoa.com/forum/3d/macro-enregistrement-en-pdf-dans-un-dossi...

http://www.lynkoa.com/forum/3d/plan-sldrw-en-pdf-dans-dossier-different

 

Met name de eerste link die een betere respons geeft, een functionele macro waar slechts kleine aanpassingen nodig zijn.

3 likes

Voor beginners in VBA zie ook mijn tutorial waar elke regel wordt becommentarieerd:

 

http://www.lynkoa.com/tutos/3d/macro-enregistrer-sous-avec-solidworks

 

BatchConverter is hier verkrijgbaar voor 70 € min een cent:

 

http://www.lynkoa.com/store/fr/tools-et-macros/utilitaires/utilitaire-batchconverter.html

 

En zoals @flegendre zegt in de 1e link:

 

"Als je de EPDM-add-on hebt, is het nog beter, je stelt een "conversietaak" in (pdf, dxf, iges,....) automatisch op uw workflow, wanneer de tekening is gevalideerd."

4 likes

Om de laatste vraag te beantwoorden:

 

Met een macro kunt u ervoor kiezen om een gemeenschappelijke map te definiëren, een map op bestandstype, een map op basis van een aangepaste eigenschap (klant, dealnummer) of een bestandsverkenner aan te bieden om telkens te kiezen waar u de verschillende bestanden wilt opslaan.

 

In BatchConverter moet u de manipulatie één keer opslaan om deze elke keer te herinneren: 

U kunt ook een map kiezen voor een bestandstype.

1 like

Dank u voor deze antwoorden,

Maar wanneer ik de tutorial (http://www.lynkoa.com/tutos/3d/macro-enregistrer-sous-avec-solidworks), word ik losgekoppeld van de site en heb ik er geen toegang meer toe.... Waarvoor?

Oh, en aanvullende vraag over dit onderwerp...

Zijn we verplicht om het planbestand met solidworks te openen om in de andere formaten op te slaan?

 

Ik neem het voorbeeld van een persoon die de taak zou hebben om deze manipulaties uit te voeren, maar die de versie van SLDW niet zal hebben zoals ik, of die er helemaal geen zal hebben.

Ik geloof dat in ieder geval SolidWorks nodig is op de pc om de conversie uit te voeren.

1 like

een par ça om te zetten zonder een basislicentie 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

Zie ook

http://helpx.adobe.com/fr/acrobat/kb/supported-file-formats-acrobat-reader.html

@+ ;-)

Zoals Lucas zegt, zijn er codevoorbeelden om dit te doen, op dit forum of andere die te vinden zijn via Google

Al deze voorbeelden vereisen SW, 

 

Het is mogelijk om de API's van eDrawing te gebruiken om een PDF (via een PDF-printerdriver) of een afbeeldingsbestand te maken, maar meer niet.

 

 

7 likes

Ik geef aan dat de conversiekwaliteit via eDrawing niet gegarandeerd is

4 likes

Welnu, ik heb al deze links doorzocht en ik heb voorlopig de macro gevonden waarmee ik in de 2 formaten kan opnemen.

 

Nu moet ik een manier vinden om ze in een specifieke map op te slaan.

 

En tot slot, controleer in welke versie van autocad het ze opslaat.

Dan

De opnameversie is niet afhankelijk van de macro, maar van de instellingen die in AutoCAD zijn ingesteld.

Dit punt is dus opgelost.

 

Bij het opslaan van de DWG en PDF maakt de macro een achtervoegsel voor de naam van het plan. Dat is "spatie -", en ik zal het verwijderen.

Ik denk dat het komt van : FileName = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9)

 

 

En voordat u de site op ons netwerk plaatst.....

 

Wij delen onze bestanden als volgt in:

 

bestand op het hoogste niveau: AUTO of  MOTORFIETS of TRACTOR of FIETS

bestand op het tweede niveau:  Cabriolet of Coupé of MPV of 4x4

Bestand op het derde niveau: 3D / DWG / PDF

 

 

Dus in onze eerste niveaus hebben we een categorie

een specifieke maat of type

Ten derde, gesorteerde mappen met bestanden.

 

En dus is dit derde niveau terug te vinden in alle bestanden. Maar hoe vertel je de macro dat je het bestand in een heel specifieke DWG-map moet opslaan (wetende dat het er tientallen zijn)

 

 

in feite is het beter om te gebruiken 

 

Dim fso als nieuwe Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject") ' voeg de referentie "Microsoft Scripting Runtime toe"

 

Bestandsnaam = fso. GetBaseName(swDraw.GetPathName)

 

Omdat swDraw.GetTitle de naam van de ficheri + de naam van de rouwenden retorune en we hebben 9 tekens genaaid om de naam van het blad te verwijderen!

 

6 likes

Ik heb zojuist FileName = Left (swDraw.GetTitle, Len(swDraw.GetTitle) - 9) vervangen

bij

Bestandsnaam = fso. GetBaseName(swDraw.GetPathName)

 

En tijdens runtime, runtime-fout "424"

 

.. Waarvoor?

Vergissing van mijn kant denk ik.

 

omdat de macro nu DWG- en PDF-bestanden als oorsprong noemt.

 

Update over de macro.

 

Sub hoofd()

Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in

' Controleer of er een tekening is geladen.

Als (swModel is niets) of (swModel.GetType <> swDocDRAWING) dan

swApp.SendMsgToUser ("Alleen te gebruiken voor tekeningen, eerst een tekening openen en dan PROBEREN!")

' Als er momenteel geen model is geladen, sluit dan af
Sub afsluiten

Einde als
 
Stel swDraw = swModel in

Filepath = Links(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
Set fso = CreateObject("Scripting.FileSystemObject") ' voeg de referentie "Microsoft Scripting Runtime toe"
Bestandsnaam = fso. GetBaseName(swDraw.GetPathName)

swDraw.SaveAs (Bestandspad + Bestandsnaam + ".PDF")
swDraw.SaveAs (Bestandspad + Bestandsnaam + ". DWG")

Einde Sub

 

 

Een negatief punt,

 

Ik heb zojuist de DWG-back-up geopend en ik krijg het volgende bericht:

 

Het DWG-bestand is opgeslagen in een applicatie die niet door Autodesk is ontwikkeld of geen Autodesk-licentie heeft. Wat wil je doen?

 

 

Als ik doorga met openen, niets bijzonders, maar we kunnen niet toestaan dat zo'n bericht verschijnt wanneer het wordt geopend. (Kwaliteitsaudit verplicht)

 

Hoe doe je dat?

Het wordt ingewikkeld om in deze discussie tientallen vragen te beantwoorden!

 

Waarom open je niet voor elk probleem een nieuwe vraag?

 

Voor de macro, voor de DWG-fout, enz.?

2 likes

Is er bij het opslaan als DWG van SolidWorks dezelfde boodschap?

Zo ja (en dat is waarschijnlijk het geval), dan moet u de exportopties wijzigen in DWG:

 

Bestand> Opslaan als> Kies DWG en daar verschijnt een knop Opties

 

Met welke software wordt DWG geopend?

2 likes