Вопрос по динамическим блокам

Создал динамический блок и теперь нужно сделать так чтобы при вставки он автоматически нумеровался от начально заданного значения. Может кто подскажет как это сделать?

 

Это делаеться через лисп, для блоков с 1м текстовым атрибутом такой:

(defun C:KAN ( / ass ats cmd pca dn n)
(setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
cmd (getvar "CMDECHO") pca (getvar "PICKAUTO") n 0);setq
(setvar "CMDECHO" 0)
(initget "Number Renumber")
(setq kw (getkword "\n[Number/Renumber]? <N>"))
(if (null kw) (setq kw "Number"))
(if (= kw "Number") (setvar "PICKAUTO" 0))
(setq dn (getint "\nInput Start or Offset Number: <1>"))
(if (null dn) (setq dn 1))
(prompt (strcat "\nSelect Blocks for " kw "ing: "))
(ssget)
(setq ass (vla-get-ActiveSelectionSet adoc))
(vlax-for sb ass
(if (= (vla-get-objectname sb) "AcDbBlockReference")
(progn
(setq ats (vlax-safearray->list (vlax-variant-value (vla-getattributes sb))))
(vla-put-TextString (car ats)
(if (= kw "Number") (itoa (+ n dn))
(itoa (+ (atoi (vla-get-TextString (car ats)) dn)))));vla-put
(setq n (1+ n)));progn
(alert "Oops! It's not a Block!"));if
);vlax-for
(setvar "CMDECHO" cmd)
(setvar "PICKAUTO" pca)
);end
загружаем в автокад, команда kan, выбираем нумерация/перенумерация, начальный номер, выделяем блоки нажимаем ввод.

 

Большое спасибо, завтра буду пробовать:-)

 

а как задать этот 1м текстовый атрибут

 

"1м" это я сокращенно написал слово "одним", извиняюсь. Просто к вашему блоку добавьте атрибут, можно ничем его не заполнять.