---

Hallo zusammen,

in meinen bisherigen Makros habe ich "nur" konfigurationsspezifische Variablen geändert.

Jetzt benötige ich dies für benutzerdefinierte.
Habe aber leider trotz Recherche nicht alle entsprechenden Befehle gefunden.

Wer kann mir bitte weiter helfen ? - DANKE !

###konfigurationsspezifisch
swModel.GetCustomInfoValue
swModel.DeleteCustomInfo2
swModel.AddCustomInfo3

###benutzerdefiniert
swModel.Get...
swModel.Delete...
swModel.AddReference3

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

setz doch mal für den Konfigname nur "" - also einen leeren String.

Gruß, Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Versuch es mal mit diesem Ansatz

Code:

---

Option Explicit

 

    Dim swApp              As SldWorks.SldWorks

    Dim swModel            As SldWorks.ModelDoc2

    Dim swCustPropMgr      As SldWorks.CustomPropertyManager

    Dim nNbrProps          As Long

    Dim j                  As Long

    Dim vPropNames          As Variant

    Dim valOut              As String

    Dim resolvedValOut      As String

    Dim custPropType        As Long

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")

    ' Get the new number of custom properties for this configuration

    nNbrProps = swCustPropMgr.Count

    Debug.Print "New number of properties for this configuration:        " & nNbrProps

    ' Get the names of the custom properties

    vPropNames = swCustPropMgr.GetNames

  ' For each custom property, get its type, value, and resolved value

  ' Then print its name, type, and resolved value

    For j = 0 To nNbrProps - 1

        swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut

        custPropType = swCustPropMgr.GetType2(vPropNames(j))

        Debug.Print "    Name, type, and resolved value of custom property:  " & vPropNames(j) & " - "; custPropType & " - " & resolvedValOut

    Next j

     
End Sub

---

Gruß Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In meinem neuen Makro muss ich zunächst den Namen dieser benutzdefinierten Variable erzeugen,
und dann mit einem Wert belegen.
Dann wird "" wohl nicht klappen ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Der Makrovorschlag läuft bei mir leider ohne das etwas angezeigt wird ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Makro gibt dir nur im Direktfenster eine Ausgabe

Mit Name - Type (als Integer) - Wert

Mit "" war nur gemeint, dass du keinen Konfigurationsnamen angibst (also einen leeren String "").
Sonst ändert sich an der handhabe zu konfigurationsspezifischen Eigenschaft nicht viel.

Gruß Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dies ist mein Makro, welches eine konfigurationsspezifische Eigenschaft erzeugt und anlegt.
Wie aber muss ich es für die benutzerdefinierte Eigenschaft ändern ? 

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
 
    Dim AG As String
    Dim AG_FieldValue As String
    Dim AG_FieldName  As String
    Dim dummy  As Boolean
    'Dim typ As Integer
 
 
    'Prüfen, ob ein Teil geöffnet ist
    typ = swModel.GetType()
    If typ <> swDocPART Then
        GoTo EXITHERE
    End If

    AG_FieldName = "AG"
    AG = swModel.GetCustomInfoValue("Standard", AG_FieldName)
            'GetCustomInfoValue(Configuration, FieldName)
   
    AG_FieldValue = "FT"
    dummy = swModel.DeleteCustomInfo2("Standard", AG_FieldName)
              'DeleteCustomInfo(FieldName)
    dummy = swModel.AddCustomInfo3("Standard", AG_FieldName, swCustomInfoText, AG_FieldValue)
              'AddCustomInfo3(Configuration, FieldName, FieldType, FieldValue)
 
    Dim Part As Object
    Dim boolstatus As Boolean
    Dim longstatus As Long, longwarnings As Long

    Set Part = swApp.ActiveDoc
    Dim swErrors As Long
    Dim swWarnings As Long

    'SPEICHERN
    boolstatus = Part.Save3(0, swErrors, swWarnings)
 
EXITHERE:
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich hätte besser auf deckelmaho hören sollen,
einfach statt "Standard" nur "" schreiben .... DANKE !!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

PS : und auf Christian_W !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP