Hi
Wenn Zeichnungen viele viewports haben und / oder reichlich Elemente haben
wird der Wechsel zwischen paperspace und modelspace zu einer Geduldsprobe
insbesondere beim Erstellen der letzten finalen Plotlayouts.
Ferner : innerhalb eines ungelockten Layouts (man hat auch Fremdzeichnunegn) bischen Mousewheel und
fumps - Layout vergeigt... (Wenn mans zu spaet bemerkt hilft auch ^Z nicht mehr)
Acc. eines Moderators amtierendes scriptkiddie (Stolz drauf :P): Da muss was her
Der Idee war das da was her muss was diese Verhalten "umdingselt..."
(Einige ACAD versionen haben den Bug das der Modelspace Paperspace switch nicht immer angezeigt wird)
Ich wollt ein nur rescue script um aus dem Modelspace innerhalb eines viewports herauszukommen...
Also wie ueblich ersteinmal der "rustikale" Ansatz
"Google dir einen" ... und mal probiere....
Beim probieren kamen einige wenige nachfolgende Zeilen bei raus,
- eigentlich nicht bemerkenswert (dacht ich )
nur: acad schaltet nun in ECHTZEIT um !
Viel Spass beim Ausprobieren
Ausprobieren:
Monster Zeichnung laden (5..X MB dwg mit 20+N Viewports )
[Ist klar bei so etwas nimmt man eine SICHERUNGSKOPIE - ich haft fuer nix !!!]
VBA editor starten (Extras Menue)
(VBA enabler muss ab acad 2010 installiert sein obs in 64bit tut = null Schimmer)
Code reinkopieren
In TOGGLE_SPACE irgendwo hin klicken + F5
oder das gleichnamige Makro in Extras aufrufen...
LG aus Finnland
P.S. Die Nummer klappt auch mit Layouts.
ACHTUNG: Wenn man in ein Layout schaltet sollte man unbedingt erst einmal in den Paperspace schalten bevor man ZOOMALL programmatisch aufruft
- Ob ein viewport gesperrt ist oder nicht interessiert das vba nicht...
Sub TOGGLE_SPACE()
If ThisDrawing.ActiveSpace = acModelSpace Then
Call topaperspace
Exit Sub
Else
Call tomodelspace
End If
End Sub
Sub tomodelspace()
ThisDrawing.ActiveSpace = acModelSpace
ThisDrawing.MSpace = True
End Sub
Sub topaperspace()
ThisDrawing.ActiveSpace = acPaperSpace
ThisDrawing.MSpace = False
End Sub
------------------
Wer es nicht versucht, hat schon verlorn
Und bei 3 Typos gibts den vierten gratis !
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP