---

Hallo ihr Fachleute!

Kurz vor Weihnachten möchte ich alle geladenen Parts mit einem bestimmten Attribut versehen. Dazu habe ich das Makro "Alle offenen Dateien speichern" von Stefan Berlitz als Basis genommen.
Das Makro rennt auch brav durch alle geladenen Parts, aber es gelingt mir nicht, ein Attribut neu anzulegen. Wenn das Attribut schon besteht, dann wird es auch brav mit dem neuen Wert gefüllt.

Watt nu??

Natürlich könnte ich auch den SolidWorksExplorer nehmen, um das Attribut zu erstellen. Aber das dauert ja ewig!!

Viele Grüße aus dem wilden Süden

uwe

'********************************
Sub main()
Dim SldWorks As Object
Dim ModelDoc As Object
Dim text As String

' an SolidWorks anklinken
Set SldWorks = CreateObject("SldWorks.Application")
Set ModelDoc = SldWorks.ActiveDoc
   
' durch alle offenen Dokumente gehen
Set ModelDoc = SldWorks.GetFirstDocument
   
While Not ModelDoc Is Nothing
               
ModelDoc.AddCustomInfo3 "", "Position", swCustomInfoText, "Position"
'Das klappt nicht!

ModelDoc.CustomInfo2("", "Position") = "1234"
'Wenn das Attribut "Position" existiert, wird "1234" eingetragen

text = ModelDoc.CustomInfo2("", "Position")
MsgBox text
'Hier die Rückmeldung, ob es geklappt hat

' und das nächste Dokument
Set ModelDoc = ModelDoc.GetNext
Wend
 
End Sub

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

---

Probiere mal, ob das hier geht. Bei Dir scheinen nur die Klammern zu fehlen bei AddCustomInfo?!

Sub main()
    Dim SldWorks As Object
    Dim ModelDoc As Object
    Dim text As String
    Dim Erfolg As Boolean
    Dim Infoanzahl As Integer
    Dim i As Integer
    Dim Infonamen As Variant
    Dim da As Boolean
    Dim xx As String
    Const swCustomInfoText = 30
Set SldWorks = CreateObject("SldWorks.Application")
Set ModelDoc = SldWorks.ActiveDoc
xx = "Dein Text..."
If Not ModelDoc Is Nothing Then
    Infoanzahl = ModelDoc.GetCustomInfoCount2("") ' Anzahl der Eigenschaften
    If (Infoanzahl) Then
        Infonamen = ModelDoc.GetCustomInfoNames2("")
        i = 0
        da = False
        While i < UBound(Infonamen) - 1 And da = False
            If Infonamen(i) = "Position" Then da = True
        Wend
    End If
    If da = False Then Erfolg = ModelDoc.AddCustomInfo3("", "Position", swCustomInfoText, xx)
    text = ModelDoc.CustomInfo2("", "Position")
    MsgBox text                                    'Hier die Rückmeldung, ob es geklappt hat
End If
End Sub

------------------
Lutz Federbusch
Mein Gästebuch

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

---

attribute.swp.txt

Hmm, die innere Schleife mußte noch einmal ausgetauscht werden;
jetzt stimmts wirklich...

------------------
Lutz Federbusch
Mein Gästebuch

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

---

Cooooool!
Ich habe noch ein Klitzekleinesbisschen umgestrickt, und jetzt läuft es auch durch alle geladenen Parts durch und attributiert völlig korrekt.

Vielen Dank und 10 Dingsbumse für Dich!

         

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