---

Hallo,

ich habe ein Macro umgeschrieben, das mir die Eigenschaften "säubert"

nun wollte ich einen Materialverweis und ein Gewichtsverweis auf den Strukturbaum einbauen.
Bedeutet, das sollte nachher in den Eigenschaften so aussehen:

Gewicht         Text "SW-Mass@Teil.SLDPRT"       0.00
Material Text "SW-Material@Teil.SLDPRT"

wie mache ich das(wie und wo füge ich das ein)     

...
    strName = Dir(strOrdnerName & "*.sldlfp")
    
...
            boolstatus = swCustProp.Get4("Oberflächenbehandlung", False, val, valout)
            boolstatus = ModelDoc.DeleteCustomInfo("Oberflächenbehandlung")
            boolstatus = swCustProp.Get4("Oberflächenbehandlung", False, val, valout)
 ...

[Diese Nachricht wurde von Malte70 am 27. Nov. 2023 editiert.]

[Diese Nachricht wurde von Malte70 am 27. Nov. 2023 editiert.]

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

---

Hallo Malte,

erst einmal "Herzlich willkommen im SWX-Board" 
Schau mal in das Beispiel

http://help.solidworks.com/2020/english/api/sldworksapi/add_and_get_custom_properties_example_vb.htm

Dort findest du Hinweise, wie das in SWX gemacht wird 
Und du solltest deinen Code noch mal durchschauen, da sind eine Menge
unsinnige Befehle drin. So zum Beispiel hier:

Code:

---

strName = Dir(strOrdnerName & "*.sldlfp")

---

Du rufst zum einen nicht ein Teil sondern ein Bibliotheksfeature auf.
Zum anderen erschliesst sich der Sinn des * nicht. Willst du alle
Bibliotheksfeature aufrufen? Das musst du unter VBA anders lösen. Ich
gehe auch davon aus, dass es hier zu einem Fehler kommt, hab es aber noch
nicht ausprobiert.

In den Zeilen

Code:

---

boolstatus = swCustProp.Get4("Oberflächenbehandlung", False, val, valout)
boolstatus = ModelDoc.DeleteCustomInfo("Oberflächenbehandlung")
boolstatus = swCustProp.Get4("Oberflächenbehandlung", False, val, valout)

---

rufst du zwei mal die Property Oberflächenbehandlung auf. Dazwischen wird
dann mit einem "alten" Befehl die Property gelöscht. Warum 
Das sieht ein wenig nach "Cut&Paste bis der Arzt kommt" aus. Nicht falsch
verstehen, aber du solltest dich in das Thema "Programmieren mit VBA"
noch ein wenig einarbeiten.

------------------
==========
Gruß
Andreas
==========

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

---

Schonmal vielen vielen Dank,

Ja, sind Bibliotheksfeatures

Die SW Beispiele hab ich schon gefunden, konnte nur nix damit anfangen  

Copy,Cut& Paste bis der Arzt kommt stimmt schon  
das mit dem einarbeiten ist auch vollkommen richtig (Anfänger)
habe diese Woche mit dem umschreiben angefangen und vor ein paar Jahren mal die ersten 3 Seiten von einem VB Wälzer gelesen.

das Programm läuft bis hier einwandfrei.

nur die Materialeigenschaften fehlen mir

In den Zeilen

Code:

    boolstatus = swCustProp.Get4("Oberflächenbehandlung", False, val, valout)
    boolstatus = ModelDoc.DeleteCustomInfo("Oberflächenbehandlung")
    boolstatus = swCustProp.Get4("Oberflächenbehandlung", False, val, valout)

habe ich ein Property drin was blödsinn ist, das soll halt raus.

wenn ich das nicht tue, dann lässt er den wert stehen.

(hab zwar fast keine Ahnung davon aber ich glaube er schaut nach, welcher wert (in dem falle keiner, weil er ja gelöscht wurde)
drin steht und schreib diesen dann in die Eigenschaften.

[Diese Nachricht wurde von Malte70 am 12. Nov. 2020 editiert.]

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