Vytisknout stránku | Zavřít okno

Vypnutí a zapnutí pole komponent v sestavě iLogic

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=25347
Datum vytištění: 07.kvě.2026 v 17:30


Téma: Vypnutí a zapnutí pole komponent v sestavě iLogic
Odeslal: rizekB
Předmět: Vypnutí a zapnutí pole komponent v sestavě iLogic
Datum odeslání: 04.pro.2017 v 10:14
Zdravím, mám jeden problém.
Mám vytvořené tři(3) pole komponent v sestavě a pomocí podmínky chci tyto pole zapínat a vypínat. Zkoušel jsem to přes True a False ale pokud je pole False, tak už se nechce zpátky přepnout do True.

Děkuji za rady


Odpovědi:
Odeslal: Navara
Datum odeslání: 05.pro.2017 v 08:52
No podle mě je nejjednodušší použít metodu IsActive
 

Dim activePattern As Integer = 1 ' 2 3
Component.IsActive("Pole komponent 1:1") = (activePattern = 1)
Component.IsActive("Pole komponent 2:1") = (activePattern = 2)
Component.IsActive("Pole komponent 3:1") = (activePattern = 3)

Odeslal: rizekB
Datum odeslání: 05.pro.2017 v 09:39
Jak to zkombinuji s podmínkou If?

If delka<8500 then
...
...
...
else
...
...
End If

Odeslal: Navara
Datum odeslání: 05.pro.2017 v 11:28
třeba takhle
 

Dim activePattern As Integer
If delka < 1000 Then
 activePattern = 1
ElseIf 1000 <= delka AndAlso delka < 2000 Then
 activePattern = 2
Else
 activePattern = 3
End If
Component.IsActive("Pole komponent 1:1") = (activePattern = 1)
Component.IsActive("Pole komponent 2:1") = (activePattern = 2)
Component.IsActive("Pole komponent 3:1") = (activePattern = 3)

Odeslal: rizekB
Datum odeslání: 05.pro.2017 v 12:10
To ale jenom ty pole zapíná že? Potřeboval bych i vypínání polí na základě podmínky.

Odeslal: Navara
Datum odeslání: 05.pro.2017 v 12:42
No tak si to zkuste. Podle mě je to to, co potřebujete.

Odeslal: rizekB
Datum odeslání: 06.pro.2017 v 12:06
můžete mi prosím vysvětlit, na jakém principu to funguje? chtěl bych to pochopit :) děkuji

Odeslal: Navara
Datum odeslání: 06.pro.2017 v 14:02
První část definuje a nastaví proměnnou activePattern na hodnotu, která odpovídá poli, které chcete zapnout na základě hodnoty parametru delka.
Dim activePattern As Integer
If delka < 1000 Then
 activePattern = 1
ElseIf 1000 <= delka AndAlso delka < 2000 Then
 activePattern = 2
Else
 activePattern = 3
End If
 
 
Druhá část použije metodu Component.IsActive pro zapnutí/vypnutí pole.
'Zapne pole komponent
Component.IsActive("Pole komponent 1:1") = True
'Vypne pole komponent
Component.IsActive("Pole komponent 1:1") = False
 
no a výraz v závorce (activePattern = 1) lze vyhodnotit jako logickou hodnotu True/False.
 
To je celé.

Odeslal: rizekB
Datum odeslání: 06.pro.2017 v 15:08
Teď to mám takhle

Dim activePattern As Integer
If delka < 8500 Then
activePattern = 1
Else
activePattern = 2
End If

Component.IsActive("SP 10") = (activePattern = 2)
Component.IsActive("SP 5 L") = (activePattern = 1)
Component.IsActive("SP 5 P") = (activePattern = 1)
Component.IsActive("SP 0 P") = (activePattern = 1)
Component.IsActive("SP 0 L") = (activePattern = 1)

Potřeboval bych to tak, aby se mi při nedodržení podmínky zapnuly všechny pole a ne jenom pole SP 10.

Odeslal: Navara
Datum odeslání: 06.pro.2017 v 15:31
No dá se to napsat i tak, že pro různé podmínky explicitně zapnete/vypnete pole
 
'Zapinani pole podle podminky'
If delka < 8500 Then
  Component.IsActive("SP 10") = False
Else
  Component.IsActive("SP 10") = True
End If
'Tato pole jsou zapnuta vzdy'
Component.IsActive("SP 5 L") = True
Component.IsActive("SP 5 P") = True
Component.IsActive("SP 0 P") = True
Component.IsActive("SP 0 L") = True
 
Nebo zkráceně
 

'Zapinani pole podle podminky'
Component.IsActive("SP 10") = Not (delka < 8500)
 
'Tato pole jsou zapnuta vzdy'
Component.IsActive("SP 5 L") = True
Component.IsActive("SP 5 P") = True
Component.IsActive("SP 0 P") = True
Component.IsActive("SP 0 L") = True
 
 

Odeslal: rizekB
Datum odeslání: 07.pro.2017 v 08:11
Už to fakčí :) děkuji


Vytisknout stránku | Zavřít okno