Help will be appreciated
I am trying to code a lisp to add numbers in an attribute
(defun c:test () (vl-load-com)
(if (not NumStrt) (setq NumStrt "1"))
(setq oldStart NumStrt)
(setq NumStrt (getint "\nSpecify start number < 1 >: "))
(setq NumMlt (getint "\nSpecify Multiable number < 1 >: "))
(while
(if (and
(setq att (car (nentsel "\nSelect attribute OR Text: ")))
(setq el (entget att))
)
(progn
(vla-put-TextString (vlax-ename->vla-object el) NumStrt)
(setq NumStrt (+ NumStrt NumMlt))
)
))
)