---

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

---

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

---

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