---

Dateieigenschaften.jpg

Hallo!

Ich habe nun verzweifelt nach einem Makro oder einem Beitrag gesucht, indem das Feld Titel mit VB angesprochen wird um dort Informationen abzulegen.

Hat irgendjemand da draußen eine Ahnung wie das geht?

Schöne Grüße

Sebastian

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

---

es heisst selbstverständlich Titel nicht Tietel! :-)
Da war mal einer wieder zu schnell!

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

---

Hallo Sebastian.

Jo, das geht. In diese Richtung musst du weiterforschen:

Public Enum swSummInfoField_e
  swSumInfoTitle = 0
  swSumInfoSubject = 1
  swSumInfoAuthor = 2
  swSumInfoKeywords = 3
  swSumInfoComment = 4
  swSumInfoSavedBy = 5
  swSumInfoCreateDate = 6
  swSumInfoSaveDate = 7
  swSumInfoCreateDate2 = 8
  swSumInfoSaveDate2 = 9
End Enum

Dim strInfoTitle              As String

strInfoTitle = objModel.SummaryInfo(swSumInfoTitle)

P.S. Hoffe, dass ich bald wieder definitiv hier dabei sein werde  !

------------------
Gruss
Andreas
A+E Müller AG

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

---

Zitat:

---

Original erstellt von Andreas Müller:
P.S. Hoffe, dass ich bald wieder definitiv hier dabei sein werde   !

---

Da Drück ich dir aber ganz dolle die Daumen   

------------------
http://classicvb.org/petition/

       

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Cool....

das bringt mich auf jeden Fall weiter!

DANKE!!!

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

---

Zitat:

---

Original erstellt von Andreas Müller:
P.S. Hoffe, dass ich bald wieder definitiv hier dabei sein werde   !

---

Jaaaa, der Andreas ist wieder da   

Und komm dann bald wieder regelmäßig vorbei. Ich freu mich drauf 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Member of CAD.de BOINC Team  -  | Seti@Home | CPDN | Einstein@Home

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

---

Hmm...

ich war wohl doch zu voreilig, irgendwie klappt das nicht so ganz. Hat sonst noch jemand eine Jdee, oder einen Konkreten Lösungsvorschlag?

Danke!!!

Sebastian

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

---

Ich denke nicht, dass es da noch eine andere Idee dazu gibt. Es ist meines Wissens nach (Irrtum vorbehalten) die einzige Lösung!

Was funtioniert denn bei Dir nicht?

------------------
Gruss
Andreas
A+E Müller AG

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

---

Hallo Sebastian,

hm, ich hab das auch mal gerade so probiert, klappt vorzüglich. Du musst natürlich die Schnipsel von Andreas noch zusammenkleben und zum Setzen der Eigenschaft den Befehl umdrehen, aber Andreas hat ja auch geschrieben, dass du in der Richtung forschen sollst. Das war kein fertiges Makro 

Ein bisschen umgestellt sähe das dann so aus:

Code:

---

Dim swApp As Object
Dim ModelDoc As Object
Dim strInfoTitle As String

Const swSumInfoTitle = 0

Sub main()

    Set swApp = Application.SldWorks
    Set ModelDoc = swApp.ActiveDoc

    ' Titel holen und in einer Messagebox ausgeben
    strInfoTitle = ModelDoc.SummaryInfo(swSumInfoTitle)
    MsgBox strInfoTitle
   
    ' Titel mit neuem String setzen
    strInfoTitle = "42!"
    ModelDoc.SummaryInfo(swSumInfoTitle) = strInfoTitle
   
End Sub

---

Das müsste auch bei dir sofort so laufen und in die Titel-Dateieigenschaft des aktuellen Modells 42! eintragen  

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Member of CAD.de BOINC Team  -   | Seti@Home | CPDN | Einstein@Home

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

---

SUPER DANKE! ES FUNKTIONIERT!

Ich hab mich nur a bisserl blöd angestellt!

Vielen Dank für die Unterstützung!!

Schöne Grüße

Sebastian

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