---

Hallo,

wie bereits im Thread http://ww3.cad.de/foren/ubb/Forum54/HTML/001850.shtml#000000
behandelt, möchte ich eine Vielzahl von Punkten automatisch in AutoCAD 2006 beschriften. Bei mir soll allerdings nur die Z-Koordinate neben den Punkt geschrieben werden. Hab versucht, die aufgeführte LISP zu ändern, bisher ohne Erfolg. Habe leider bisher keine Erfahrung.
Was genau bedeutet der Abschnitt

(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)
      )
    )

Kann mir jemand helfen?

Gruß Arne

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

---

die geposteten Abschnitte ertellen einen Text in der Zeichnung....
..wenn du dich in Lisp einarbeiten willst, hilft dir Mapcars Tutorial sicher weiter .. und hiereine DXF-Gruppencodereferenz

ansonsten : (ungetestet zusammengeschrieben)

Code:

---

(defun c:zbs ()
  (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 zw (nth 2 pkt))
    (setq ztw (strcat "z: " (rtos zw 2 4)))
    (entmake
      (list '(0 . "TEXT")
    (cons 10 (list (+ zw 2) (+ zw (* 0.6 tgr) 0.0)))
    (cons 11 (list (+ zw 2) (+ zw 1.5) 0.0))
    (cons 40 tgr)
    (cons 1 ztw)
      )
    )
    (setq zaehl (1+ zaehl))
    (setq en (ssname as zaehl))
  )
)

---

------------------
            - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo CADmium,

erst einmal danke für die Antwort. Ich werde mir die angegebenen Seiten mal durchschauen. Leider funktioniert deine LISP bei mir nicht 
Hatte es so ähnlich auch versucht, aber wie gesagt, klappt nicht. Es werden keine Koordinaten geschrieben...

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

---

Hi Arne,

is nich von mir - geht aber trotzdem, oder gerade deshalb...
seh gerade is von Udo - also units an ihn

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;; www.cad-huebner.de  erstellt von Udo Hübner                                    ;;
;; Achtung folgende Verbesserungen müssen geprüft bzw. eingearbeitet werden      ;;
;; Prüfung auf locked Layers, und evt. Behandlung von Gruppen wie text + wipeout  ;;
;; 15.09.98 ansonsten von 1.0 auf 1.1 nur windows umlaute eingesetzt.            ;;
;; Update 01.03.2004 - nur Kommentare eingepflegt                                ;;
;; Die Textbeschriftung erfolgt rechts oberhalb vom Punkt, der Versatz beträgt    ;;
;; 75% der Texthöhe                                                              ;;
;; Es ist keine Error-Routine eingebaut.                                          ;;
;; das Abschalten des permanenten Objektfangs zu Laufzeit wäre sinnvoll,          ;;
;; der neugesetzte Text nicht auf ein naheliegendes Objekt einrastet              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

(DEFUN C:Z2TXT ( / ANZAW1 ANZH AW1 ENTINSERT EPKT I TEMP Z)
  (PROMPT
    (STRCAT "\nZ2TXT.lsp - Objekte mit Höhentext/Z-Koordinate) versehen - V1.2  1999-2004"
    "\n(c) Ing.- Büro Hübner, info@CAD-Huebner.de"
    "\nTEXTSIZE = " (RTOS (GETVAR "TEXTSIZE"))
    ) ;_ Ende von STRCAT
  ) ;_ Ende von PROMPT
  (SETQ AW1    (SSGET) ; Objekte wählen
Anzaw1 (SSLENGTH AW1) ; Anzahl der Objekte in AW1
AnzH  0 ; Anzahl der geänderten Elemente
I      0 ; Zähler
  ) ;_ Ende von SETQ
  (INITGET 6)

  (Prompt "\nAugenblick, ich ich prüfe Objekte...")
  (while (> Anzaw1 0)
    (setq temp     (ssname AW1 (setq AnzAw1 (1- AnzAW1)))
  entinsert (entget temp)
  epkt     (cdr (assoc 10 entinsert))
  z     (RTOS (NTH 2 epkt) 2 2)

    ) ;_ Ende von setq
    (PRINC ".")
    (COMMAND "_MTEXT"
    (LIST (+ (* 0.75 (GETVAR "TEXTSIZE")) (NTH 0 epkt))
  (+ (* 0.75 (GETVAR "TEXTSIZE")) (NTH 1 epkt))
  0.0
    ) ;_ Ende von LIST
    "_justif"
    "_ML"  ; Positionierung Mitte zentriert
    "_WID"
    10.0 ; konstante Textfeldbreite - ist einfacher zu picken
    z
    ""
    ) ;_ Ende von COMMAND

  ) ; ende while
  (princ " Objekte beschriftet. ")
  (princ "Z2TXT beendet.")
  (PRIN1)
) ; ende defun
;--------------------------------------------------------------------
(PROMPT "\nZ2TXT.lsp geladen. Start mit Z2TXT")
(PRIN1)

------------------
mit CADzerischen Grüßen
Matthias 

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

---

Danke,

genau so wollte ich das haben! 

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