Список проголосовавших за комментарий "автокад лисп autocad lisp переименовывается нумерация<br/> подчёркнутого текста<br/> <br/> например стыки или опоры переименовать<br/> добавив или удалив стыки или опоры<br/> <br/> автокад лисп autocad lisp переименовывает подчёркнутый текст <br/> <br/> команда REW и диалог плюс подсказки<br/> <br/> ;; rew.lsp перенумерация подчеркнутого текста<br/> (defun C:REW (/ *error* elist en lname lock lrlist ltbr match rate ss start state txt)<br/> (defun *error* ( msg )<br/> (command "_.undo" "_end")<br/> (if msg<br/> (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")<br/> (princ (strcat "\n** Error: " msg " **")))<br/> )<br/> (command)<br/> (princ)<br/> ) <br/> (setq lname (getstring "\nВведите имя слоя текста <Стыки>: "))<br/> (if (eq "" lname)(setq lname «Стыки»))<br/> (setq ltbr (tblobjname «layer» lname)<br/> lrlist(entget ltbr)<br/> )<br/> (setq state (cdr (assoc 70 lrlist)))<br/> (if (not (zerop state))<br/> (progn<br/> (setq lock T)<br/> (entmod (subst (cons 70 0)(assoc 70 lrlist) lrlist)))<br/> )<br/> (initget 7)<br/> (setq start (getint "\nВведите стартовый номер: "))<br/> (if (setq ss (ssget (list (cons 0 «TEXT»)(cons 1 "%%U*")(cons 8 lname))))<br/> (progn<br/> (initget 2)<br/> (setq rate (getint "\nВведите шаг (используйте минус для понижения нумерации) <1>: "))<br/> (if (not rate)(setq rate 1))<br/> (command "_.undo" "_begin")<br/> (while<br/> (setq en (ssname ss 0))<br/> (setq elist (entget en))<br/> (setq txt (cdr (assoc 1 elist)))<br/> (setq match (atoi (vl-string-subst "" "%%U" txt)))<br/> (if (>= match start)<br/> (progn<br/> (setq txt (strcat "%%U" (itoa (+ rate (atoi (vl-string-subst "" "%%U" txt))))))<br/> (entmod (subst (cons 1 txt) (assoc 1 elist) elist))<br/> (entupd en)<br/> )<br/> )<br/> (ssdel en ss)<br/> )<br/> )<br/> )<br/> (if (and state lock)<br/> (entmod (subst (cons 70 state)(assoc 70 lrlist) lrlist))<br/> )<br/> (*error* nil)<br/> (princ)<br/> )<br/> (princ "\n == Программа перенумерации текста загружена ==")<br/> (princ "\n = [Только для подчеркнутых однострочных тестов] =")<br/> (prompt "\n *** Для выполнения введите REW ***")<br/> (prin1)<br/> "