Hallo
Ik krijg in Vergelijking op het niveau van globale variabelen de waarde gelezen in TXD1@Schéma2. Ik noem deze variabele Data1
Deze waarde gebruik ik in mijn berekening en haal berekening1 en berekening2 op
afhankelijk van de waarde van Data1, wil ik Calcul1 of Calcul2 laten verschijnen in de parameters van mijn DataSheet. Is dit mogelijk? Met welke syntaxis? zonder door de familie van onderdelen te gaan
Bedankt voor je feedback
Vriendelijke groeten
LSE
Hallo
Sorry, ik dacht dat mijn antwoord gevalideerd was. Ik zal wel niet goed geklikt hebben....
we krijgen de tabel door te doen Bestand - eigenschap.
Ik maak van deze gelegenheid gebruik voor een 2e vraag: hoe verwijder ik permanent een rij uit deze tabel voor alle configuraties?
Bij voorbaat dank voor uw hulp
Fijne dag
LSE
Hallo
Een manier zou zijn om de functie IIf() te gebruiken in "vergelijking" en vervolgens het resultaat toe te wijzen in "aangepaste eigenschap"
Voor het verwijderen van eigenschappen is het om de regel te selecteren en vervolgens te verwijderen, ik denk dat er geen keuze is, het moet voor elke configuratie worden gedaan,
(Het zou beter zijn om deze eigenschap te negeren, nietwaar?)
Een nieuwe discussie zal je zeker meer hulp brengen,
En om een eigenschap in alle configuraties te verwijderen, moet je een macro doorlopen.
Zie het onderstaande voorbeeld om de eigenschap "Revisie" over te dragen:
' ----------------------------------------------
' Postconditions: De custom eigenschap Input1 wordt toegevoegd aan het bestand.
' OPMERKING: Omdat configuraties niet worden ondersteund in tekeningen, geeft u een lege tekenreeks door wanneer het bestand een tekening is.
'------------------------------------------------
Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
Dim retval als snaar
Dim vConfigNameArr als variant
Dim vConfigName als variant
Dim swActiveConf als SldWorks.Configuration
Dim swConf als SldWorks.Configuration
Dim swConfMgr als SldWorks.ConfigurationManager
Dim swDerivConf As SldWorks.Configuration
Dim swConfig als SldWorks.Configuration
Dim bRet als Booleaanse
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Stel swConfMgr = swModel.ConfigurationManager in
Stel swConfig = swConfMgr.ActiveConfiguration in
vConfigNameArr = swModel.GetConfigurationNames
retval = swModel.AddCustomInfo3("", "Revisie", swCustomInfoText, "-")
vConfigNameArr = swModel.GetConfigurationNames
Voor elke vConfigName in vConfigNameArr
Stel swConf = swModel.GetConfigurationByName(vConfigName) in
' Beweer niet; zal NULL zijn als er al een (afgeleide) configuratie bestaat
retval = swModel.DeleteCustomInfo2(swConf.Name, "Revisie")
Volgend
MsgBox retval
Einde Sub
' ----------------------------------------------
Dat is echt geweldig! Het werkt geweldig!
Hartelijk dank aan u voor uw hulp.
Fijne dag
LSE