---

Hallo zusammen,

ich suche verzweifelt die Syntax um bei einem part oder einer asm eine benutzerdefinierte Eigenschaft hinzuzufügen.

Ich hab das Modell bereits am Haken.
Ich denke dass es da ja was geben muß mit "Add" oder so.

Kann mir jemand helfen?

Vorab vielen Dank.

Viele Grüße
Ralph

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

---

Beispiel aus einem Makro:

Code:

---

    ' einfügen der neuen Dateieigenschaften
    retval = Part.AddCustomInfo2("ZSL-Artikel", 30, "799-")

---

Dabei ist ZSL-Artikel der Name der Eigenschaft und 799- der Wert. Was die 30 bedeuten, weiß ich nicht mehr ...  .

------------------
Gruß Stefan

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

---

Hallo Ralph,

such mal in der API-Hilfe nach CustomInfo2 damit kannst du Eigenschaften hinzufügen bzw. werte eintragen wenn diese schon vorhanden sind.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Oder besser noch das Beispiel wie es über den Property Manager gemacht wird.

Add and Get Custom Properties Example (VBA) aus der API-Hilfe.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Code:

---

Was die 30 bedeuten, weiß ich nicht mehr ...

---

Zur Info die 30 ist der Eigenschaftstyp sprich 30 = Text, 63 = Datum, 3 = Anzahl und 11 = Ja/nein.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Schau mal hier nach...

------------------
Viele Grüße, THSEFA

"Nichts ist so hart wie das Leben! Wenn man sagt, was man denkt, muss man mehr als alles geben!..."

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

---

Als Alternative bietet sich auch der CustomPropertyManager an!
In der API - Hilfe: "Add and Get Custom Properties Example (VBA)"

Code:

---

Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim SelMgr As Object
Sub main()
    Dim MyExt As ModelDocExtension
    Dim MyPropMan As CustomPropertyManager
    Dim MyError As Long, MyWarn As Long
    Dim myPrice As String
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set SelMgr = Part.SelectionManager
    Set MyExt = Part.Extension
    Set MyPropMan = MyExt.CustomPropertyManager("")
    myPrice = InputBox("Bitte den Preis eingeben", "Preisabfrage")
    retval = MyPropMan.Add2("Preis", swCustomInfoText, myPrice)
    If retval = 1 Then
        Call MsgBox("Eintragung erfolgreich", vbOKOnly)
    Else
        Call MsgBox("Eintragung fehlgeschlagen", vbOKOnly)
    End If
    Part.Save3 0, MyError, MyWarn
End Sub

---

Grüße

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

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

---

[ironie]Pöser Tobias,

jetzt hast du ihm auch noch die arbeit abgenommen die API-Hilfe zu benutzen      [/ironie]

Zitat:

---

Oder besser noch das Beispiel wie es über den Property Manager gemacht wird.

Add and Get Custom Properties Example (VBA) aus der API-Hilfe.

---

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

Hallo zusammen,

vielen Dank für Eure hilfreichen Antworten.
Ich habs gleich mit der ersten Antwort hinbekommen, bin aber bis jetzt noch nicht dazu gekommen mich zu bedanken.

Viele Grüße
Ralph

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