---

Hallo an Alle im Forum!
Ich hab ein Problem und mit der Suche leider nix passendes gefunden.

In meiner Zeichnung existiert ein Block, der 2158 mal mit unterschiedlichem Z-Wert vorhanden ist. Nun soll der Z-Wert an den Block geschrieben werden.
Ich hab leider nur ein Tool, mit dem ich das Block für Block machen kann. Aber bei 2158 Blöcken, ist das ziemlich schwierig.
Kann mir jemand helfen?

------------------
Grüße Andrea

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

---

Suche nochmal im Forum (evtl auch im LISP forum)!

da gibt es etwas wo du dann schlußendlich zu http://www.cad-od.de    kommst...

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

---

Das hat mir jetzt überhaupt nicht weiter geholfen. Ich hab bereits überall gesucht. Oft sind die Beiträge ja auch nicht so benannt, dass man gleich auf den Inhalt schließen kann.
Die Adresse ist auch nicht hilfreich.

Ich steh unter Zeitdruck und kann nicht stundenlang mit der Suche nach einem passenden Beitrag verbringen.
Sollte jemand mir helfen können, dann wäre ich sehr dankbar!!!

------------------
Grüße Andrea

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

---

Hi,

jaja - der Zeitdruck...

Kannst du uns mal einen Block posten, damit wir wissen wie er aussieht ? Und in welcher Form möchtest du den Z-Wert angeschrieben haben ? Als Text im Block ergänzt ? Als Attribut ? Als verstecktes Attribut ? Oder einfach nur als Text neben den Block ?

------------------
Grüsse

Thomas

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

---

block.zip

Der Z-Wert soll einfach nur neben dem Kreuzchen stehen, als Höhenangabe mit zwei Nachkommastellen.

------------------
Grüße Andrea

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

---

Sieh mal hier http://ww3.cad.de/foren/ubb/Forum54/HTML/004008.shtml#000003 - einfach in dem LSP File die Zeile mit

Code:

---

(setq as (ssget '((0 . "POINT"))))

---

abändern auf

Code:

---

(setq as (ssget '((0 . "INSERT"))))

---

(solltest du mehrere verschiedene Blöcke haben, dann besser:

Code:

---

(setq as (ssget '((2 . "SYM__101"))))

---

Dann noch die Texthöhe angeben und du bekommst alle Werte angeschrieben (also X/Y/Z).

Das Tool ist sicher noch ausbaufähig aber vorerstmal BTN.

------------------
Grüsse

Thomas

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

---

Danke für die Hilfe. Das Tool ist schon ganz gut. Leider schreibt es mit alle Werte. Ich benötige aber NUR den Z-Wert und von diesem nur die Zahl (nicht "Z:").
Ich hab versucht die entsprechenden Zeilen zu löschen, bin aber wohl doch zu unwissend was LSP angeht. Hat jedenfalls nicht geklappt.

------------------
Grüße Andrea

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

---

Ich hab's jetzt mal "ausgeklammert":

Code:

---

;
; Beschriftet Punkte mit X-,Y- und (optional) Z-Koordinate
;
(defun c bs ()
(setq tgr (getreal "\nTextgrösse: "))
(setq nks (getint (strcat "\nWieviel Nachkommastellen <" (if nks (itoa nks)(itoa (setq nks 2))) ">: ")))
  (if nks (setq nks nks)(setq nks 2))
  (setq zwert nil temp nil)
  (initget "Ja Nein")
  (setq temp (getkword "\nauch die Höhe anschreiben Ja/<N>ein: "))
  (if (wcmatch temp "J*")(setq zwert T))
(setq as (ssget '((0 . "INSERT"))))
(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 zw (nth 2 pkt))
  (setq xtw (strcat "X: " (rtos xw 2 nks)))
  (setq ytw (strcat "Y: " (rtos yw 2 nks)))
  (setq ztw (strcat (rtos zw 2 nks)))
;  (entmake
;  (list '(0 . "TEXT")
;  (cons 10 (list (+ xw (* 0.8 tgr)) (+ yw (* 0.6 tgr)) 0.0))
;  (cons 11 (list (+ xw (* 0.8 tgr)) (+ yw (* 0.6 tgr)) 0.0))
;  (cons 40 tgr)
;  (cons 1 xtw)
;  )
;  )
;  (entmake
;  (list '(0 . "TEXT")
;  (cons 10 (list (+ xw (* 0.8 tgr)) (- yw (* 1.2 tgr)) 0.0))
;  (cons 11 (list (+ xw (* 0.8 tgr)) (- yw (* 1.2 tgr)) 0.0))
;  (cons 40 tgr)
;  (cons 1 ytw)
;  )
;  )
  (if zwert
    (progn
  (entmake
  (list '(0 . "TEXT")
  (cons 10 (list (+ xw (* 0.8 tgr)) (- yw (* 1.2 tgr) (* 1.8 tgr)) 0.0))
  (cons 11 (list (+ xw (* 0.8 tgr)) (- yw (* 1.2 tgr) (* 1.8 tgr)) 0.0))
  (cons 40 tgr)
  (cons 1 ztw)
  )
  )
  )
    )
  (setq zaehl (1+ zaehl))
  (setq en (ssname as zaehl))
)
)
(prompt "\nStarten mit 'pbs'  ")

---

Jetzt werden nur noch die Z-Werte ohne Z: beschriftet, der Progrmmablauf ist aber der selbe (also eine echte quick & dirty-Lösung)

------------------
Grüsse

Thomas

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

---

Ich bin begeistert. Vielen vielen Dank!

------------------
Grüße Andrea

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

---

Ansonsten geht auch diese Freeware-Lisp-Routine http://www.cad-huebner.de/lisp.htm#Z2TXT

Routine mit APPLOAD laden, Systemvariable DIMZIN auf 0 setzen,
TEXSIZE (Schrifthöhe) auf den gewünschten wert stellen
Z2TXT eingeben und alle Blockrefenzen wählen. Fertig. Die Genauigkeit der Höhenbeschriftung ist auf 2 Nachkommastellen voreingestellt (hardcodiert im Programm).

------------------
Mit freundlichem Gruß

Udo Hübner

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