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