Spuštěn nový vzhled portálu CADfórum.
Již 10.000+ CAD tipů. Přes 117.000 registrovaných u nás, celkem 1.085.000 registrovaných (CZ+EN), přes 52.000 CAD/BIM bloků. Vyzkoušejte nový Inženýrský kalkulátor, Průvodce CAD převody, Konvertor barev, Prohlížeč USD souborů.
Již 10.000+ CAD tipů. Přes 117.000 registrovaných u nás, celkem 1.085.000 registrovaných (CZ+EN), přes 52.000 CAD/BIM bloků. Vyzkoušejte nový Inženýrský kalkulátor, Průvodce CAD převody, Konvertor barev, Prohlížeč USD souborů.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
madep ![]() Zasloužilý člen ![]() Přihlášen: 01.pro.2006 Lokalita: ČR (Pha) Používám: Inventor 2022 Stav: Offline Bodů: 196 |
![]() Zasláno: 26.lis.2023 v 12:05 |
Dobrý den,
mám pravidlo na export z výkresu do PDF po jednom listu. Soubor se vždy uloží s názvem souboru IDW. Potřebuji aby se uložil s názvem listu. Děkuji za pomoc. Sub Main PublishPDF() ' Get the PDF translator Add-In. Dim PDFAddIn As TranslatorAddIn PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}") ' a reference to the active document (the document to be published). Dim oDocument As Document oDocument = ThisApplication.ActiveDocument Dim oContext As TranslationContext oContext = ThisApplication.TransientObjects.CreateTranslationContext oContext.Type = kFileBrowseIOMechanism ' Create a NameValueMap object Dim oOptions As NameValueMap oOptions = ThisApplication.TransientObjects.CreateNameValueMap ' Create a DataMedium object Dim oDataMedium As DataMedium oDataMedium = ThisApplication.TransientObjects.CreateDataMedium oOptions.Value("Sheet_Range") = kPrintCurrentSheet ' Check whether the translator has 'SaveCopyAs' options If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then ' Options for drawings... oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintCurrentSheet oOptions.Value("All_Color_AS_Black") = 0 ' oOptions.Value("Sheet_Range") = kPrintAllSheet 'oOptions.Value("Remove_Line_Weights") = 0 'oOptions.Value("Vector_Resolution") = 400 'oOptions.Value("Custom_Begin_Sheet") = 2 'oOptions.Value("Custom_End_Sheet") = 4 End If ' the destination file name 'oDataMedium.FileName = ThisDoc.PathAndFileName(False)&".pdf" Dim sPath = ThisDoc.Path Dim sFolder = "Výkresy PDF" Dim sFile = ThisDoc.FileName(False) Dim oPDFFolder = System.IO.Path.Combine(sPath, sFolder) 'Check for the PDF folder and create it if it does not exist If Not System.IO.Directory.Exists(oPDFFolder) Then System.IO.Directory.CreateDirectory(oPDFFolder) End If oDataMedium.FileName = System.IO.Path.Combine(sPath, sFolder, sFile & ".pdf") ' Dim outputFile As String ' outputFile = ThisDoc.PathAndFileName(False)&"_"&iProperties.Value("Project", "Revision Number")&".pdf" 'Publish document. Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) End Sub |
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21844 |
![]() |
Jméno listu je je ActiveSheet.Name, tedy spíše:
Replace(ActiveSheet.Name,":","_") |
|
![]() |
|
madep ![]() Zasloužilý člen ![]() Přihlášen: 01.pro.2006 Lokalita: ČR (Pha) Používám: Inventor 2022 Stav: Offline Bodů: 196 |
![]() |
Děkuji, funguje to.
|
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,977 sekund.