vla-AutoLispR14=Add Text Sufix TP=0 pentru Cadastru

(Defun C:Q0 (/ ss count tnum entlst ntxt modent)
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss
    (progn (setq count 0
         tnum  (sslength ss)
       ) ;_ end of setq
       (while (< count tnum)
         (setq entlst (entget (ssname ss count))
           ntxt      (strcat "NC" (cdr (assoc 1 entlst)) "- TP=0")
           modent (subst (cons 1 ntxt) (assoc 1 entlst) entlst)
           count (1+ count)
         ) ;_ end of setq
         (entmod modent)
       )
    ) ;_ end of progn
    (prompt "\nNo entities selected to change!")
  ) ;_ end of if
  rr
)