Forum:Rund um AutoCAD
Thema:Koordinaten-Lips
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
sero

Beiträge: 224 / 0

Win 7 Prof., AutoCad 2018 voll

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

cadffm

Beiträge: 19417 / 1036

System: F1
und Google

Drücke mal F1 und schau die Systemvariable OSMODE an

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

spider_dd

Beiträge: 991 / 42

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

... oder setze vor die Zeile

(setvar "OSMODE" 96)  einfach ein  ;

Dann bleibt der Objektfang wie aktuell eingestellt.

Gruß
Thomas

sero

Beiträge: 224 / 0

Win 7 Prof., AutoCad 2018 voll

Vielen Dank, es funktioniert.

Grüße,
Sero