---

Hallo

unten aufgefuehrt ein kleines lisp zur Koordinatenbemassung:

(defun C:XY (/ OSNAP PNT1 P1X P1Y P STDX STDY XCOORD YCOORD PTXT )
    (setvar "ORTHOMODE" 1)
    (setq OSNAP (getvar "OSMODE"))
    (command "setvar" "osmode" "96")   
    (prompt "NOTE!!! Coords. & leader drawn per current dimstyle; precision per UNITS... ")
    (setq PNT1 (getpoint
      "\nPick coordinate point: "))
    (setq P1X (car pnt1))
    (setq P1Y (cadr pnt1))
    (setq P (getvar "LUPREC"))
    (setq STDX (rtos P1X 2 P))
    (setq STDY (rtos P1Y 2 P))
    (setq XCOORD (strcat "E: " STDX ))
    (setq YCOORD (strcat "N: " STDY ))
    (setq PTXT (getpoint
      "\nPick text location: "))
    (command "LEADER" PNT1 PTXT "" XCOORD YCOORD "")
    (command "SETVAR" "osmode" OSNAP)
(princ)
)

nun moechte ich die Koordinaten (x,Y) in Metereinheiten umgerechnet haben, also Koordinate geteilt durch 1000. wie ist das moeglich?
zweite Anpassung: kann man den leader-Befehl erweitern, d.h. anstatt einem Punkt 2 oder 3 Punkte fuer den Leader bestimmen.

vielen Dank
Sero

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

---

.. auch wenn der Lerneffekt vermutlich gegen Null geht .. 

(defun C:XY (/ OLDSNAP OLDORTHO PNT1  XCOORD YCOORD ABBRUCH)   
  (setq OLDSNAP (getvar "OSMODE"))
  (setq OLDORTHO (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE"  1)
  (setvar "OSMODE" 96)   
  (prompt "NOTE!!! Coords. & leader drawn per current dimstyle; precision per UNITS... ")
  (initget 1)
  (if(setq PNT1 (getpoint  "\nPick coordinate point: "))
    (progn       
      (setq XCOORD (strcat "E: " (rtos (/ (car  PNT1) 1000.0) 2)) )
      (setq YCOORD (strcat "N: " (rtos (/ (cadr PNT1) 1000.0) 2)) )
      (command ".leader" PNT1)
      (while (not ABBRUCH)
        (princ "\nNächster Punkt <Ende>: ")
        (command pause)
        (if(equal PKT (getvar "LASTPOINT"))
          (setq ABBRUCH 'T)
          (setq PKT (getvar "LASTPOINT"))
        )
      )
      (command "" "_M" XCOORD YCOORD "")
    )
  ) 
  (setvar "OSMODE" OLDSNAP)
  (setvar "ORTHOMODE" OLDORTHO) 
  (princ)
)

------------------
  - Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

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

---

hast ja recht...

programm funktioniert super, alle erwartungen werden erfüllt

vielen dank

gruß aus glasgow
sero

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