---

Hallo zusammen,

Ich habe die letzten Tage ein Makro erstellt um unsere Blöcke automatisch auf der 2D-Zeichnung zu platzieren. Dazu habe ich nun noch eine abschliessende Frage. Wenn ich beim ausführen meines Makros zufällig eine Ansicht selektiert habe, fügt mir mein Makro die Blöcke auf jene Ansicht ein. Das möchte ich verhindern und wäre froh wenn mir jemand sagen kann wie ich das momentan aktive Zeichnungsblatt aktiviere und nicht eine gerade zufällig angewählte Ansicht.
Ich bin der Meinung das die Lösung in folgenden Codezeilen steht:

Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set SelMgr = Part.SelectionManager
    swApp.ActiveDoc.ActiveView.FrameState = 1

Leider habe ich bis anhin mit meinen Änderungsversuchen aber keinen Erfolg gehabt.

------------------
Bis demnächst!

Hans Meiser

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

---

Hallo,

probiers mal damit retval = DrawingDoc.ActivateSheet( SheetName ) .

------------------
Ciao Jana

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

---

das Blatt ist die erste Ansicht !
Du must also die erste Ansicht holen und anschließend aktivieren.

folgende Methoden sollten dir dabei helfen:

Set swView = swDraw.GetFirstView
bRet = swDraw.ActivateView(swView.GetName2)

------------------
mfg uc

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

---

Danke für die Hilfe,

Habe das Problem mittlerweilen im soweit das wirklich das Zeichnungsblatt aktiviert wird. Allerdings habe ich nun den Effekt das mein Makro nur funktioniert wenn ich Blattname "Blatt1" geöffnet habe. Wie kann ich den Blattnamen der aktiven Zeichnung rauslesen um ihn dann anstelle des Strings "Blatt1" wieder zurück zu schreiben.

Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set SelMgr = Part.SelectionManager
    boolstatus = Part.ActivateSheet("Blatt1")

Sorry, nochmals bin neu auf dem Gebiet und hoffe euch künftig immer weniger belästigen zu müssen.

------------------
Bis demnächst!

Hans Meiser

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

---

Hallo Hans,

anbei der Code:

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager

Dim Sheet    As SldWorks.Sheet
Dim SheetName As Variant

Set Sheet = Part.GetCurrentSheet
SheetName = Sheet.GetName

boolstatus = Part.ActivateSheet(SheetName)

Auch zu finden in der API-Hilfe, sind oftmals ganz gute Beispiele dabei. Man muß dann "nur" noch basteln  .

------------------
Ciao Jana

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

---

Danke,

probiere das gleich aus.

------------------
Bis demnächst!

Hans Meiser

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