| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Hannover Messe 2026 - Diese Lösungen prägen die Zukunft der Industrie: PNY präsentiert Anwendungen für KI, Edge-Computing und das Metaversum, eine Pressemitteilung
|
|
Autor
|
Thema: Zoom Model Bereich anpassen (1824 / mal gelesen)
|
cadplayer Ehrenmitglied CADniker
    
 Beiträge: 1838 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 22. Feb. 2018 15:40 <-- editieren / zitieren --> Unities abgeben:         
Hallo! Bin nicht richtig fündig geworden. Ich möchte die Zoom-bereiche im Model bereich unterschiedliche dwg-zeichnungen anpassen (angleichen). Welche Variablen wären relevant Wenn ich in der Originaldatei "center" mit (getvar "VIEWCTR") und die Skalierung mit (getvar "VIEWSIZE") auslese Dann müsste ich doch anschliessend wie folgt auf den gleichen Ausschnitt zoomen oder ? (command-s "_zoom" "_c" "center" ... für den centrumpunkt (command-s "_zoom" "_s" "viewsize" ... für die Skalierung Es stimmt aber nur ungefähr überein - welche Variable könnte noch mitwirken ?
------------------ Gruss Dirk
[Diese Nachricht wurde von cadplayer am 22. Feb. 2018 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung und AutoLISPler
    
 Beiträge: 1781 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 22. Feb. 2018 17:41 <-- editieren / zitieren --> Unities abgeben:          Nur für cadplayer
Hallo Dirk, ganz sicher bin ich mir nicht, ob ich Dich verstanden haben. Ich habe Dir mal 2 Funktionen geschrieben, die vielleicht ja für Deine Zwecke funktionieren. ZoomIni = es wird die Koordinate des Bildschirmmittelpunktes und der Inhalt der Variablen "VIEWSIZE" ins BloackBoard geschrieben (damit die Inhalte auch in weiteren geöffneten Zeichnungen verfügbar sind). Wenn Du jetzt die Zeichnung wechselst, dann kannst Du mit der Funktion "ZoomDo" den Fensterbereich genauso einstellen, wie es in der "Ini"-Zeichnung der Fall ist. Code:
(defun c:ZoomIni ( / A) (vl-bb-set 'mp (mapcar '(lambda(A)(/ A 2.0)) (mapcar '+ (list (- (car (getvar "viewctr")) (/ (* (getvar "viewsize") (/ (car (getvar "screensize")) (cadr (getvar "screensize")))) 2)) (- (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))0.0) (list (+ (car (getvar "viewctr")) (/ (* (getvar "viewsize") (/ (car (getvar "screensize")) (cadr (getvar "screensize")))) 2)) (+ (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2)) 0)))) (vl-bb-set 'vs (getvar "VIEWSIZE")))(defun c:ZoomDo ( / MP1 VS1) (if (and (setq mp1 (vl-bb-ref 'mp)) (setq vs1 (vl-bb-ref 'vs))) (vla-zoomcenter (vlax-get-acad-object) (vlax-3d-point mp1) vs1) (alert "Es muss erst die Funktion \"ZoomIni\" ausgeführt werden.") ))
------------------ viele Grüße Jörn http://www.bosse-engineering.com Liniensignaturen Youtube Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
    
 Beiträge: 1838 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 22. Feb. 2018 19:18 <-- editieren / zitieren --> Unities abgeben:         
Hallo Jörn! Danke erstmal, vla-zoomcenter muss ich mir nochmal genauer anschauen - so ganz hab ich´s noch nicht geschnallt inwieweit viewsize und screensize zusammenhängen. Das sollte aber kein Problem sein. Hier mal kurz eine Vorführung, das Program speichert die Zoom-eigenschaften einer Zeichnung und kann von einer anderen Zeichnung wiederum gelesen werden.
------------------ Gruss Dirk Blog Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung und AutoLISPler
    
 Beiträge: 1781 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 22. Feb. 2018 19:25 <-- editieren / zitieren --> Unities abgeben:          Nur für cadplayer
|