---

Hallo zusammen,

ich möchte, da das Aufrufen des Dialogs und des entsprechenden Kartenreiters zu kompliziert ist, ein VBA-Script erstellen um meine benutzerdefinierte Bauteil-Variable Artikel zu belegen. Habe aber keine Ahnung wie das gehen soll. Wer kann mir auf die Sprünge helfen?

VBA in Word und Excel habe ich schon gemacht, also kein Grundlehrgang nötig.

Gruß Wilfried

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

---

Du holst dir von deinem Dokument die PropertySets. Da suchst du dann dann das PropertySet das folgenden InternalName hat:
"{D5CDD505-2E9C-101B-9397-08002B2CF9AE}"
Also mit propSets.item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
Evtl. musst du das über eine Schleife machen und die Namen selbst vergleichen, da der Inventor an dieser Stelle manchmal spinnt.

Auf dieses PropertySet kannst du dann einfach Add(name,wert) aufrufen, um eine Variable hinzuzufügen oder dir mit Item(name) die Property holen, wenn sie schon da ist und den Wert verändern.

Hab leider gerade keinen Code da, aber du schaffst das schon :-))

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

---

Hallo Waldi,

erstmal vielen Dank für Deine Antwort. Leider komme ich noch nicht zurecht mit Deinen Anweisungen. Vielleicht doch ein bisschen Code?
Eilt ja nicht.

Danke im voraus.

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

---

Hab doch was gefunden:

Sub addProp()
    Dim partDoc As partDocument
    Set partDoc = ThisApplication.ActiveDocument
   
    Dim props As PropertySets
    Set props = partDoc.PropertySets
   
    Dim customProp As PropertySet
    Set customProp = props.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
   
    Dim myProp As Property
    Set myProp = customProp.Add("Test", "Artikel")

End Sub

Add geht allerdings nur, wenn es die Property noch nicht gibt

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

---

Hallo,

es gibt die gleiche Sache hier im Forum schon für andere Properties z.B Gewicht siehe hier: http://ww3.cad.de/foren/ubb/Forum50/HTML/000651.shtml

------------------
Gruß LBCAD

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

---

Artikel_bas.txt

Hurra,
ich hab's, falls das jemanden interessiert, hier das Makro.

Vielen Dank allen.

P.S. Unities sind unterwegs

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

---

Hallo Willi,

das Makro ist echt Klasse!
Wo gibt es noch mehr solche Tools zum download?

------------------

max

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

---

Artikel2_bas.txt

Hallo max2,

wüßte ich auch gerne, da ich, wie schon erwähnt, Neuling bin.

Weißt Du vielleicht eine Antwort auf meine Beitrag: http://ww3.cad.de/foren/ubb/Forum258/HTML/000094.shtml  ?

Gruß aus Ostwestfalen

Habe das Makro noch überarbeitet. (Fehlermeldung wenn kein Bauteil)

[Diese Nachricht wurde von CADwilli am 19. Nov. 2003 editiert.]

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

---

Hallo waldi,

erstmal nochmals Danke für Deine Antworten.

Jetzt noch eine Frage. Der InternalName des Benutzerdefinierten PropertySet ist, wie Du schreibst:
"{D5CDD505-2E9C-101B-9397-08002B2CF9AE}"

Wie ist denn dann der InternalName für den System PropertySet, z.B. Blattgrösse?

Gruß
Willi

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

---

Hmm, Blattgrösse hab ich jetzt nicht gefunden. In der Doku findest du das alles unter den Enums->PropertyEnums. Da stehen zum einen die Namen der einzelnen Properties und auch die InternalNames der PropetySets. Mehr weiss ich jetzt leider auch nicht.

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