Zdravim,je mozne preniest vykresovu vlastnost napr. format, ktoru mam definovanu v razitku vykresu do uzivatelskej vlastnosti modelu resp. zostavy ktoru vlozim do vykresu?Dakujem.

Asi by to šlo nastavit aby se kopirovala vlastnost třeba při uložení dokumentupomoci i-logic.

V iLogic-u nie som zbehly len sa ucim, viete mi poradit, naviest ako by ta f-cia mala vyzerat? 
DM12017-03-04 22:39:59

Mě vše programuje kolega. Zeptam se ho v pondělí pokud vám neporadi někdo zde.

Takze vyriesil som to nakoniec takto :[code]If ActiveSheet.Size = "A0" Then
iProperties.Value("Custom", "Format")="A0"
End If

If ActiveSheet.Size = "A1" Then
iProperties.Value("Custom", "Format")="A1"
End If

If ActiveSheet.Size = "A2" Then
iProperties.Value("Custom", "Format")="A2"
End If

If ActiveSheet.Size = "A3" Then
iProperties.Value("Custom", "Format")="A3"
End If

If ActiveSheet.Size = "A4" Then
iProperties.Value("Custom", "Format")="A4"
End If[/code]Je potrebne ale definovat Custom properties napr. Format vo vykrese. Do modelu resp. zostavy to preniest zatial neviem.Neviete aka f-cia v iLogicu je pre pocet listov a poradove cislo listu?
DM12017-03-05 23:08:50

Počet listů se zjistí snadno takto: [code]ThisDrawing.Document.Sheets.Count[/code]ale číslo aktuálního listu nedává smysl, protože těžko určíte, který list má brát v jako aktuální. Pokud to dokážete specifikovat, pak se dá najít i pořadové číslo.

Dakujem pomohlo.Vyriesil som to takto : [code]If ThisDrawing.Document.Sheets.Count TheniProperties.Value("Custom", "Pocet listov") = ThisDrawing.Document.Sheets.CountEnd If[/code]Co sa tyka cisla listu, dalo by sa to definovat tak ze si vytvorim X Custom Properties napr Cislo listu 1 ... Xa v iLogicu definujem, ktory list cislo X sa ma prenasat do vybranej vlastnosti ? Na definovanie poradoveho cisla sluzi tato f-cia? [code]ActiveSheet.Name[/code]

Tato kontrola je špatně, protože ověřujete hodnotu typu Integer jako Boolean. Navíc hodnota  [code]ThisDrawing.Document.Sheets.Count[/code] je vždy větší, nebo rovna 1. Ukázka zjištění čísla listu podle jeho názvu[code]Sub Main  MsgBox(GetSheetIndex(ActiveSheet.Name))End SubFunction GetSheetIndex(activeSheetName As String) As Integer    Dim drawing As DrawingDocument = ThisDrawing.Document    Dim sheetIndex As Integer = 1    For Each sheet As Sheet In drawing.Sheets        If sheet.Name = activeSheetName Then            Return sheetIndex        Else            sheetIndex += 1        End If    Next    Return 0End Function[/code]  

Dakujem, vyskusam. Este sa chcem spytat akym sposobom preniest cez iLogic napr. fyz. vlastnost Hmotnost do CustomProp vo vykrese. V peciatke ju mam zadefinovanu ako MASS no neviem ako to v Ilogicu sformulovat aby sa MASS ( po vlozeni nejakeho modelu) ked sa aktualizuje hodnota preniesla do danej CustomProp. Mam to takto ale v CustomProp sa to stale len prepise na Hodnotu Yes/No. Kde robim chybu? Dakujem.If mass = iProperties.Mass Then
iProperties.Value("Custom", "Hmotnost") = mass = iProperties.Mass
End If