---

hallo an alle,

ich habe in meiner acad-zeichnung einen block dem unter anderem eine z-wert zugeordnet ist. nun meine frage:
kann man diesen z-wert automatisch dranschreiben lassen?
danke euch schon vorab für eure hilfe! 

lg

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

---

was heisst zugeordnet?

Hat der Block einen "Position z" Wert hilft dir folgendes lisp. Die Texthöhe kannst du in der lsp direkt ändern. (hier 0.5)

(defun c:InsZWert ( / ins zw pt inspt)
  (princ "\nBlock wählen: " )
  (setq ins (entsel))
  (if ins
    (progn
      (setq ins(car ins)
    zw (caddr(setq inspt (cdr(assoc 10 (entget ins)))))
    )
      (initget 1)
      (setq pt (getpoint inspt "\nTexteinfügepunkt: "))
      ;(mk:text LAYER STIL STARTPUNKT DREHW HÖHE BREITE TEXT
      (mk:text "0" "Standard" pt 0.0 0.5 1.0 (rtos zw 2 2))
      )
    )
  (princ)
  )
(defun mk:text (layer stil ipt w ho br wert /)
  (entmake (list
    '(0 . "TEXT")
    '(100 . "AcDbEntity")
    '(67 . 0)
    '(410 . "Model")
    '(8 . "0")
    '(100 . "AcDbText")
    (cons 10 ipt)
    (cons 40 ho)
    (cons 1 wert)
    (cons 50 w)
    (cons 41 br)
    '(51 . 0.0)
    (cons 7 stil)
    '(71 . 0)
    '(72 . 0)
    '(11 0.0 0.0 0.0)
    '(210 0.0 0.0 1.0)
    '(100 . "AcDbText")
    '(73 . 0)
    )
  )
  )

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

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

---

High,

hat der Block nur ein Attribut, und soll da einfach nur der Z-Wert eingetragen werden dann funktioniert das (bei 1ZE=1mm und Höhen in m):

Code:

---

(command "_-insert" BLOCKNAME (setq TESTPOINT (getpoint "\nPunkt wählen: ")) SKALIERFAKTOR "" "" (rtos (/ (caddr TESTPOINT) 1000.000) 2 3))

---

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Hallo,

die lisp ist super und funktioniert auch.
leider habe ich das problem, dass ich ca. 12.000 punkte beschriften muss. und wenn
ich alle einzeln anklicken muss, ist das ziehmlich aufwendig.
gibt es eine Möglichkeit, alle Punkte "automatische" beschriften zu lassen?

danke für Hilfe.

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

---

habe eine lsp von http://www.cad-huebner.de/lisp.htm#Z2TXT  im forum gefunden gefunden.
danke nochmal!

(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

[Diese Nachricht wurde von Kathrin IKD am 22. Apr. 2008 editiert.]

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