Witam
Otrzymuję w równaniu na poziomie zmiennych globalnych wartość odczytaną w TXD1@Schéma2. Nazywam to zmienną Data1
Używam tej wartości w moich obliczeniach i pobieram obliczenia1 i obliczenia2
w zależności od wartości Data1 chciałbym, aby Calcul1 lub Calcul2 pojawiały się w parametrach mojego arkusza danych. Czy jest to możliwe? Z jaką składnią? bez przechodzenia przez rodzinę części
Dziękujemy za Twoją opinię
Pozdrowienia
LSE
Witam
Przepraszam, myślałem, że moja odpowiedź została potwierdzona. Chyba nie kliknąłem dobrze....
Tabelę otrzymujemy, wykonując właściwość File -.
Korzystam z tej okazji na 2 pytanie: jak trwale usunąć wiersz z tej tabeli dla wszystkich konfiguracji?
z góry dziękuję za pomoc
Miłego dnia
LSE
Witam
Jednym ze sposobów byłoby użycie funkcji IIf() w "równaniu", a następnie przypisanie wyniku do "właściwości niestandardowej"
Do usunięcia właściwości należy zaznaczyć linię, a następnie usunąć, myślę, że nie ma wyboru należy to zrobić dla każdej konfiguracji,
(Lepiej byłoby zignorować tę właściwość, prawda?)
Nowa dyskusja z pewnością przyniesie Ci więcej pomocy,
Aby usunąć właściwość we wszystkich konfiguracjach, musisz przejść przez makro.
Zobacz przykład poniżej, aby przenieść właściwość "Revision":
' ----------------------------------------------
' Postconditions: Właściwość niestandardowa Input1 jest dodawana do pliku.
' UWAGA: Ponieważ konfiguracje nie są obsługiwane na rysunkach, należy przekazać pusty ciąg, gdy plik jest rysunkiem.
'------------------------------------------------
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim retval As String
Dim vConfigNameArr jako wariant
Dim vConfigName jako wariant
Dim swActiveConf jako SldWorks.Configuration
Dim swConf As SldWorks.Configuration
Dim swConfMgr jako SldWorks.ConfigurationManager
Dim swDerivConf As SldWorks.Configuration
Dim swConfig jako SldWorks.Configuration
Dim bRet As Boolean
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swConfMgr = swModel.ConfigurationManager
Ustaw swConfig = swConfMgr.ActiveConfiguration
vConfigNameArr = swModel.GetConfigurationNames
retval = swModel.AddCustomInfo3("", "Wersja", swCustomInfoText, "-")
vConfigNameArr = swModel.GetConfigurationNames
Dla każdej nazwy vConfigName w vConfigNameArr
Set swConf = swModel.GetConfigurationByName(vConfigName)
' Nie twierdz; będzie mieć wartość NULL, jeśli konfiguracja (pochodna) już istnieje
retval = swModel.DeleteCustomInfo2(swConf.Name, "Wersja")
Następny
Skrót MsgBox retval
Koniec subwoofera
' ----------------------------------------------
To naprawdę świetnie! Działa świetnie!
Wielkie podziękowania dla Ciebie za pomoc.
Miłego dnia
LSE