| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: View in andere DWG (643 / mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 14. Apr. 2016 09:01 <-- editieren / zitieren --> Unities abgeben:
Servus, nachdem ich des öfteren Zeichnungen vergleichen muss und diese nicht immer laden will/kann hab ich mir das lsp geschrieben. Viewex schreibt den gewählten Punktkoordinaten in eine TXT Viewin holt ihn und zentriert auf diesen Punkt mit Höhe 50 Die Frage ist, wie kann ich die gleich die Koordinaten und Höhe des Modellbereiches abgreifen so das ich exakt den selben Ausschnitt sehe?
Code: (defun c:viewex () (setq file (open "C://TEMP//Koordinaten.txt" "w")) (setq POINT1 (getpoint "\nPunkt wählen: ")) (setq TEXT (strcat (rtos (car POINT1) 2 3) "," (rtos (cadr POINT1) 2 3))) (write-line TEXT file) )(defun c:viewin () (setq file (open "C://TEMP//Koordinaten.txt" "r")) (setq TEXT (read-line file)) (command "_zoom" "m" TEXT "50") )
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Tabllen (XLS,ODS) FDO nativ einbinden, FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF Fehler: FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 14. Apr. 2016 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
Hallo Bernd, nicht ausprobiert, aber mal so als Idee zum testen: Die Sysvars VIEWCTR und VIEWSIZE beinhalten den Mittelpunkt und die Höhe der aktuellen Ansicht, VIEWTWIST dann sicher noch den Drehwinkel. Diese sind aber READ-ONLY, du kannst sie sicher nicht direkt setzen. Aber eine Linie erzeugt von Mittelpunkt und 1/2 Höhe nach oben und unten und dann ein ZOOM auf dieses Objekt könnte des gewüschte Ergebnis liefern. Wie gesagt, nicht ausprobiert aber vorstellbar Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 14. Apr. 2016 11:03 <-- editieren / zitieren --> Unities abgeben:
danke.... hier der code ohne drehung
Code: (defun c:viewex () (setq file (open "C://TEMP//Koordinaten.txt" "w")) (setq CENTER (strcat (rtos (car (getvar "VIEWCTR")) 2 3) "," (rtos (cadr (getvar "VIEWCTR")) 2 3))) (setq HOEHE (getvar "VIEWSIZE")) (write-line CENTER file) (princ HOEHE file) (close file) )(defun c:viewin () (setq file (open "C://TEMP//Koordinaten.txt" "r")) (setq CENTER (read-line file)) (setq HOEHE (read-line file)) (command "_zoom" "m" CENTER HOEHE) )
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Tabllen (XLS,ODS) FDO nativ einbinden, FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF Fehler: FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|