---

Hallo,

hat jemand eine Ahnung ob es in ACAD2000 eine Möglichkeit gibt einen Punkt anzuklicken und ACAD schreibt dann die X/Y/Z-Koordinaten daneben?

Wir müssen hier im Büro öfter mal Gauß-Krüger-Koordinaten in die Pläne einfügen und jedesmal unten links die koordinaten aufschreiben und dann als Text eingeben is doch a bisserl aufwendig.

Danke.

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

---

Guten Tag
versuch es doch mal mit "bemordinate" oder über Bemaßungen-Koordinatenbemaßung.
viel Glück

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

---

Hallo Dynasty,

folgend ein paar Lispzeilen, die Deine Aufgabenstellung erfüllen.
Man müßte natürlich noch die TextHöhe/ Stil und den Abstand zum geklickten Punkt auf Deine speziellen Bedürfnisse anpassen.
Soll eine Verbindungslinie gezeichnet werden, usw.

Schau es dir an, und bei Fragen ...

Grüße Holger

(defun c ktkoo (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline)
  ;;;Variable Werte
  (setq txtstil "Standard"
txtlayr "0"
txthoeh 2.5
abstX 2.5
abstY 2.5
linlayr "0"
machline nil; T oder nil -- T->Linie wird gezeichnet
)
  ;;;
  (while (setq pkt (getpoint "\nPunkt:"))
    (entmake (list
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      (cons 8 txtlayr)
      '(100 . "AcDbText")
      (cons 10 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
      (cons 40 txthoeh)
      (cons 1 (strcat (rtos (car pkt) 2 2) "-" (rtos (cadr pkt) 2 2) "-" (rtos (caddr pkt) 2 2)))
      '(50 . 0.0)
      '(41 . 1.0)
      '(51 . 0.0)
      (cons 7 txtstil)
      '(71 . 0)
      '(72 . 0)
      '(11 0.0 0.0 0.0)
      '(210 0.0 0.0 1.0)
      '(100 . "AcDbText")
      '(73 . 0)
      )
    )
    (if machline
      (entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 linlayr)
'(100 . "AcDbLine")
(cons 10 pkt)
(cons 11 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
'(210 0.0 0.0 1.0)
)
      )
      )
    )
  )

[Diese Nachricht wurde von Brischke am 23. August 2002 editiert.]

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

---

Hallo Holger,

was mache ich falsch:
um die .lsp zu starten, habe ich sie über appload geladen und dann in die Befehlszeile geschrieben: (ktkoo)
Zuvor hatte ich noch das Smilie durch einen Doppelpunkt ersetzt.

Besten Dank
Techniker

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

---

Hallo
ersetze das Ätsch-Smilie durch Doppelpunkt und ein p
dann heißt es auch pktkoo

------------------

gruß
thomas

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

---

Hallo Thomas,

danke für die Hilfe!

Schöne Grüße
Techniker

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

---

Hallo,
wie muß ich das Lisp änden um die Texte untereinander geschrieben zu bekommen? Also in der ersten Zeile die x-Koordinate und in der zweiten Zeile die y-Koordinate?

Grüße

Noivet

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

---

Hallo Noivet,

Holger's Zeilen nochmal ein bißchen erweitert. Du kannst den Abstand der Zeilen über einen Faktor bestimmen:

Code:

---

(defun c ktkoo (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline n txtabstfaktor)
  ;;;Variable Werte
  (setq txtstil "Standard"
txtlayr "0"
txthoeh 2.5
txtabstfaktor 0.2
abstX 2.5
abstY 2.5
linlayr "0"
machline T; T oder nil -- T->Linie wird gezeichnet
)
  ;;;
 
  (while (setq pkt (getpoint "\nPunkt:"))
    (setq n -1)
    (mapcar '(lambda(A)
      (setq n (+ n 1))
    (entmake (list
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      (cons 8 txtlayr)
      '(100 . "AcDbText")
      (cons 10 (mapcar '-(list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt))
      (list 0.0 (* n (+ txthoeh (* txthoeh txtabstfaktor))) 0.0)))
      (cons 40 txthoeh)
      (cons 1 (rtos A 2 2))
      '(50 . 0.0)
      '(41 . 1.0)
      '(51 . 0.0)
      (cons 7 txtstil)
      '(71 . 0)
      '(72 . 0)
      '(11 0.0 0.0 0.0)
      '(210 0.0 0.0 1.0)
      '(100 . "AcDbText")
      '(73 . 0)
      )
    )
    )  (list (car pkt)(cadr pkt)(caddr pkt)))
    (if machline
      (entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 linlayr)
'(100 . "AcDbLine")
(cons 10 pkt)
(cons 11 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
'(210 0.0 0.0 1.0)
)
      )
      )
    )
  )

---

schönes Wochenende

------------------
viele Grüße

Jörn

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

---

Danke Jörn, so geht es.
Auch dir ein schönes Wochenende.

Grüße

Noivet

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