Zobrazit plnou verzi příspěvku: Automaticke genrování DXF a PDF
Dobrý den mam u DXF a PDF nastaveno automatické ukladní ale začalo se mi stavat že v PDf neni vykres co má byt ale jen fotka dílce. Nevíte kde je problém?
Je li to z iLogic, tak se dxf ale asi i pdf export pouští nad součástí. Je otázkou proč pdf export čte součást a ne výkres.
No právě to mi je taky zahadou:( ale podle mě to bude zahlcením procesoru:(
Jestě mne napadlo, uložte pár výkresů normálně z menu soubor export do pdf a pak teprve zkuste automat.Pokud by i ruční uložení výkresu do pdf četlo součást, což je dost nesmysl, tak pak už bych si dělal teprve starost a ptal se výš.
Ručně to jde správně pravé. Tohle se neděje pořad ale jen někdy
nemohlo dojít k nějakému náhodnému přepsání pravidla ilogic? Můžete to pravidlo sem vložit?
nn někdy ulozi dobrea nekdy takhle blbě
je to externí pravidlo spouštěno automaticky při pokusu uložit (před uložením)?
pravidlo je v souborech interní
Chápu to tak, že je součástí šablony výkresu.
Dělat diagnostiku takhle podle popisu je dost nejisté, ale zkusil bych si tipnout.Není náhodou v tom pravidle provedeno získání dokumentu, ze kterého se má provádět export nějak takhle?(Bylo by to někde na začátku)[code]Dim oDoc As Document = ThisApplication.ActiveDocument[/code]Zkuste to změnit na [code]Dim oDoc As Document = ThisDoc.Document[/code]Jestli máte to pravidlo rozkopírované ve všech výkresech, tak máte asi trochu problém.
MakrooFolder = ThisDoc.Path
oFileName = ThisDoc.FileName(False)
oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById ("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
If oPDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
oOptions.Value("All_Color_As_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
End If
oDataMedium.FileName = oFolder & "\" & oFileName & ".pdf" oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) Problém to není :)mám makro které mi podle kusovniku dokaze vyhledat vykresy a pak všechny aktualizovat tak to za chvili zkusim
Tak to je podle mě jasný. Čtvrtý řádek shora.Někdy se může stát, že to, co exportujete není nutně aktivní dokument. A pak se to může chovat přesně tak, jak popisujete.