PDF

Jak má fungovat- klasicky nastavení tisku přes Možnosti (tloušťky čar, atd) + uložení PDF do stejného adresáře jako je uložený zdrojový IDW soubor + za název souboru vložit "_revize" mezera Název souboru (z iVlastnosti "Part Title"). Dostal jsem se do fáze kdy mám vše, kromě "vytisknutí" Part Title. A potřeboval bych, aby v případě, že model nemá žádnou revizi, byl název pdf souboru pouze jako Název souboru mezera Part Title.

 

Format:HTML FormatVersion:1.0StartHTML: 165EndHTML: 24733StartFragment: 314EndFragment: 24701StartSelection: 314EndSelection: 314

'------Začátek iLogic-------oPath = ThisDoc.PathoFileName = ThisDoc.FileName(False) 'without extensionoRevNum = iProperties.Value("Project", "Revision Number")oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById _("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")oDocument = ThisApplication.ActiveDocumentoContext = ThisApplication.TransientObjects.CreateTranslationContextoContext.Type = IOMechanismEnum.kFileBrowseIOMechanismoOptions = ThisApplication.TransientObjects.CreateNameValueMapoDataMedium = ThisApplication.TransientObjects.CreateDataMediumIf oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) ThenoOptions.Value("All_Color_AS_Black") = 0oOptions.Value("Remove_Line_Weights") = 1oOptions.Value("Vector_Resolution") = 4800oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheetsEnd If'get PDF target folder pathoFolder = oPath '& "\PDF"'oFolder = "F:\Sales\Enquiries\2013\" & oPath & "\PDF"'Check for the PDF folder and create it if it does not existIf Not System.IO.Directory.Exists(oFolder) Then    System.IO.Directory.CreateDirectory(oFolder)End If'Set the PDF target file nameoDataMedium.FileName = oFolder & "\" & oFileName & _"_" & oRevNum & ".pdf"oMyFileName = oFolder & "\" & oFileName & " Rev" & oRevNum & ".pdf"'check to see that the xls file existsIf Dir(oMyFileName) <> "" ThenOverwrite = MessageBox.Show("PDF existuje, přepsat?", "iLogic",MessageBoxButtons.YesNo, _MessageBoxIcon.Question,MessageBoxDefaultButton.Button1)If Overwrite = vbNo Then    Return    End IfEnd IfTry'Publish documentoPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)CatchMessageBox.Show("PDF nebylo uloženo, právě se používá jiným uživatelem", "iLogic" & ThisApplication.GeneralOptions.UserName & "!")End Try'Show message boxMessageBox.Show("Výkres a PDF uloženo do: " & oFolder & vbLf & vbLf & _"Název souboru: " & oFilename & " [" & oRevNum & "].pdf", "iLogic",MessageBoxButtons.Ok,MessageBoxIcon.Information, _MessageBoxDefaultButton.Button1)'open the folder where the new ffiles are savedShell("explorer.exe " & oFolder,vbNormalFocus)'MessageBox.Show("New Files Created in: " & vbLf & oFolder, "iLogic")

DXF
Jak má fungovat- při uložení se tiskne DXF spolu s PDF, ukládá se do stejné složky jako zdrojový soubor IDW. Název DXF je "Název souboru_Revize". Verze DXF Autocad 2000.

Format:HTML Format Version:1.0 StartHTML:165 EndHTML:13633 StartFragment:314 EndFragment:13601 StartSelection:314 EndSelection:314
' Get the DXF translator Add-In.Dim DXFAddIn As TranslatorAddInDXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")'Set a reference to the active document (the document to be published).Dim oDocument As DocumentoDocument = ThisApplication.ActiveDocumentDim oContext As TranslationContextoContext = ThisApplication.TransientObjects.CreateTranslationContextoContext.Type = IOMechanismEnum.kFileBrowseIOMechanism' Create a NameValueMap objectDim oOptions As NameValueMapoOptions = ThisApplication.TransientObjects.CreateNameValueMap' Create a DataMedium objectDim oDataMedium As DataMediumoDataMedium = ThisApplication.TransientObjects.CreateDataMedium' Check whether the translator has 'SaveCopyAs' optionsIf DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) ThenDim strIniFile As StringstrIniFile = "C:\temp\dxfout.ini"' Create the name-value that specifies the ini file to use.oOptions.Value("Export_Acad_IniFile") = strIniFileEnd If'Set the destination file nameoDataMedium.FileName = ThisDoc.PathAndFileName(False) & "_" & oRevNum & ".dxf" 'same folder, or uncomment:'oDataMedium.FileName = "C:\myDXFfolder\" & ThisDoc.FileName(False) & ".dxf" 'fixed folder'Publish document.DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)'Launch the dxf file in whatever application Windows is set to open this document type withi = MessageBox.Show("Preview the DXF file?", "Title",MessageBoxButtons.YesNo,MessageBoxIcon.Question)If i = vbYes Then ThisDoc.Launch(oDataMedium.FileName)
 
Možná se dají obě makra zakomponovat do sebe, něco upravit, smazat, změnit..., proto uvítám jakoukoliv radu či pomoc.
Díky!