---

hallo, habe mir eine LSP zusammengestellt mit welcher ich aus der ALK
die Flurstücksnummern besser in meinem Plan übernehmen kann.
Leider scheiter ich immer wieder daran das zwar der Textstil angenommen wird aber eben die Texthöhe nicht. Lange Rede kurzer sinn, habe eine LSP gefunden welche ,mir eine Hilfe wäre wenn diese dann ginge.
Vielleicht Kann mir jemand es anpassen.

(defun c:texth÷stil ( / a n p na)
;;  (setq a (ssget "X" '( (0 . "Text") ) )  n 0) 
    (setq AUSWAHL(ssget '((0 . "TEXT"))))  ;; wenn geschaltet dann ->  Fehlerhafte SSGET-Liste
      (repeat (sslength a)
      (setq p (ssname a n))
        (setq na (cdr (assoc 7 (entget p))))     
        (command "õndern" p "" "" ""  na "" "")
          (setq n (1+ n))
)
(princ)
)
Die Lsp ist mit Vorsicht anzuwenden da diese so wie sie ist, alles aber wirklich alles, auf den vorgegebene Schriftstil mit der dazugehörigen Höhe setzt. Würden eben nun die LSP mit eventueller auswahl über Layer oder Textauswahl anwenden.

Anbei noch meine LSP für die übernahme der Flurstücknummern mit Bruchstrich. Denn der Bruchstrich ist ja leider eine Linie in der ALK.
Ich hoffe es rollen sich bei Euch nicht die Fingernägel wenn ihr das seht, aber es läuft.

;; lsp für Textanpassung aus ALK  - Flurnummer mit Bruchstrich -
;; Bruchstrich wird mit "/" ersetzt und Text mit 2 Flurnummervariable
;; zusammengefügt, dann den Mtext auf einzeilig anpassen - Bsp.: Flurnummer 323/6
;; Bauvermesser 11/2014
(defun c:Flurnum ( / AUSWAHL OBJEKTDATEN INDEX)
;; Schriftstil setzen
    (command "_.-style" "1_0_250-Flur-fett30grad" "lsans.ttf" 1.0  1.0  30  "_N"  "_N")
    (setvar "textstyle" "1_0_250-Flur-fett30grad")
    (setvar "textsize" 1.0)

(prompt "\n1.TEXT wählen  -> dann ENTER ")
    (if(setq AUSWAHL(ssget '((0 . "TEXT"))))
      (progn
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))
        (entmod(subst (cons 1 (strcat (cdr(assoc 1 OBJEKTDATEN)) " /"))  ;; zeichen wird angefügt
                      (assoc 1 OBJEKTDATEN)
                      OBJEKTDATEN
)))))
(princ "_")
(prompt "\nProgramm Text>-<zusammnenfügen")
(prompt "\n_" )
(command "TXT2MTXT")  ;; Express Tools command
(prompt "\n_" )
(prompt "\nJETZT TEXT wählen welcher zusammen gehört")
(prompt "\n_" )
(princ)
)

------------------
Gruß vom Bauvermesser;

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

---

ja ich sehe es ja ein, es ist kinderleicht,
problem gelöst

------------------
Gruß vom Bauvermesser;

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