Zdravím .......
Poslední dobou slyším ohledně nastavení a ulehčení práce v Inventoru možnost použití maker. Jaká , pro zjednodušení práce v Inventoru, používáte a je možnost je poskytnout i dalším ????
 
Já osobně dle doporučení využívám Makra na tisk formátu A3 A4 a v případě zájmu ho sem dám .
Přidal by se někdo další  ???....
 

Určitě řada uživatelů VBA makra přivítá. Pár (celkem triviálních) je i v sekci Programování. Stále více jsou také využívána makra modulu iLogic.

Automatické ukládání mě nejde, nějak to blbne a když ho spustím -> úplně se zasekne inventor...

Dobrý den, prosím o  makro na hromadný  tisk  A4,A3  a kdyby se našel někde i návod na tvorbu i formátu A2 až A0 tak  by to  bylo ještě lepší. Děkuji 

Stačí si ve VBA upravit rozměry papíru v příkazu pro formát papíru.

Já  s makry teprv teď začínám. Je někde nějaký návod na makra??V Inventoru  dělám  přes 6let, ale makra jsem do teď nepotřeboval.

Potřeboval, jen jste o tom ještě nevěděl :-)
 
Pomineme-li vyšší programování (.Net, C++), pak v Inventoru může každý pokročilejší uživatel využít dva druhy maker - VBA makra a makra iLogic. Nějaký konkrétní návod (zejména u VBA) ale nehledejte, jsou to nástroje pro programování, takže je k dispozici popis API a řada ukázek/příkladů.

Já používal makro pro vytvoření rozměru plechu. Nyní používám jen makro na tisk. Parádní že nemusím nastavovat formát v tisku a pouze pustím makro a to mi pošle výkres na tiskárnu dle formátu výkresu ....
 
 
makro je :
 
Public Sub TiskA3A4()
    Dim oDoc As Document    Set oDoc = ThisApplication.ActiveDocument        If oDoc.DocumentType <> kDrawingDocumentObject Then        Set oDoc = Nothing        Exit Sub    End If        Dim oDrawDoc As DrawingDocument    Set oDrawDoc = ThisApplication.ActiveDocument        Dim oPrintMgr As DrawingPrintManager    Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager    Dim oControlDef As ControlDefinition
    Select Case oDrawDoc.ActiveSheet.Size
    Case kA4DrawingSheetSize        oPrintMgr.Printer = "NÁZEV VAŠÍ TISKÁRNY"        oPrintMgr.ColorMode = kPrintGrayScale        oPrintMgr.NumberOfCopies = 1        oPrintMgr.Orientation = kPortraitOrientation        oPrintMgr.PaperSize = kPaperSizeA4        oPrintMgr.PrintRange = kPrintCurrentSheet        oPrintMgr.ScaleMode = kPrintFullScale        Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFilePrintPreviewCmd")        oControlDef.Execute
    Case kA3DrawingSheetSize        oPrintMgr.Printer = "NÁZEV VAŠÍ TISKÁRNY"        oPrintMgr.ColorMode = kPrintGrayScale        oPrintMgr.NumberOfCopies = 1        oPrintMgr.Orientation = kLandscapeOrientation        oPrintMgr.PaperSize = kPaperSizeA3        oPrintMgr.PrintRange = kPrintCurrentSheet        oPrintMgr.ScaleMode = kPrintFullScale        Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFilePrintPreviewCmd")        oControlDef.Execute
    End Select        Set oDoc = Nothing    Set oDrawDoc = Nothing    Set oPrintMgr = NothingEnd Sub
 
 
Kód vložte do editoru VBA pod ikonkou Makra v možnostech Inventoru.
Makra jsou pak uložená v souboru Bin s koncovkou .bas
 
uploads/20120118_144713_Makro_Tisk.zipLestr2012-01-18 14:50:14

[QUOTE]
    Case kA3DrawingSheetSize        oPrintMgr.Printer = "NÁZEV VAŠÍ TISKÁRNY"        oPrintMgr.ColorMode = kPrintGrayScale        oPrintMgr.NumberOfCopies = 1        oPrintMgr.Orientation = kLandscapeOrientation        oPrintMgr.PaperSize = kPaperSizeA3        oPrintMgr.PrintRange = kPrintCurrentSheet        oPrintMgr.ScaleMode = kPrintFullScale [/QUOTE]Jen bych trošku poopravil, jestli můžu. Mohlo by se Vám stát, že to tiskne špatně, záleží také hodně na tiskárně a vyzkoušet to, jak se to chová. viz. oPrintMgr.ColorMode bych změnil na oPrintMgr.AllColorsAsBlack = TrueoPrintMgr.PrintRange= bych zvolil kPrintAllSheetsoPrintMgr.ScaleMode= kPrintBestFitScale by bylo možná příhodnější, ale záleží opravdu, jak se to chová. Jinak makra se nikde nenaučíte, pouze se dá naučit jazyk VBA, který je dost těžký pro amatéry, kteří neví o čem je řeč. Je to programování. Sám mám pár maker, které sem po úpravě přidám ;)