|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
10.11.2004, 07:43 | #1 | |
Фитча с текстом
Сообщений: n/a
|
||
Просмотров: 1856
|
|
||||
Проектировщик ВК. LISP-любитель. Регистрация: 15.12.2003
Москва
Сообщений: 1,189
|
(defun c:textplus (/ A n nabor dxfcod)
(setq n 0) (if (setq A (getreal "Введи число, которое нужно прибавить:")) (if (setq nabor (ssget '((0 . "TEXT")))) (while (setq dxfcod (ssname nabor n)) (entmod (subst (cons 1 (rtos (+ A (atof (cdr (assoc 1 (setq dxfcod (entget dxfcod)))))) ) ) (assoc 1 dxfcod) dxfcod ) ) (setq n (+ n 1)) ) ) ) (princ) ) |
|||