Zobrazit plnou verzi příspěvku: Automaticke genrování DXF a PDF

maiklss
11.11.2020, 13:44
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?

rys-kt4
11.11.2020, 17:48
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. 

maiklss
11.11.2020, 18:26
No právě to mi je taky zahadou:(  ale podle mě to bude zahlcením  procesoru:(

rys-kt4
11.11.2020, 21:17
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ýš.  

maiklss
11.11.2020, 22:27
Ručně to jde správně pravé. Tohle se neděje pořad ale jen někdy

issin
12.11.2020, 17:39
nemohlo dojít k nějakému náhodnému přepsání pravidla ilogic? Můžete to pravidlo sem vložit?

maiklss
12.11.2020, 19:18
nn někdy ulozi dobrea nekdy takhle blbě

issin
12.11.2020, 19:21
je to externí pravidlo spouštěno automaticky při pokusu uložit (před uložením)?

maiklss
12.11.2020, 20:01
pravidlo je v souborech interní

issin
12.11.2020, 20:07
Chápu to tak, že je součástí šablony výkresu.

maiklss
12.11.2020, 21:28
Přesně tak

Navara
12.11.2020, 22:27
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.

maiklss
12.11.2020, 22:32
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

Navara
12.11.2020, 22:42
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.