Hallo
Ich bekomme in der Gleichung auf der Ebene der globalen Variablen den in TXD1@Schéma2 gelesenen Wert. Ich nenne diese Variable Data1
Ich verwende diesen Wert in meiner Berechnung und rufe Berechnung1 und Berechnung2 ab
Je nach Wert von Data1 möchte ich Calcul1 oder Calcul2 in den Parametern meines DataSheets erscheinen lassen. Ist das möglich? Mit welcher Syntax? ohne die Teilefamilie zu durchlaufen
Vielen Dank für Ihr Feedback
Herzliche Grüße
LSE
Hallo
Entschuldigung, ich dachte, meine Antwort wäre validiert worden. Ich muss nicht gut geklickt haben...
Wir erhalten die Tabelle, indem wir File - property ausführen.
Ich nutze diese Gelegenheit für eine 2. Frage: Wie lösche ich eine Zeile für alle Konfigurationen dauerhaft aus dieser Tabelle?
Vielen Dank im Voraus für Ihre Hilfe
Schönen Tag
LSE
Hallo
Eine Möglichkeit wäre, die Funktion IIf() in "equation" zu verwenden und dann das Ergebnis in "custom property" zuzuweisen.
Für das Löschen von Eigenschaften ist es die Zeile auszuwählen und dann zu löschen, ich denke, das hat keine Wahl, es ist für jede Konfiguration zu tun,
(Es wäre besser, diese Eigenschaft zu ignorieren, nicht wahr?)
Eine neue Diskussion wird Ihnen sicherlich mehr Hilfe bringen,
Und um eine Eigenschaft in allen Konfigurationen zu löschen, müssen Sie ein Makro durchlaufen.
Siehe Beispiel unten, um die Eigenschaft "Revision" zu übertragen:
' ----------------------------------------------
' Postconditions: Die benutzerdefinierte Eigenschaft Input1 wird der Datei hinzugefügt.
' HINWEIS: Da Konfigurationen in Zeichnungen nicht unterstützt werden, übergeben Sie eine leere Zeichenfolge, wenn es sich bei der Datei um eine Zeichnung handelt.
'------------------------------------------------
Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim retval As String
Dim vConfigNameArr als Variante
Dim vConfigName als Variante
Dim swActiveConf als SldWorks.Configuration
Dim swConf als SldWorks.Configuration
Dim swConfMgr As SldWorks.ConfigurationManager
Dim swDerivConf als SldWorks.Configuration
Dim swConfig als SldWorks.Configuration
Dim bRet als boolescher Wert
Sub main()
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Legen Sie swConfMgr = swModel.ConfigurationManager fest
Legen Sie swConfig = swConfMgr.ActiveConfiguration fest
vConfigNameArr = swModel.GetConfigurationNames
retval = swModel.AddCustomInfo3("", "Überarbeitung", swCustomInfoText, "-")
vConfigNameArr = swModel.GetConfigurationNames
Für jeden vConfigName in vConfigNameArr
Legen Sie swConf = swModel.GetConfigurationByName(vConfigName) fest
" Behaupten Sie nicht; ist NULL, wenn die (abgeleitete) Konfiguration bereits vorhanden ist
retval = swModel.DeleteCustomInfo2(swConf.Name, "Überarbeitung")
Nächster
MsgBox retval
Ende Sub
' ----------------------------------------------
Das ist wirklich toll! Es funktioniert super!
Ein großes Dankeschön an Sie für Ihre Hilfe.
Schönen Tag
LSE