<img src="/common/bigicon-diskuze.png" style="vertical-align:middle;height:80px" alt="Diskuze"/> Diskuzní fórum, poradna

Diskutér

Přihlášen: 14.čer.2015
Lokalita: Slovensko
Používám:
Inventor
Stav: Offline
Bodů: 26

Téma: Vykresova vlastnost do Uzivatelskej
Zasláno: 04.bře.2017 v 19:43

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.

maiklss

TOP uživatel

Přihlášen: 08.říj.2008
Lokalita: ČR (VY)
Používám:
Inventor
Stav: Offline
Bodů: 1627

Zasláno: 04.bře.2017 v 20:43

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

Když můžu pomůžu:)

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:46

V iLogic-u nie som zbehly len sa ucim, viete mi poradit, naviest ako by ta f-cia mala vyzerat?

Upravil DM1 - 04.bře.2017 v 22:39

maiklss

TOP uživatel

Přihlášen: 08.říj.2008
Lokalita: ČR (VY)
Používám:
Inventor
Stav: Offline
Bodů: 1627

Zasláno: 04.bře.2017 v 20:50

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

Když můžu pomůžu:)

DM1

Diskutér

Přihlášen: 14.čer.2015
Lokalita: Slovensko
Používám:
Inventor
Stav: Offline
Bodů: 26

Zasláno: 05.bře.2017 v 15:08

Takze vyriesil som to nakoniec takto :

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

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?

Upravil DM1 - 05.bře.2017 v 23:08

Navara

Navštívit stránky člena

ARKANCE support

Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637

Zasláno: 05.bře.2017 v 16:08

Počet listů se zjistí snadno takto:

ThisDrawing.Document.Sheets.Count

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.

DM1

Diskutér

Přihlášen: 14.čer.2015
Lokalita: Slovensko
Používám:
Inventor
Stav: Offline
Bodů: 26

Zasláno: 05.bře.2017 v 23:05

Dakujem pomohlo.

Vyriesil som to takto :


If ThisDrawing.Document.Sheets.Count Then
iProperties.Value("Custom", "Pocet listov") = ThisDrawing.Document.Sheets.Count
End If

Co sa tyka cisla listu, dalo by sa to definovat tak ze si vytvorim X Custom Properties napr Cislo listu 1 ... X

a v iLogicu definujem, ktory list cislo X sa ma prenasat do vybranej vlastnosti ?

Na definovanie poradoveho cisla sluzi tato f-cia?

ActiveSheet.Name

Navara

Navštívit stránky člena

ARKANCE support

Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637

Zasláno: 06.bře.2017 v 08:22

Tato kontrola je špatně, protože ověřujete hodnotu typu Integer jako Boolean. Navíc hodnota

ThisDrawing.Document.Sheets.Count

je vždy větší, nebo rovna 1.

Ukázka zjištění čísla listu podle jeho názvu

Sub Main 
 MsgBox(GetSheetIndex(ActiveSheet.Name))
End Sub
Function 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 0
End Function

DM1