---

Hallo,

wie kann man im Makro eine bestimmte Zeichenansicht umbenennen?
Die Zeichenansicht (die man vor dem Makro anwählt) habe ich unter swView gespeichert. Dessen Namen bekomme ich mit swView.Name.

Versucht habe ich:

Code:

---

Dim swApp As SldWorks.SldWorks             
Dim swModel As SldWorks.ModelDoc2         
Dim swView As Object                       

Set swApp = Application.SldWorks       
Set swModel = swApp.ActiveDoc 
Set swView = swModel.ActiveDrawingView

'...

swView.Name = swView.Name & "(Stückliste)"

---

Da kommt ein Laufzeitfehler 61837: Schreiben ist wegen der Eigenschaft Nur-Lesen nicht möglich.

Außerdem (durch die Aufzeichnung vom Makrorekorder):

Code:

---

    boolstatus = swModel.Extension.SelectByID2(swView.Name, "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
    boolstatus = swModel.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, swView.Name & "(Stückliste)")

---

Die erste Zeile selektiert die Zeichenansicht aber das Umbenennen mit der zweiten Zeile funktioniert überhaupt nicht.

Ist es gar nicht möglich eine Zeichenansicht umzubenennen?

gruß,
red

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

---

Hallo Red

den Namem einer Ansicht änderst du so.

Code:

---

swView.SetName2 ("Benennung")

---

Link zur API-Hilfe

Funktioniert aber nicht mit Schnittansichten.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Super genau was ich gesucht hab und es funktioniert.
Habs auch in der API Hilfe gesucht bin aber nicht drauf gestoßen.

Vielen Dank für die schnelle Lösung.

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