---

Hallo!
Beschriften von Punkten/Elemente mit XY-Koordinaten, also eine Anzahl von Punkten in einem Rutsch mit Koordinaten Beschriften.
Z.B.
X=5543521.6973
Y=3501303.0228

Wer kann mir Helfen?

Erik
PS: AutoCAD Map 2000

------------------
Erik

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

---

Hallo Erik,

Das könnte Dir weiterhelfen:

(defun c:pbs ()
  (setq tgr (getreal "\nTextgrösse: "))
  (setq as (ssget '((0 . "POINT"))))
  (setq zaehl 0)
  (setq en (ssname as zaehl))
  (while en
    (setq pkt (cdr (assoc 10 (entget en))))
    (setq xw (nth 0 pkt))
    (setq yw (nth 1 pkt))
    (setq xtw (strcat "X: " (rtos xw 2 4)))
    (setq ytw (strcat "Y: " (rtos yw 2 4)))
    (entmake
      (list '(0 . "TEXT")
    (cons 10 (list (+ xw 2) (+ yw (* 0.6 tgr) 0.0)))
    (cons 11 (list (+ xw 2) (+ yw 1.5) 0.0))
    (cons 40 tgr)
    (cons 1 xtw)
      )
    )
    (entmake
      (list '(0 . "TEXT")
    (cons 10 (list (+ xw 2) (- yw (* 0.6 tgr)) 0.0))
    (cons 11 (list (+ xw 2) (- yw 1.5) 0.0))
    (cons 40 tgr)
    (cons 1 ytw)
      )
    )
    (setq zaehl (1+ zaehl))
    (setq en (ssname as zaehl))
  )
)

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

gruß
stephan

[Diese Nachricht wurde von StephanJP am 02. August 2002 editiert.]

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