Zobrazit plnou verzi příspěvku: Uživatelská vlastnost - dopisování
PopelkaM
13.07.2023, 10:49
Dobrý den,potřebuji dopsat do uživatelské vlastnosti v modelu součásti Inventora např. k plechu ".dxf".Uživatelská vlastnost ČÍSLO VÝKRESU = 70-28398_00-10Po aplikovaní pravidla 70-28398_00-10.dxfPoradí mě někdo?Děkuji s pozdravem Popelka
Vladimír Michl
13.07.2023, 14:14
Bez všech kontrol (neexistuje, .dxf už přidáno, apod.):iProperties.Value("Custom", "ČÍSLO VÝKRESU") =iProperties.Value("Custom", "ČÍSLO VÝKRESU") & ".dxf"
PopelkaM
14.07.2023, 06:12
Dobrý den, to jsem měl přesně na mysli ... Děkuji Popelka
PopelkaM
14.07.2023, 09:15
Dobrý den,ještě mě napadlo jak by vypadalo iLogic pravidlo když bych chtěl vybrat z více hodnot.nař.*.dxf*.stp*.igsDěkuji za radu s pozdravem Popelka
Vladimír Michl
14.07.2023, 17:19
Na základě nějaké podmínky nebo uživatelskou volbou? To je pak už spíš otázka UI - např. takto:Dim MyList As New ArrayList
MyList.Add("DXF")
MyList.Add("STP")
MyList.Add("IGS")
MyOption = InputListBox("Zvolte variantu: ", MyList, "DXF", Title := "Volba variant", ListName := "Formát")
Try
iProperties.Value("Custom", "ČÍSLO VÝKRESU") = iProperties.Value("Custom", "ČÍSLO VÝKRESU") & "." & MyOption
Catch
iProperties.Value("Custom", "ČÍSLO VÝKRESU") = "???." & MyOption
End Try