---

Ich lasse beim speichern ein Macro ablaufen.

Während des speicherns muss ein Wert eingegeben werden.

(wert1 = InputBox("Bitte wert eingeben"... usw)

Kann ich diesen Wert dann in das Schriftfeld der Zeichnung danach automatisch während des weiterlaufens des Macros eintragen lassen?

------------------
cma

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

---

Es gibt im Forum schon x mal das Thema Schriftkopf & API.
Einfach mal suchen, du wirst sicher alles finden was du brauchst.
Wenn nicht einfach nochmal etwas genauer nachfragen!

------------------
Mfg Daniel

Ob ein Begriff glücklich gewählt ist, ob es bessere Begriffe gibt, warum die Lösung aller Fragen im Universum 42 ist und wer die nächste Bundestagswahl gewinnt sind alles Fragen, über die man nächtelang diskutieren kann. Wichtig ist, dass es einen Begriff gibt, auf den sich alle einigen, und unter dem sich alle das gleiche vorstellen.

Schuler Design Automation GmbH
  kontakt@schuler-da.de

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

---

Zitat:

---

Original erstellt von oma1:
Ich lasse beim speichern ein Macro ablaufen.

---

Speichern des Teils/Baugruppe oder Zeichnung?

Zitat:

---

Original erstellt von oma1:
Kann ich diesen Wert dann in das Schriftfeld der Zeichnung danach automatisch während des weiterlaufens des Macros eintragen lassen?

---

Ich würde dir empfehlen, den Wert in die Eigenschaften der Datei zu schreiben (Datei-Eigenschaften). Diese kannst du dann in der Zeichnung wiedergeben, vom Teil/Baugruppe, als auch von der Zeichnung selber.

------------------
  The Power Of Dream

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

---

Speichern der Zeichnung.

Ich habe im Macro das weiterläuft in den wert  xxx einen Wert reingeschrieben.

Dieser wert soll dann im weiteren verlauf des Macros in das Schriftfeld geschireben werden.

------------------
cma

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

---

Am einfachsten erzeugst du über das Makro eine Eigenschaft (Extras - Eigenschaften), und füllst diese. (Wenn die Eingeschaft bereits vorhanden ist, wird sie überschrieben).

z.B.

*********************************
Dim swApp As Object
Dim Part As Object

Sub main()
  Set swApp = CreateObject("SldWorks.Application")
  Set Part = swApp.ActiveDoc
npn = Part.AddCustomInfo3("", "ISFASTENER", 30, "1")
Set swApp = Application.SldWorks
End Sub

*********************
erzeugt die Eigenschaft ISFASTENER und belegt den Wert mit 1

------------------
  The Power Of Dream

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

---

@OberliMike:

10 Unites an Dich bereits abgegeben !!!
Es haut hin.

Habe nur noch ein Problem:
Der Wert wird beim ersten Mal geschrieben und übernommen.
Gebe ich aber beim nächstenMal im MAcro einen anderen Wert ein, so wird er nicht mehr zugewiesen.

Woran liegt das ???

------------------
cma

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

---

Sorry, hatte in unserem Makro eine Stelle verwechselt.

Um neue Eigenschaften zu erfassen, werden diese beim Speichern immer hinzugefügt.

*******************************
Dim swApp As Object
Dim Part As Object

Sub main()
  Set swApp = CreateObject("SldWorks.Application")
  Set Part = swApp.ActiveDoc
npn = Part.AddCustomInfo3("", "ISFASTENER", 30, "2") 'Erstellt eine Eigenschaft ein (wenn schon vorhanden, kein Update des Inhaltes)

Part.CustomInfo("Test") = "0" 'Ändern des Inhaltes einer Eigenschaft

End Sub
******************************************************

Wenn du nicht sicherstellen kannst, dass bei allen Zeichnungsdokumenten die entsprechende Variable vorhanden ist, kannst
du zuerste die Variable eröffnen (z.B. mit dem Wert "", also keine Eintragung), und dann den Wert hineinschreiben.

Hier ein Beispiel wie es bei uns durchgeführt wird.

***************************

PartNumber = Part.getcustomInfoValue("", "EDMIDENTNR") 'Auslesen der Variable
       
If PartNumber = "" Then 'Prüfen, ob PartNumber einen Wert hat
    npn = Part.AddCustomInfo3("", "EDMIDENTNR", 30, unique_number) ' Eröffnen der Variable
      If Not npn Then Part.CustomInfo("EDMIDENTNR") = unique_number 'Wieso nochmals die Variable belegen weiss ich nicht (Makro ist nicht von mir)
    Else
    Part.CustomInfo("EDMIDENTNR") = unique_number 'Belegen der Variabel wenn schon Vorhanden.
    End If

**************************

Hintergrund des Makros ist, Speichern mit Belegung der Variablen. Dabei wir ein Formular verwendet.

------------------
  The Power Of Dream

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