Diskuzní fórum, poradna
CAD diskuze, rady, výměna zkušeností |
Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi.
Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
iLogic formaty listov |
Odpovědět | archiv |
Autor | |
DM1
Diskutér Přihlášen: 14.čer.2015 Lokalita: Slovensko Používám: Inventor Stav: Offline Bodů: 26 |
Téma: iLogic formaty listov Zasláno: 26.úno.2017 v 16:56 |
Dobry den, potreboval by som poradit s vytvorenim pravidla pre zmenu formatu vykresoveho listu ( na odporucanie zo starej temy som to riesil cez iLogic) a vyzera to asi takto :
trigger = iTrigger0 Vyber_formatu = InputListBox("Formaty", MultiValue.List("Vyber_formatu"), Vyber_formatu, Title := "Formaty", ListName := "Vyber") If Vyber_formatu = "OramA0" Then ActiveSheet.ChangeSize("A0", MoveBorderItems := True) ActiveSheet.Border = "OramA0" ElseIf Vyber_formatu = "OramA3" Then Je to aj funkcne no potrebujem tam pridat aj podmienku pre zmenu orientacie listu kedze mi ho stale zobrazuje na vysku, a tuto funkciu neviem najst. Vopred dakujem.
|
|
Vladimír Michl
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 26.úno.2017 v 18:13 |
Viz vlastnost Orientation a kompletní iLogic kód v příbuzném tipu 9798.
|
|
raspi
Zasloužilý člen Přihlášen: 20.úno.2009 Lokalita: ČR (HK) Používám: AutoCAD Mechanical, VariCAD, Inventor, Solidworks Stav: Offline Bodů: 189 |
Zasláno: 27.úno.2017 v 07:04 |
Takto to mám já.
oMyParameter=ThisApplication.ActiveDocument.Parameters.UserParameters Try Parameter("FORMAT") = Parameter("FORMAT") Catch oParameter = oMyParameter.AddByValue("FORMAT", "A3", UnitsTypeEnum.kTextUnits) MultiValue.SetList("FORMAT", "A0", "A1", "A2", "A3", "A4") End Try Parameter("FORMAT") = InputListBox("Zvolte formát výkresu.", MultiValue.List("FORMAT"), Parameter("FORMAT"), Title := "Formát výkresu", ListName := "Vyberte formát:") ActiveSheet.ChangeSize(Parameter("FORMAT"),MoveBorderItems := True) RuleParametersOutput() InventorVb.DocumentUpdate() If Parameter("FORMAT") = "A4" Then ThisApplication.ActiveDocument.ActiveSheet.Orientation = 10243 'Portrait Else ThisApplication.ActiveDocument.ActiveSheet.Orientation = 10242 'Landscape End If ThisApplication.ActiveView.Fit 'tento poslední řádek udělá na zoom vše If Parameter("FORMAT") = "A4" Then ActiveSheet.Border = "A4" End If If Parameter("FORMAT") = "A3" Then ActiveSheet.Border = "A3" End If If Parameter("FORMAT") = "A2" Then ActiveSheet.Border = "A2" End If If Parameter("FORMAT") = "A1" Then ActiveSheet.Border = "A1" End If If Parameter("FORMAT") = "A0" Then ActiveSheet.Border = "A0" End If |
|
DM1
Diskutér Přihlášen: 14.čer.2015 Lokalita: Slovensko Používám: Inventor Stav: Offline Bodů: 26 |
Zasláno: 04.bře.2017 v 19:33 |
Dakujem, vyskusam. VIP niesom.
|
|
DM1
Diskutér Přihlášen: 14.čer.2015 Lokalita: Slovensko Používám: Inventor Stav: Offline Bodů: 26 |
Zasláno: 04.bře.2017 v 20:59 |
Takze som sa pokusil to nejak kombinovat a vysledok je takyto :
Problem nastava teraz pri formate A4 pri ktorom mi to vyhodi chybu: Nesprávny parameter. (Exception from HRESULT: 0x80070057 (E_INVALIDARG)) Edit: Pouzil som cely Vas kod a funguje to lepsie takze dakujem! Upravil DM1 - 05.bře.2017 v 23:11 |
|
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět | |
Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,648 sekund.