---

Hallo zusammen,

ich würde gern folgende Probleme mittels Makro/UserForm erledigen.

1) Ich möchte den Wert der benutzerdefinierten Eigenschaft "benennung1" in eine Variable "vbenennung1" auslesen.

    Dim benennung1 As String
    vbenennung1 = Part.GetCustomInfoNames2("benennung1", "")
    TextBox4.Text = vbenennung1

2) In einem Listenfeld sollen z.B. Standards eingetragen sein, und die eben ausgelesene Eigenschaft.

Private Sub ComboBox1_Click()
    rh1 = ComboBox1.text
End Sub

Private Sub UserForm_Layout()

    'Anbindung ComboBox1
    ComboBox1.AddItem "Benennung Hallo"
    ComboBox1.AddItem "Benennung Hallo2"
    ComboBox1.AddItem vbenennung1            <---???????????

End Sub

Wer verdient sich 10Points? (Für die *****s wohl ein Klacks)

------------------
Gruß, der Teddibaer
---------
Es gibt Tage an denen verliert man, und es gibt Tage, an denen kann man nicht gewinnen ...

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

---

Hallo,

ich denke dein Fehler liegt hier:

Dim vbenennung1 As String

Hab das grad mal mit dem Code probiert:

Dim swApp As Object
Dim Model As Object
Dim vbenennung1 As String
   
Set swApp = CreateObject("SldWorks.Application")
Set Model = swApp.ActiveDoc

swApp.Visible = True

vbenennung1 = Model.CustomInfo("benennung1")
TextBox1.Text = vbenennung1

ComboBox1.AddItem "Hallo"
ComboBox1.AddItem "Hallo2"
ComboBox1.AddItem vbenennung1

und es hat funktioniert 
HTH, Gruss Alex

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

---

fuer_teddibaer.zip

Hallo Teddibaer,

war schon recht dicht dran; am einfachsten machst du das in der Initialisierungsroutine der Userform:

Code:

---

Private Sub UserForm_Initialize()
    Dim swapp As Object
    Dim Part As Object
    Dim customprop As String
    Dim config As String
    Const propname As String = "benennung1"
   
    Set swapp = CreateObject("SldWorks.Application")
    Set Part = swapp.ActiveDoc
    If Part Is Nothing Then
        MsgBox "Kein Dokument aktiv"
        End
    End If
   
    config = "" ' für Dateieigenschaften muss es ein Leerstring sein
    customprop = Part.CustomInfo2(config, propname)
   
    ' jetzt die Combobox füllen
    ComboBox1.AddItem "Benennung Hallo1"
    ComboBox1.AddItem "Benennung Hallo2"
    ComboBox1.AddItem "Benennung Hallo3"
    ComboBox1.AddItem customprop
    ' und diesen Wert vorauswählen
    ComboBox1.Text = customprop
   
End Sub

---

Ich hab dir auch mal das SWP angehängt, als basis zum Ausprobieren 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Hallo Alle.

Teddibaer: Vielleicht liegt der Fehler darin, dass "GetCustomInfoNames2" ein Array von Namen zurückgibt (also ev. mehrere Namen) und mit "X.additem" nur ein einzelner String zugewiesen werden darf.

------------------
Gruss
Andreas

A+E Müller AG

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