Vytisknout stránku | Zavřít okno

Uzivatelske prikazy na pasu karet

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, Inventor Professional a Inventor LT, Product Design Collection a Suite, Factory Design Suite; a digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=35239
Datum vytištění: 09.pro.2025 v 08:17


Téma: Uzivatelske prikazy na pasu karet
Odeslal: peterka256
Předmět: Uzivatelske prikazy na pasu karet
Datum odeslání: 26.čer.2024 v 17:38
Dal jsem si na pas karet prikaz "Ulozit kopii jako". Da se nejakym zpusobem nastavit typ souboru a zmenit vychozi cestu? Pouzivam to pro rychle ulozeni *.stl souboru pro 3D tisk do specificke slozky. Inventor ale nabidne ulozeni jako .ipt do slozky projektu.  Pro muj ucel to musim neustale menit, coz trochu prudi. 

Existuje nejaka moznozt jak to udelat tak, aby tam byl nastaven vychozi typ souboru a slozka kterou si sam zvolim?


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 27.čer.2024 v 00:06
Záleží jak příkaz přidáváte. Pokud jen jako zkratku pro Save Copy As, pak bude IPT předvolen, pokud používáte pro doplnění vlastních ikon např. aplikaci T4I, můžete vložit odpovídající iLogic kód, včetně volby formátu STL a složky.

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: peterka256
Datum odeslání: 27.čer.2024 v 21:43
Ja to tam jen naklikal z toho seznamu co je pri uprave pasu karet. Takze jestli tomu dobre rozumim, mam stahnout nejakou aplikaci T4I, naucit se v tom programovat a pak to pujde?

Odeslal: Vladimír Michl
Datum odeslání: 27.čer.2024 v 23:59
Aplikace T4I (viz Download) umožňuje mj. vkládat do ribbonu ikony iLogic maker. Jednoduché iLogic makro pak uloží 3D model do libovolného formátu, včetně možností nastavení voleb, cílové složky apod. Viz např.  https://www.cadforum.cz/cz/davkovy-prevod-z-inventoru-do-step-iges-dwg-3d-pdf-usd-tip14102 - CAD Fórum - Dávkový převod z Inventoru do STEP, IGES, DWG, 3D PDF, USD... (cadforum.cz)

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: peterka256
Datum odeslání: 30.čer.2024 v 01:29
Dik moc za nakopnuti spravnym smerem k tem makrum. Zkousel jsem stahnout ten BatchExport for Inventor cos doporucoval, ale download mne poslal na stranku jakesi firmy, kde to chtelo dalsi registraci ktera nefungovala, nebo to musi schvalovat zivy pikolik ktery maka jednou za tyden nebo nevim co. V kazdem pripade bylo rychlejsi to makro napsat. Slo to i bez stahovani toho T4I (nebo uz se to driv mimodek s necim nainstalilo - nevim), ale to rozhrani mi prislo jako normalni editor vba, takze co proc a jak je to T4I jsem dal nezkoumal.

Pokud by mel nekdo podobnou potrebu jako ja, davam sem zminene makro. Kod vypada tak jak vypada, no :-) ale funguje a to je hlavni. Ulozi aktivni soucast jako .stl na cestu co je v kodu (pripadne ji vytvori). Pokud uz soubor existuje neprepise ho, vytvori dalsi s jinym nazvem. Nastaveni parametru prevodu se da udelat v kodu, krome presnosti tam asi nic menit nebudete, ostatni jsem tam dal jen pro sichr, protoze se mi nechtelo zkoumat co inventor pouzije kdyz to tam nedam.
Kod makra je zde:

Sub UlozSTL()
Set kontext = ThisApplication.TransientObjects.CreateTranslationContext
Set moznosti = ThisApplication.TransientObjects.CreateNameValueMap
Set dm = ThisApplication.TransientObjects.CreateDataMedium
kontext.Type = IOMechanismEnum.kFileBrowseIOMechanism
With moznosti
.Value("OutputFileType") = 0
.Value("ExportFileStructure") = 0
.Value("ExportUnits") = 5
.Value("Resolution") = 1 'vysoke = 0, stredni = 1, nizke = 2, uziv. = 3, brep = 4
.Value("ExportColor") = False
.Value("AllowMoveMeshNode") = False
End With
nazev = "E:\tisk\" & ThisApplication.ActiveDocument.DisplayName & ".stl"
pripona = 1
Do While (Dir(nazev) <> "")
nazev = "E:\tisk\" & ThisApplication.ActiveDocument.DisplayName & "_" & pripona & ".stl"
pripona = pripona + 1
Loop
dm.fileName = nazev
ThisApplication.ApplicationAddIns.ItemById("{81CA7D27-2DBE-4058-8188-9136F85FC859}").SaveCopyAs ThisApplication.ActiveDocument, kontext, moznosti, dm
MsgBox vbCrLf & dm.fileName & " byl vytvořen.", vbInformation, ThisApplication.ActiveDocument.DisplayName
End Sub

Odeslal: peterka256
Datum odeslání: 30.čer.2024 v 01:45
Jeste bych se chtel zeptat, jake rozliseni je dostatecne pro 3D FDM tisk aby tam nebyly videt fragmenty, ale aby zas nebyly ty soubory zbytecne velke? Predpokladam ze to bude mit vliv predevsim na zakrivene plochy aspol. Jsou tam nejake slidery v mi celkem nic nerikajicich procentech a zdlouhave zkouset se mi to nechce. Co znamena volba brep a je vhodna pro 3D tisk?


Vytisknout stránku | Zavřít okno