---

Hallo Gemeinde.

Es stellt sich mir die Aufgabe bei den Bibliothesteile für Schweißkonstruktion die benutzerdefinierte Eigenschaft "Description" in Halbzeug umzubenennen.

Per Hand mit öfnen und umbenennen recht langwierdig und mühsam.

Hat jemand Lust mir die bei dieser Arbeit per Makro behilflich zu sein?
Mein Programmierkenntnisse gehen gegen Null.

Die verschiedenen Programme welche mit Excel arbeiten lassen sich auf Biliotheksfeature nicht anwenden.
Schön wäre es, wenn diese Eigenschaften in dem Entsprechenden Ordner auf alle Dateien zugreifen würde und dort entsprechend ändern.
ChangeCustemProperties läßt sich auch nicht einsetzen.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Hi ThoMay,

Hier mal was auf die schnelle (Ohne Fehlerabfang und Kommentare):

Code:

---

Dim swApp As Object
Dim ModelDoc As Object
Sub main()
    Set swApp = Application.SldWorks
     
    Dim FileName As String
    Dim Errors As Long
    Errors = 0
    Dim Warnings As Long
    Warnings = 0
    Dim strOrdnerName As String
    Dim strName As String
    Dim intz As Integer
    strOrdnerName = "D:\09-01 Flach-Profile\" ''<== Hier Ordner angeben
    strName = Dir(strOrdnerName & "*.sldlfp")
     
        Do While strName <> ""
            FileName = strOrdnerName & strName
            If FileName = strOrdnerName Then
            Exit Do
            End If
            Set ModelDoc = swApp.OpenDoc6(FileName, 1, 0, "", Errors, Warnings)

            swApp.ActivateDoc2 strName, False, Errors
           
            Dim boolstatus As Boolean
            boolstatus = ModelDoc.DeleteCustomInfo("Description")
            boolstatus = ModelDoc.AddCustomInfo("Description", "Text", "Halbzeug")
            longstatus = ModelDoc.SaveAs3(FileName, 0, 2)
           
            Dim Titel As String
            Titel = ModelDoc.GetTitle
            swApp.CloseDoc Titel
            strName = Dir
        Loop
End Sub

---

Gruß, Carsten

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

---

Hallo ThoMay,

kleiner allgemeiner Tipp:

wenn ich nicht so richtig weiß wie anfangen lasse ich mir ein Makro aufzeichnen mit dem was SolidWorks mit meinem Makro nachher tun soll (zeichnet "fast" alles auf was ich manuell mache). Somit gibt's dann schon mal ein "Gerüst" als Start.     

------------------
Grüße

Jörg

da ich weiß daß ich nichts weiß weiß ich immer noch mehr als die die nicht wissen daß sie nichts wissen (weiß nicht von wem)

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

---

Hallo ihr Beiden.

@carsten.

Erst mal vielen Dank dafür.
Werde es probieren.

@Jörg

Du schreibst:

Zitat:

---

(zeichnet "fast" alles auf was ich manuell mache

---

Eben Fast.
Habe ich versucht.
Datei=> Eigenschaften
Eigenschaft umbenannt
Bestätigt.
Datei speichern.
Datei schließen.

Die Aufzeichnung ging nur bis Datei Eigenschaften und dann nix mehr.

Für weiter Anregungen bin ich dankbar.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Bild01-150420.JPG

Hallo nochmals Carsten.

HAbe dein Makro getestet.
SWX geöffnet
Extra=>Makro=>neu
Dateipfad abgepasst
gespeichert
Extra => Makro=> ausführen

Nix passiert.
Kontrolle der Eigenschaft.
Steht immer noch description anstatt Halbzeug drin.
Wenn ich im Direktfenster mit dem ? Variabelenwerte abfrage sind diese ohne Wert.
Noch zur Information.
Die Variable Description soll unter Beibehalzung des Textes in Halbzeug umbenannt werden.

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Hi ThoMay,

Kannst du mal eine Testdatei hochladen?!
Dann schaue ich mir das morgen noch mal an.

Gruß, Carsten

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

---

ST_R_10x10x1.SLDLFP.txt

Hallo und guten Abend Carsten.

Bitteschön

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Hi ThoMay,

Hier noch mal der angepasste Code.

Code:

---

Dim swApp As Object
Dim ModelDoc As Object
Sub main()
    Set swApp = Application.SldWorks
     
    Dim FileName As String
    Dim Errors As Long
    Errors = 0
    Dim Warnings As Long
    Warnings = 0
    Dim strOrdnerName As String
    Dim strName As String
    Dim intz As Integer
    strOrdnerName = "D:\09-01 Flach-Profile\"
    strName = Dir(strOrdnerName & "*.sldlfp")
     
        Do While strName <> ""
            FileName = strOrdnerName & strName
            If FileName = strOrdnerName Then
            Exit Do
            End If
            Set ModelDoc = swApp.OpenDoc6(FileName, 1, 0, "", Errors, Warnings)
            swApp.ActivateDoc2 strName, False, Errors
            Dim val As String
            Dim valout As String
            Dim boolstatus As Boolean
            Set swModelDocExt = ModelDoc.Extension
            Set swCustProp = swModelDocExt.CustomPropertyManager("")
            boolstatus = swCustProp.Get4("Description", False, val, valout)
            boolstatus = ModelDoc.DeleteCustomInfo("Description")
            boolstatus = ModelDoc.AddCustomInfo("Description", "Text", "Halbzeug " & val)
            boolstatus = swCustProp.Get4("Description", False, val, valout)
            longstatus = ModelDoc.SaveAs3(FileName, 0, 2)
           
            Debug.Print (strName & " ==> " & val & " ==> " & valout)
           
            Dim Titel As String
            Titel = ModelDoc.GetTitle
            swApp.CloseDoc Titel
            strName = Dir
        Loop
End Sub

---

Bei der Zeile strOrdnerName = "D:\09-01 Flach-Profile\" hattest du aber deinen Pfad eingetragen, oder?!
Bei läuft das ohne Fehler durch und ändert die Eigenschaft in "Halbzeug " & dem vorherigen Text.
Mach mal eine Kopie von einem Ordner der Profile und lass das Makro drüber laufen.

Gruß, Carsten

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

---

Bild01-150421.JPG 21.3x2.3.SLDLFP.txt

Hallo und einen guten Tag Carsten.

Leider muß ich ein Negativum melden.

Bist du so nett und änderst nochmal?

Auch werde ich das heute Abend zu Haus nochmals versuchen.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Hi ThoMay,

füge bitte beim Pfad am Ende noch ein "\" hinzu und probier es noch einmal.

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 21. Apr. 2015 editiert.]

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

