---

Hallo,

ich benutze folgendes Lisp zur Koordinatenbemaßung.

(defun C:enm (/ OLDSNAP OLDORTHO PNT1  XCOORD YCOORD Cancel)   
  (setq OLDSNAP (getvar "OSMODE"))
  (setq OLDORTHO (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE"  1)
  (setvar "OSMODE" 96)   
  (prompt "NOTE!!! Eastings & Northings (scaled in m!!!) Coords. & leader drawn per current dimstyle; precision per UNITS... ")
  (initget 1)
  (if(setq PNT1 (getpoint  "\nPick coordinate point: "))
    (progn       
      (setq XCOORD (strcat (rtos (/ (car  PNT1) 1.0) 2 2)"") )
      (setq YCOORD (strcat (rtos (/ (cadr PNT1) 1.0) 2 2)"") )
      (command ".leader" PNT1)
      (while (not Cancel)
        (princ "\nnext Point <End>: ")
        (command pause)
        (if(equal PKT (getvar "LASTPOINT"))
          (setq Cancel 'T)
          (setq PKT (getvar "LASTPOINT"))
        )
      )
      (command "" "_M" XCOORD YCOORD "")
    )
  ) 
  (setvar "OSMODE" OLDSNAP)
  (setvar "ORTHOMODE" OLDORTHO) 
  (princ)
)

Eine Sache stört aber: beim Wiederholen des Befehls stellt sich der Objektfang imer wieder auf Basispunkt und fängt eigenmächtig diesen Punkt. Bei Bemaßung einer X-Ref sehr nervig. Ich muss dann in jedem aktuellem Befehl den Basispunkt deaktivieren. Kann man das irgenwie umstellen bzw. abstellen.
Bin der Lisp-Sprache leider nicht so mächtig. Hoffe auf nette Helfer.

Dank vorab und Grüße
Sero

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

---

Drücke mal F1 und schau die Systemvariable OSMODE an

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

... oder setze vor die Zeile

(setvar "OSMODE" 96)  einfach ein  ;

Dann bleibt der Objektfang wie aktuell eingestellt.

Gruß
Thomas

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

---

Vielen Dank, es funktioniert.

Grüße,
Sero

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