MAKRA ....
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor Professional, Product Design & Manufacturing Collection, Factory Design; digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=14320
Datum vytištění: 25.čvc.2026 v 10:05
Téma: MAKRA ....
Odeslal: Lestr
Předmět: MAKRA ....
Datum odeslání: 17.led.2012 v 14:14
|
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ší ???....
-------------  Lestr Autodesk Inventor Professional 2022 Autodesk Vault Professional 2022 |
Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 17.led.2012 v 15:37
|
Určitě řada uživatelů VBA makra přivítá. Pár (celkem triviálních) je i v sekci http://www.cadforum.cz/cadforum/tema.asp - Programování . Stále více jsou také využívána makra modulu iLogic. ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz emea.support.arkance.world) |
Odeslal: hoboj
Datum odeslání: 17.led.2012 v 18:48
|
Automatické ukládání mě nejde, nějak to blbne a když ho spustím -> úplně se zasekne inventor... ------------- Vojtěch Visingr |
Odeslal: maiklss
Datum odeslání: 18.led.2012 v 11:28
| 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 |
Odeslal: hoboj
Datum odeslání: 18.led.2012 v 12:55
|
Stačí si ve VBA upravit rozměry papíru v příkazu pro formát papíru. ------------- Vojtěch Visingr |
Odeslal: maiklss
Datum odeslání: 18.led.2012 v 14:33
|
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.
|
Odeslal: Vladimír Michl
Datum odeslání: 18.led.2012 v 14:43
|
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ů. ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz emea.support.arkance.world) |
Odeslal: Lestr
Datum odeslání: 18.led.2012 v 14:45
|
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 = Nothing End 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
http://www.cadforum.cz/forum/uploads/20120118_144713_Makro_Tisk.zip - uploads/20120118_144713_Makro_Tisk.zip ------------- Lestr Autodesk Inventor Professional 2022 Autodesk Vault Professional 2022 |
Odeslal: hoboj
Datum odeslání: 18.led.2012 v 16:16
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 = True oPrintMgr.PrintRange= bych zvolil kPrintAllSheets oPrintMgr.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 ;) ------------- Vojtěch Visingr |