---

Hallo ThoMay,

ich würde auch nicht mit Laufwerksbuchstaben arbeiten sondern immer mit absolutem Pfad.

------------------
Grüße

Jörg

da ich weiß daß ich nichts weiß weiß ich immer noch mehr als die die nicht wissen daß sie nichts wissen (weiß nicht von wem)

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

---

Zitat:

---

...
            boolstatus = swCustProp.Get4("Description", False, val, valout)
            boolstatus = ModelDoc.DeleteCustomInfo("Description")
            boolstatus = ModelDoc.AddCustomInfo("Description", "Text", "Halbzeug " & val)

---

Hallo,

du liest "Description", löscht "Description" und fügst dann wieder "Description" ein.

Mich wundert es nicht, dass dann auch wieder "Description" drin ist ...

ich würde probieren
boolstatus = ModelDoc.AddCustomInfo("Halbzeug", "Text", val)

allerdings würde ich "Description" drin lassen und wenn wirklich benötigt einfach "Halbzeug" hinzufügen.

Gruß, Christian

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

---

Hallo Gemeinde.

   

Der \ war es

Und die Anmerkung von Christian.
Die Ü's sind verteilt.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Hi,

Ich lösche den Eintrag bewusst da es öfter vorkommt das Solidworks sonst den Eintrag nicht ändert.
Von daher dürfte es nichts ausmachen wenn ich die erst lese, lösche und danach neu erstelle. Damit ist auf jeden Fall sicher gestellt das der Eintrag geändert wurde.

Gruß, Carsten

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

---

Zitat:

---

... Ich lösche den Eintrag bewusst da es öfter vorkommt das Solidworks sonst den Eintrag nicht ändert...

---

Mir war bisher nur aufgefallen, dass der Eintrag zwar per makro geändert wird, die Verwendung im Schriftfeld aber erst nach rebuild angezeigt wird.

Das sieht dann auch erstmal so aus, als wäre nichts passiert ... 

meinst du das, oder wird er tatsächlich manchmal nicht geändert?

Gruß, Christian

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

---

Hi Christian,

Das mit dem nicht ändern ist bei uns vorgekommen, aus dem Grund machen wir es mit dem löschen und neu anlegen.
Wir haben es dann auch nicht weiter nachverfolgt.

Gruß, Carsten

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

---

Zitat:

---

Original erstellt von Christian_W:

Mir war bisher nur aufgefallen, dass der Eintrag zwar per makro geändert wird, die Verwendung im Schriftfeld aber erst nach rebuild angezeigt wird.

Das sieht dann auch erstmal so aus, als wäre nichts passiert ...  

meinst du das, oder wird er tatsächlich manchmal nicht geändert?

Gruß, Christian

---

Hallo Christian,

häng doch einfach am Ende noch einen ForceRebuild3 dran, dann kommt die Änderung auch gleich im Schriftfeld.

------------------
Grüße

Jörg

da ich weiß daß ich nichts weiß weiß ich immer noch mehr als die die nicht wissen daß sie nichts wissen (weiß nicht von wem)

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

---

Hallo zusammen,

Zitat:

---

Das mit dem nicht ändern ist bei uns vorgekommen, aus dem Grund machen wir es mit dem löschen und neu anlegen.
Wir haben es dann auch nicht weiter nachverfolgt.

---

Wir hatten die selbe Problematik auch das Eigenschaften nicht geändert wurden, daher löschen wird die Eigenschaften in der Regel auch und erstellen Sie neu, wenn wir Dokumente im Batch abarbeiten wollen.

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

---

Hi,

es gibt ein kleines Programm das die Eigenschaften aller Dateien in einem Verzeichnis (vielleicht mit Unterverz.)
löscht oder neu ausfüllt. --> "ChangeCustomProperties" Die Eigenschaft muss aber vorhanden sein.
Das hatte ich vor einigen jahren mal benutzt, hat gut funktioniert.
Weiß aber nicht mehr wo ich es her habe, und habe es auch leider nicht mehr :-(

gruß

------------------
Viele Wege führen zum Ziel .......... und ich will alle wissen !

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

---

Hallo Joshua.

Eine mögliche Quelle ist die hier

Das habe ich zuerst ausprobiert, aber läuft nicht so recht af 64K.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Hi ThoMay

Falls du auf ein aktuelleres SolidWorks umsteigen würdest, könntest du mit einzelnen Bibliotheksdateien arbeiten, Neuerdings sind auch Konfigurationen da drin erlaubt.

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