---

Hi

Mein kleines LISP will leider nicht so wie ich es will.Das Problem ist dass wen ich keinen TEXT klicke oder einfach ins lehre dann bricht das LSIP ab.
Kann mir bitte jemand einen Tip geben. Ich bin leider noch
nicht so gewand mit dem programmieren. Danke

Code:

---

(defun c:ne (/ nr NACHTEXT STR obj )
  (setq nr (getint "\nStartnummer:"))
  (if nr
      ()
      (setq nr 0)
  )
  (setq nr (1- nr))

(setq NACHTEXT  (getstring "\nNachtext:"))
(while
  (setq obj (entget(car(entsel "\nTEXT wählen:"))))     
    (if(="TEXT"(cdr(assoc 0 obj)))
      (progn
        (itoa (setq nr (1+ nr)))
        (setq STR(strcat (itoa nr) " " NACHTEXT))
        (entmod (subst(cons 1 STR)(assoc 1 obj)obj))
      )
    (princ "Kein Text gewählt\n" )
  )
)
)

---

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

---

ungetestet hier reingeschrieben (kann also sein, dass noch ne Klammer ect.fehlt ):

(defun c:ne (/ nr NACHTEXT STR obj )
  (if(and(or(setq nr (getint "\nStartnummer:"))
            (setq nr 0)
        ) 
        (setq NACHTEXT  (getstring "\nNachtext:"))
      )
  (while (or(and(setq obj (car(entsel "\nTEXT wählen:")))
                (setq OBJ (entget OBJ))
                (="TEXT"(cdr(assoc 0 obj)))
              )
            (prompt "\nKein Text gewählt\n" )
          )
        (setq STR(strcat (itoa nr) " " NACHTEXT))
        (entmod (subst(cons 1 STR)(assoc 1 obj)obj))
        (setq nr (1+ nr))
    )
 
  )
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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