CAD Fórum : iLogic formaty listov https://www.cadforum.cz/forum/ Mon, 08 Jun 2026 06:17:20 +0000 Sat, 04 Mar 2017 20:59:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=23961 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[iLogic formaty listov : Takze som sa pokusil to nejak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104941&title=ilogic-formaty-listov#104941 Autor: DM1
Předmět: 23961
Zasláno: 04.bře.2017 v 20:59

Takze som sa pokusil to nejak kombinovat a vysledok je takyto : 

trigger = iTrigger0Vyber_formatu = InputListBox("Formaty", MultiValue.List("Vyber_formatu"), Vyber_formatu, Title := "Formaty", ListName := "Vyber")If Parameter("Vyber_formatu") = "A4" ThenThisApplication.ActiveDocument.ActiveSheet.Orientation = 10243 ElseThisApplication.ActiveDocument.ActiveSheet.Orientation = 10242 End IfThisApplication.ActiveView.Fit   If Vyber_formatu = "Oram A0" ThenActiveSheet.ChangeSize("A0", MoveBorderItems := True)ActiveSheet.Border = "Oram A0"
ElseIf Vyber_formatu = "Oram A1" Then
ActiveSheet.ChangeSize("A1", MoveBorderItems := True)ActiveSheet.Border = "Oram A1"
ElseIf Vyber_formatu = "Oram A2" Then
ActiveSheet.ChangeSize("A2", MoveBorderItems := True)ActiveSheet.Border = "Oram A2"
ElseIf Vyber_formatu = "Oram A3" Then
ActiveSheet.ChangeSize("A3", MoveBorderItems := True)ActiveSheet.Border = "Oram A3"
ElseIf Vyber_formatu = "Oram A4" Then
ActiveSheet.ChangeSize("A4", MoveBorderItems := True)ActiveSheet.Border = "Oram A4"
End If
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]]>
   
   Sat, 04 Mar 2017 20:59:47 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104941&title=ilogic-formaty-listov#104941
   
  
   <![CDATA[iLogic formaty listov : Dakujem, vyskusam. VIP niesom....]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104936&title=ilogic-formaty-listov#104936
   
    Autor: DM1
Předmět: 23961
Zasláno: 04.bře.2017 v 19:33

Dakujem, vyskusam. VIP niesom.]]>
   
   Sat, 04 Mar 2017 19:33:17 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104936&title=ilogic-formaty-listov#104936
   
  
   <![CDATA[iLogic formaty listov : Takto to mám já. oMyParameter=...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104845&title=ilogic-formaty-listov#104845
   
    Autor: raspi
Předmět: 23961
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

]]>
   
   Mon, 27 Feb 2017 07:04:36 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104845&title=ilogic-formaty-listov#104845
   
  
   <![CDATA[iLogic formaty listov :  Viz vlastnost Orientation a...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104843&title=ilogic-formaty-listov#104843
   
    Autor: Vladimír Michl
Předmět: 23961
Zasláno: 26.úno.2017 v 18:13

Viz vlastnost Orientation a kompletní iLogic kód v příbuzném tipu 9798.]]>
   
   Sun, 26 Feb 2017 18:13:43 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104843&title=ilogic-formaty-listov#104843
   
  
   <![CDATA[iLogic formaty listov : Dobry den, potreboval by som poradit...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104842&title=ilogic-formaty-listov#104842
   
    Autor: DM1
Předmět: 23961
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 = iTrigger0Vyber_formatu = InputListBox("Formaty", MultiValue.List("Vyber_formatu"), Vyber_formatu, Title := "Formaty", ListName := "Vyber")If Vyber_formatu = "OramA0" ThenActiveSheet.ChangeSize("A0", MoveBorderItems := True)ActiveSheet.Border = "OramA0"
ElseIf Vyber_formatu = "OramA1" ThenActiveSheet.ChangeSize("A1", MoveBorderItems := True)ActiveSheet.Border = "OramA1"
ElseIf Vyber_formatu = "OramA2" Then
ActiveSheet.ChangeSize("A2", MoveBorderItems := True)ActiveSheet.Border = "OramA2"


ElseIf Vyber_formatu = "OramA3" Then
ActiveSheet.ChangeSize("A3", MoveBorderItems := True)ActiveSheet.Border = "OramA3"
ElseIf Vyber_formatu = "OramA4" Then
ActiveSheet.ChangeSize("A4", MoveBorderItems := True)ActiveSheet.Border = "OramA4"
End If




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.



]]>
   
   Sun, 26 Feb 2017 16:56:18 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23961&PID=104842&title=ilogic-formaty-listov#104842