[dextron3]

Принцип действия:

Выбираем область текстовых или мультитекстовых приметивов прямоугольным выделением, лисп устанавливает в каждый текст БУКВУ, А, Б, В, Г, Д, Е, Ж, И, К, Л, М, Н, П, Р, С, Т, У, Ф, Х, Ц, Ш, Щ, хватает ., но чем левее и выше цыфра по координатам тем меньший номер ей присваивается, не зависимо от выделения

В действии:

1. Выделите текстовые приметивы:
2. Введите букву с которой начинать отчет <А>:

Код:

[Выделить все]

(defun c:renum (/ oldPref oldSuf oldStart curText curStr)
  (vl-load-com)
  (if(not rnm:Pref)(setq rnm:Pref ""))
  (if(not rnm:Suf)(setq rnm:Suf ""))
  (if(not rnm:Start)(setq rnm:Start 1))
  (setq oldPref rnm:Pref
        oldSuf rnm:Suf
        oldStart rnm:Start); end setq
  (setq rnm:Pref
    (getstring T
      (strcat "\nType prefix: <"rnm:Pref">: ")))
  (if(= "" rnm:Pref)(setq rnm:Pref oldPref))
  (if(= " " rnm:Pref)(setq rnm:Pref ""))
  (setq rnm:Suf
    (getstring T
      (strcat "\nType suffix: <"rnm:Suf">: ")))
  (if(= "" rnm:Suf)(setq rnm:Suf oldSuf))
  (if(= " " rnm:Suf)(setq rnm:Suf ""))
  (setq rnm:Start
    (getint
      (strcat "\nEnter start number <"
         (itoa rnm:Start)">: ")))
  (if(null rnm:Start)(setq rnm:Start oldStart))
(while T
  (setq curStr(strcat rnm:Pref(itoa rnm:Start)rnm:Suf))
    (setq curText
      (car
        (nentsel "\nSelect DText/MText/Attribute or Esc to Quit ")))
  (if
    (and
      curText
      (member(cdr(assoc 0(entget curText))) '("TEXT" "MTEXT" "ATTRIB"))
      ); end and
    (progn
    (vla-put-TextString
      (vlax-ename->vla-object curText)curStr)
    (setq rnm:Start(1+ rnm:Start))
    ); end progn
    (princ "\nThis is not DText or MText! ")
    ); end if
  ); end while
  (princ)
  ); end of c:renum

Этот лисп мне больше всех нравиться он универсальный
но для цифр

Ссылки дал VVA

1. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=33416cQ
2. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=29829Am
3. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21807yD
4. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=30394Ae

[Кулик Алексей aka kpblc]

Автора указать и ссылку на исходник дать Коран не дает?

[dextron3]

ссылки добавил см выше