(princ "\nNeed to disable WinHEB in order to work with this program\n")
(defun c:TSN (/ s i e)
;;; Text String AutoNumber Created by Tharwat 04.03.2015
;;; Adapted to Hebrew Fonts (like miryl.shx and mirym.shx ...) by Igal Averbuh 2017

(if (setq i (getint "\nSpecify the text start number :"))
(while (and (princ "\n Pick a text :")
(setq s (ssget "_+.:S:E:L" '((0 . "TEXT,MTEXT"))))
)
(entupd
(cdr
(assoc
-1
(entmod
(subst
(cons
1
(strcat (if (< i 10)
(strcat (itoa i))
(itoa i)
)
"/ "
(cdr (assoc 1 (setq e (entget (ssname s 0)))))
)
)
(assoc 1 e)
e
)
)
)
)
)
(setq i (1+ i))
)
)
(princ)
)
(c:tsn)

Advertisements