---

hallo,

hab diese lsp gefunden    ( funktioniert besser als number.lsp) und würde aber gerne den layer einstellen und auch die texthöhe 

(Defun C:ZAHLEN ()
(START)
(prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...")
(Setq A (Getint "\nStartnummer: "))
  (Setq E 1)
  (Setq I 0)
(Initget 1 "A")
(Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch")))
  (While(/= P1T "A")
    (Setq F (Itoa A))
    (Command "Text" "z" P1 "" I F)
    (Setq A (+ A E))
    (Initget 1 "A")
    (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
  )
(end)
(Princ)
)
(defun *error* (em)
(end)
(princ "\nAbbruch : ")
(princ em)
)
(defun end()
(if clay
    (progn
        (command "LAYER" "SE" clay "")
        (setvar "BLIPMODE" bmod)
        (setvar "CMDECHO" 1)
        (setvar "MENUECHO" mech)
        (setvar "OSMODE" mosm)
        (setvar "SNAPMODE" msna)
        (setvar "ORTHOMODE" mort)
      )
)
(princ)
)
(defun start()
(setq bmod (getvar "BLIPMODE")
      mosm (getvar "OSMODE")
      msna (getvar "SNAPMODE")
      mort (getvar "ORTHOMODE")
      clay (getvar "CLAYER")
      mech (getvar "MENUECHO")
)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(setvar "MENUECHO" 3)
(setvar "OSMODE" 0)
(setvar "SNAPMODE" 0)
(setvar "ORTHOMODE" 0)
(command "LAYER" "M" "Text" "Fa" "1" "" "")
)

vielleicht kann mir jemand weiterhelfen 

danke
grüße wokijed

ps.: noch eine frage: wie kann ich .lsp in acad lt unterbringen? 

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

---

Hallo wokijed,
ich habe mal ein bißchen geändert, und wegen ACAD-Lt uns LISP, suche mal nach dem "Extender"

Code:

---

(Defun C:ZAHLEN ( /  temp)
 
(if (or (not (setq wunschlayer
    (getstring
      (strcat
"Wunschlayer:<"
(if
  (and wunschlayer (/= wunschlayer ""))
    wunschlayer
    "0")
">"))))
(= wunschlayer ""))
  (setq wunschlayer "0"))
(if (not (setq wunschhoehe
(getreal (strcat "Wunschhöhe:<"
  (if wunschhoehe
    (rtos wunschhoehe 2 1)
    "2.5")
  ">"))))
  (setq wunschhoehe 2.5))

(START)
(prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...")
(Setq A (Getint "\nStartnummer: "))
  (Setq E 1)
  (Setq I 0)
(Initget 1 "A")
(Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch")))
  (While(/= P1T "A")
    (Setq F (Itoa A))
    (Command "Text" "z" P1 "" I F)
    (entmod (subst (cons 8 wunschlayer)
  (assoc 8
  (setq temp (subst (cons 40 wunschhoehe)
    (assoc 40 (entget (entlast)))
    (entget (entlast)))))
  temp))
    (Setq A (+ A E))
    (Initget 1 "A")
    (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
  )
(end)
(Princ)
)

---

------------------
viele Grüße

Jörn

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

---

Hallo ich habe die gleiche Datei, hätte dazu für folgende Frage und zwar:

kann da noch eine Abfrage sein außer der nummer wo ich einen beliebigen Text zB "positionsnummer" eingeben kann, welcher dann immer automatisch vor der Zahl ist!

vielen dank für eure hilfe

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

---

Hallo babs991,
nur auf Verdacht:

probier mal die Zeile
    (Setq F (Itoa A))
gegen
    (Setq F (strcat"Pos.-nr."(Itoa A)))
auszutauschen. Vielleicht kommst Du damit ja schon weiter.

------------------
viele Grüße

Jörn

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

---

Hallo,

ja super danke, klappt wunderbar!!!
vielen vielen dank

lg barbara

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