Hoi allemaal
Ik maak een macro waarmee ik een tekening als PDF in een specifieke map kan opslaan. Tot nu toe werkt alles naar behoren (wat een tijdsbesparing).
Maar ik wil er graag een verandering aan toevoegen :
Ik wil graag dat de naam van het PDF-bestand overeenkomt met de eigenschap "verwijzing", ik heb verschillende oplossingen geprobeerd, maar ik kan het niet.
Heeft iemand een oplossing???
Bijgevoegd is mijn macro.
Bij voorbaat dank.
Hallo
Kunt u de code van uw macro in een TXT-bestand plaatsen?
Zoals vermeld in de vraag:
http://www.lynkoa.com/forum/3d/macro-d-enregistrement-en-pdf
Je moet naar 3D gaan om de woning terug te krijgen.
Test de macro in PJ.
Ik had deze vraag al gezien en verschillende keren geprobeerd, maar het werkte niet.
Toen ik de macro die je me gaf zijn geblokkeerd op dit niveau:
Stel swView = swDraw.GetFirstView in
Bedankt
Is het een plan dat open staat in SolidWorks? Wat is de foutmelding?
Ja, het is een plan dat open staat.
Runtime-fout 91
Objectvariabele of blokvariabele Niet ingesteld
Goedenavond
Het probleem zit op de regel Set swDraw = swModel.
Aangezien swModel niet bestaat, is het Set swDraw = Part
Aan de andere kant, als de code compleet is, zou het leuk zijn om de variabele declaraties die niet worden gebruikt te verwijderen en de declaraties die dat niet zijn te declareren (bijv. Dim swDraw As SldWorks.DrawingDoc)
Probeer het met het bijgevoegde bestand.
Inderdaad, zoals @liryc aanbeveelt als je code beperkt is tot deze macro, heb ik ook de variabelen opgeschoond.
Hallo
Na de test met de .PL macro zijn er geen uitvoeringsfouten meer, maar gebeurt er niets.
We kunnen zien dat zijn werk, maar er is geen PDF-document gemaakt.
Deze simpele macro geeft me veel problemen.
Bedankt.
Bij nader inzien vind ik deze regels raar:
swPath = Links(swPathName, InStrRev(swPathName, "PLANS_PDF_SYLOB", , 1)) swPath = swPath & "T:\PLANS_PDF_SYLOB\"
Ook voor jou?
Hallo
Ik bevestig de opmerking van .PL.
Gezien de manier waarop het is gecodeerd, is het een pad zoals xxxT:\PLANS_PDF_SYLOB\ dus er gebeurt duidelijk niet veel.
Zet een debug.print swPath en kijk hoe het is geformatteerd.
Ook als ik beter kijk, heb ik de indruk dat de code erg ingewikkeld is voor iets heel eenvoudigs.
Hallo
Na vele pogingen zonder resultaat, verlaat ik mijn macro, wat vrij eenvoudig is.
Macro ==> Opslaan als PDF in een vast specifiek bestand met bestandsnaam = de eigenschap Part Reference.
Bedankt aan iedereen die me probeerde te helpen.
Het is zonde om op een mislukking te blijven staan, je was heel dicht bij het doel.
Je keek naar de aanwijzing die ik je gaf in mijn laatste bericht en die liryc bevestigde dat ook.
Wil je de laatste code die je hebt posten en ik zal kijken wanneer ik tijd heb?
Het is zonde om op een mislukking te blijven staan, je was heel dicht bij het doel.
Je keek naar de aanwijzing die ik je gaf in mijn laatste bericht en die liryc bevestigde dat ook.
Wil je de laatste code die je hebt posten en ik zal kijken wanneer ik tijd heb?
Hallo
Op zoek naar een macro van dit type geef ik toe dat ik teleurgesteld ben om te zien dat deze niet af is.
Maar dankzij jou ben ik erin geslaagd om het af te ronden.
De fout die ik vond, is dat de naam van de jam die moest worden ondervraagd "" was !!
referenc = swRefDoc.GetCustomInfoValue("", "referenc")
Na wijziging:
cfgName = swRefDoc.GetActiveConfiguration.Name
referenc = swRefDoc.GetCustomInfoValue(cfgName, "referenc")
Ik heb ook een controlefunctie toegevoegd als het bestand al open is om er zeker van te zijn dat ik iets opslaat.
Ik hoop dat ik anderen van dienst kan zijn.