[Drweb]

Парни, довольно срочно нужно изменить все отметки съемки на одну и ту же величину (отметки просто в виде текста), есть ли уже готовое решение?

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

Пока не будет образца, решения будут "не те". Отметка - это что? Блок с атрибутом? Просто атрибут? Однострочный текст? Многострочный текст? Поле? Еще-какая-то-фигня?
---
Добавлено: в этом "неизвестно что" отметка с префиксами / суффиксами? Без? С какой точностью после запятой надо добавлять?
Блин, когда научатся вопросы задавать...

[Drweb]

Отметки - это однострочный текст

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

Прочти что "добавлено" у меня в посте.

[Drweb]

То есть я себе представляю это так - я выделяю весь текст, который нужно изменить, программуля меня спрашивает величину прироста - и я не теряю 1.5 дня на тупое механическое перебивание 1.5 тысяч отметок =)

Отметка выглядит, к примеру как "15.32". Точность до второго знака.
ЗЫ: Что за преффиксы и суффиксы? =)

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

Отметка как "Отм.+16.656". "Отм." - префикс.

Код:

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

(defun c:plus (/ *error* adoc value str)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (member
        (type (setq
                value (vl-catch-all-apply
                        '(lambda () (getdist "\nСколько добавлять <Отмена> : "))
                        ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        (list 'int 'real)
        ) ;_ end of member
      ) ;_ end of and
     (foreach ent (mapcar
                    'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                    ) ;_ end of mapcar
       (if (equal (rtos (setq str (atof (vla-get-textstring ent))))
                  (vla-get-textstring ent)
                  ) ;_ end of equal
         (vla-put-textstring ent (rtos (+ str value) 2 2))
         ) ;_ end of if
       ) ;_ end of foreach
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Код не будет обрабатывать строки вида "16,65" (с запятой в качестве разделителя); "а123" (нечисловые). Ну, короче, "коленочный код".

[Drweb]

Спасибо за помощь. Но ничего не происходит! Просит выбрать объекты - выбираю несколько текстовых строк. Допустим, нужно увеличить отметку на 0.08 (8 сантиметров) - ввожу 0.08, Enter - ничего. Текст не меняется. В чем баг?

Блин, то есть мне нужно получить из текста ЧИСЛО, прибавить к нему другое число и засунуть назад в текст. =)

[Alaspher]

> Drweb
Что-б не гадать, просто выложи файл-образец небольшого размера. Код рабочий.

[Drweb]

Хм. А что в образце мне показать? 2 числа? И какие они будут после прибавления к ним определенной величины? =)

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

Образец "до" и "после" выполнения команды plus с заданием величины смещения = 6.65
Код немного модифицировал для корректной обработки отрицательных значений:

Код:

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

(defun c:plus (/ *error* adoc value str)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (member
        (type (setq
                value (vl-catch-all-apply
                        '(lambda () (getreal "\nСколько добавлять <Отмена> : "))
                        ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        (list 'int 'real)
        ) ;_ end of member
      ) ;_ end of and
     (foreach ent (mapcar
                    'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                    ) ;_ end of mapcar
       (if (equal (rtos (setq str (atof (vla-get-textstring ent))))
                  (vla-get-textstring ent)
                  ) ;_ end of equal
         (vla-put-textstring ent (rtos (+ str value) 2 2))
         ) ;_ end of if
       ) ;_ end of foreach
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Drweb]

Спасибо, друг! Все работает =)

[Drweb]

Нашел такие баги - при получении в итоге ровной суммы (к примеру 16.00) получаем в результате просто "16". А результат необходим именно как "16.00". Отбрасывание нулей не нужно! Приходится забивать ручками ".00". И еще - не производятся никакие операции с числами, у которых на конце 0. То есть имеем отметку 13.10 - она видимо не переводится в число, не знаю почему. Поможете, господа хорошие?

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

Тогда так.

Код:

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

(defun c:plus (/ *error* adoc value str)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (member
        (type (setq
                value (vl-catch-all-apply
                        '(lambda () (getreal "\nСколько добавлять <Отмена> : "))
                        ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        (list 'int 'real)
        ) ;_ end of member
      ) ;_ end of and
     (foreach ent (mapcar
                    'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                    ) ;_ end of mapcar
       (if (equal (rtos (setq str (atof (vla-get-textstring ent))))
                  (vl-string-right-trim ".0" (vla-get-textstring ent))
                  ) ;_ end of equal
         (vla-put-textstring
           ent
           ((lambda (/ a)
              (setq a (+ str value))
              (cond
                ((not (vl-string-search "." (rtos a)))
                 (strcat (rtos a 2 2) ".00")
                 )
                ((= (strlen
                      (substr (rtos a 2 2) (+ 2 (vl-string-search "." (rtos a))))
                      ) ;_ end of strlen
                    1
                    ) ;_ end of =
                 (strcat (rtos a 2 2) "0")
                 )
                (t (rtos a 2 2))
                ) ;_ end of cond
              ) ;_ end of lambda
            )
           ) ;_ end of vla-put-textstring
         ) ;_ end of if
       ) ;_ end of foreach
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Особо не тестировал.

[skkkk]

Кулик Алексей aka kpblc, протестировал твой последний код. Вот что я обнаружил:
1) Число вида ХХХ.ХХ (Х- любая цифра, кроме нуля) считается только если точность выставлена на "0.00" (формат->единицы), при этом числа вида ХХХ.Х0 и ХХХ.00 игнорируются лиспом;
2) При установке точности на "0.0" считаются только числа ХХХ.Х0;
3) А если поставить точность на "0" считаются числа ХХХ.00, (что вполне закономерно), но ответ выдается в виде ХХХ.00.00
Очень полезный лисп, жаль, что так ошибается....Можешь подправить?

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

Какая точность имеется в виду? luprec? Если есть возможность - пример с указанием версии AutoCAD'a (чтоб мне тут не гадать)

[skkkk]

Точность, которая выставляется через меню Формат>Единицы(Units). АКАД 2008 русский. Конкретный пример: надо числа 177.26; 177.10; 177.00 увеличить на 10. Ввожу "_PLUS", на приглашение ком. строки выбираю эти три текста, ENTER, "сколько добавлять" пишу 10, и изменяется только один из них, тот, в котором целых цифр(не нулей) после запятой столько, на сколько установлена точность. Т.е. если установлена "0.00", то посчитается только 177.26, если "0.0", то только 177.10

[skkkk]

Решил проверить предыдущий код с поста #10 - все работает как ни странно... Обрабатывает все числа (ХХХ.ХХ; ХХХ.Х0; ХХХ.00) И в результате в случае нулей пишет "ХХХ.00" или "ХХХ.Х0"
Drweb, может, тебе поможет выставление точности на "0.00" в меню Формат->Единицы (Format->Units). Так что пользуемся и выпускаем во Вселенную позитив, адресованный kpblc'у, пусть поикает

[skkkk]

Подскажите пожалуйста, что надо добавить в лисп, чтоб увеличенные лиспом тексты меняли цвет при изменении значения.... Ну чтоб определять, какие из текстов уже обработаны, а какие - нет. По совету VVA с пробовал вставить в лисп

Код:

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

(vla-put-Color vlaObj 3)  ;3-номер цвета

...Добился только одного из двух результатов: либо считает прирост отметок, либо меняет цвет, к обоим прийти не вышло

[VVA]

Покажи используемый код или дай ссылку

[skkkk]

VVA, код c #10

[Малявка]

skkkk, посмотри здесь:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=42402mx
и здесь:
http://dwg.ru/f/showthread.php?t=20686
Буквально вчера ребята мне помогли решить ту же задачу и даже с фенечкой, которую я попросила. До сих пор прыгаю от счастья.
Может этот код тебе поможет. Удачи.

[VVA]

Нужное выделил красным

Код:

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

(defun c:plus (/ *error* adoc value str)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (member
        (type (setq
                value (vl-catch-all-apply
                        '(lambda () (getreal "\nСколько добавлять <Отмена> : "))
                        ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        (list 'int 'real)
        ) ;_ end of member
      ) ;_ end of and
     (foreach ent (mapcar
                    'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                    ) ;_ end of mapcar
       (if (equal (rtos (setq str (atof (vl-string-translate "," "."(vla-get-textstring ent)))))
                  (vl-string-translate "," "."(vla-get-textstring ent))
                  ) ;_ end of equal
	 (progn                ;_Нужно было progn добавить
         (vla-put-textstring ent (rtos (+ str value) 2 2))
	 (vla-put-color ent 3) ;_Цвет 3 - зеленый
	 )                     ;_Нужно было progn закрыть
         ) ;_ end of if
       ) ;_ end of foreach
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[dextron3]

VVA, спасибо,
буду рад модификации

1. Не работает с дробными числами пример 1.213
2. Хочется чтобы был выбор сколько добавлять, сколько отнять, на что умножить, и на что разделить
3. Про изменние цвета это хорошо
4. Самое главно если текст записан так L=400мм, а мы добавили 50, то все оставалось тоже а число было таким L=450мм,

п. 4. ну очень нужная вещь при редактировании спецификации
к примеру поменялась длинна плиты на 50мм стало меньше, пощелкал по спеке откорректировал за минуту вот и хорошо

[skkkk]

>dextron3
1.С дробными числами он может работать, есть маленькая хитрость. Нужно точность luprec выставить на столько, сколько у тебя знаков после запятой, в твоем случае - 3. Это можно сделать:
а) из командной строки (_luprec>3);
б) в меню Формат->Единицы (Format->Units) установить точность на 0.000;
в) вставить строку
(command "luprec" 3);;; 3 знака после запятой
в начало лиспа ПОСЛЕ строчки
(defun clus (/ *error* adoc value str). Точность будет меняться автоматически. Если надо вернуть старое значение luprec, то поставь ту же строку ПЕРЕД
) ;_ end of defun только измени цифру 3 на нужную. Предполагаю, это не вполне грамотно, ведь я не особый знаток, использовал метод тыка, но у меня работает
2. За функцию (+-/*) отвечает знак в строке
(vla-put-textstring ent (rtos (+ str value) 2 2)), правда придется делать четыре лиспа, и это будет четыре разные команды (например: plus, minus, umn, razd,- не забудь поменять вместе с арифметическим знаком команду в лиспе, ну и для приличия надпись "Сколько добавлять" смени как надо), и можно сделать четыре кнопки с макросами
^C^C(if(null Clus)(Load "plus.lsp"));plus;, "plus" меняешь, разумеется. Лиспы должны быть в путях доступа (Сервис->Настройка->Файлы). Можно сделать выпадающие кнопки.
3. Согласен.
4. Есть лисп, который добавляет префикс и суффикс. Он тут: http://forum.dwg.ru/showthread.php?t=10596
Для удобства можешь сделать кнопку с макросом
^C^C(if(null C:AddPS)(Load "Add Prefix Suffix.lsp"));AddPS;L=;мм;, она автоматом вставит "L=" и "мм", останется только выбрать тексты, опять же, не забудь про пути доступа.

Попробуй пошарить в поиске по слову "field", есть возможность делать так, чтобы при изменении длины линии автоматом менялось значение текста в "спеке"
P.S.: Смайлики с языками читай как двоеточие и латинская P

[skkkk]

Убрал за отсутствием актуальности

[CB]

Если по пунктам 1-3 можно так:

Код:

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

(defun c:test (/ selset action value precision_value str precision_str)
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (not
 (vl-catch-all-error-p
   (vl-catch-all-apply
     '(lambda ()
        (setq action
        (progn
   (initget "+ - * /")
   (cadr
     (assoc (getkword
       "Действие [+ - * /] :<+> "
     ) ;_ end of getkword
     '(("+" +) ("-" -) ("*" *) ("/" /) (nil +))
     ) ;_ end of assoc
   ) ;_ end of cadr
        ) ;_ end of progn
        ) ;_ end of setq
        (setq value (getreal "\nЧисло <Esc> : "))
        (setq
   precision_value
    ((lambda (x)
       (if (equal x 0.0)
         0
         (- (length
       (vl-string->list
         (vl-princ-to-string
    x
         ) ;_ end of vl-princ-to-string
       ) ;_ end of vl-string->list
     ) ;_ end of length
     2
         ) ;_ end of -
       ) ;_ end of if
     ) ;_ end of lambda
      (rem value 1.)
    )
        ) ;_ end of setq
      ) ;_ end of lambda
   ) ;_ end of vl-catch-all-apply
 ) ;_ end of vl-catch-all-error-p
      ) ;_ end of not
    ) ;_ end of and
     (foreach ent
       (mapcar
  'vlax-ename->vla-object
  (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
       ) ;_ end of mapcar
       (setq str (vla-get-textstring ent))
       (setq precision_str
       (length
  (cdr (member 46 (vl-string->list str)))
       ) ;_ end of length
       ) ;_ end of setq
       (if (equal (rtos (atof str) 2 precision_str) str)
  (progn ;_Нужно было progn добавить
    (vla-put-textstring
      ent
      (rtos
        ((eval action) (atof str) value)
        2
        (apply 'max (list precision_value precision_str))
      ) ;_ end of rtos
    ) ;_ end of vla-put-textstring
    (vla-put-color ent 3) ;_Цвет 3 - зеленый
  ) ;_Нужно было progn закрыть
       ) ;_ end of if
     ) ;_ end of foreach
  ) ;_ end of if
  (princ)
) ;_ end of defun

[dextron3]

CB,(т.е. по моим пунктам)

[CB]

>dextron3

Да по твоим пунктам...
Правда чтобы все правильно работало и по требованиям поста 14 нужно чуть изменить программу:

Код:

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

(defun c:test (/ sys-var selset action value precision_value str precision_str)
(setq sys-var (getvar 'dimzin))
(setvar 'dimzin 0)
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
...............................................................
  ) ;_ end of if
  (setvar 'dimzin sys-var)
  (princ)
) ;_ end of defun

Сделать прогу по условиям п.4 тоже можно, вот пример (правда достаточно коряво написано...) :

Код:

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

(defun rec-pat (str / rec-pat)
  (defun rec-pat (temp str pat n /)
    (cond ((= str "") (list temp))
   ((if (minusp n)
      (not (member (substr str 1 1) pat))
      (member (substr str 1 1) pat)
    ) ;_ end of if
    (if (/= temp "")
      (cons temp (rec-pat "" str pat (- n)))
      (rec-pat "" str pat (- n))
    ) ;_ end of if
   )
   (t
    (rec-pat (strcat temp (substr str 1 1))
      (substr str 2)
      pat
      n
    ) ;_ end of trim_gap
   )
    ) ;_ end of cond
  ) ;_ end of defun
  (rec-pat ""
    str
    '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" ".")
    1
  ) ;_ end of rec-pat
) ;_ end of defun
 
;;;Вызов (rec-pat "L=150.57мм") -> ("L=" "150.57" "мм")

Остается за малым - проанализировать получившийся список на предмет нахождения в нем числа, выполнить с числом действие и снова соединить список с помощью (apply 'strcat '("L=" "150.57" "мм"))

[dextron3]

Код:

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

(defun c:test (/ sys-var selset action value precision_value str precision_str)
(setq sys-var (getvar 'dimzin))
(setvar 'dimzin 0)
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (not
 (vl-catch-all-error-p
   (vl-catch-all-apply
     '(lambda ()
        (setq action
        (progn
   (initget "+ - * /")
   (cadr
     (assoc (getkword
       "Действие [+ - * /] :<+> "
     ) ;_ end of getkword
     '(("+" +) ("-" -) ("*" *) ("/" /) (nil +))
     ) ;_ end of assoc
   ) ;_ end of cadr
        ) ;_ end of progn
        ) ;_ end of setq
        (setq value (getreal "\nЧисло <Esc> : "))
        (setq
   precision_value
    ((lambda (x)
       (if (equal x 0.0)
         0
         (- (length
       (vl-string->list
         (vl-princ-to-string
    x
         ) ;_ end of vl-princ-to-string
       ) ;_ end of vl-string->list
     ) ;_ end of length
     2
         ) ;_ end of -
       ) ;_ end of if
     ) ;_ end of lambda
      (rem value 1.)
    )
        ) ;_ end of setq
      ) ;_ end of lambda
   ) ;_ end of vl-catch-all-apply
 ) ;_ end of vl-catch-all-error-p
      ) ;_ end of not
    ) ;_ end of and
     (foreach ent
       (mapcar
  'vlax-ename->vla-object
  (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
       ) ;_ end of mapcar
       (setq str (vla-get-textstring ent))
       (setq precision_str
       (length
  (cdr (member 46 (vl-string->list str)))
       ) ;_ end of length
       ) ;_ end of setq
       (if (equal (rtos (atof str) 2 precision_str) str)
  (progn ;_Нужно было progn добавить
    (vla-put-textstring
      ent
      (rtos
        ((eval action) (atof str) value)
        2
        (apply 'max (list precision_value precision_str))
      ) ;_ end of rtos
    ) ;_ end of vla-put-textstring
    (vla-put-color ent 3) ;_Цвет 3 - зеленый
  ) ;_Нужно было progn закрыть
       ) ;_ end of if
  (setvar 'dimzin sys-var)
  (princ)
) ;_ end of defun

error: malformed list on input

[CB]

Код:

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

...............................................
  ) ;_Нужно было progn закрыть
      ) ;_ end of if
    ) ;_ end of foreach
 ) ;_ end of if
 (setvar 'dimzin sys-var)
 (princ)
) ;_ end of defun

[dextron3]

CB, Отличный лиспец получился!, но только для обыкновенных цыфр

всетаки куда (rec-pat "L=150.57мм") именно для этого лиспа вставить чтобы только числа выискивал?

[CB]

>dextron3
Например так:

Код:

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

(defun c:test (/     sys-var  selset       action
        value     precision_value       str
        precision_str   rec-pat
       )
  (defun rec-pat (str / rec-pat)
    (defun rec-pat (temp str pat n /)
      (cond ((= str "") (list temp))
     ((if (minusp n)
        (not (member (substr str 1 1) pat))
        (member (substr str 1 1) pat)
      ) ;_ end of if
      (if (/= temp "")
        (cons temp (rec-pat "" str pat (- n)))
        (rec-pat "" str pat (- n))
      ) ;_ end of if
     )
     (t
      (rec-pat (strcat temp (substr str 1 1))
        (substr str 2)
        pat
        n
      ) ;_ end of trim_gap
     )
      ) ;_ end of cond
    ) ;_ end of defun
    (rec-pat ""
      str
      '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" ".")
      1
    ) ;_ end of rec-pat
  ) ;_ end of defun
  (setq sys-var (getvar 'dimzin))
  (setvar 'dimzin 0)
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (not
 (vl-catch-all-error-p
   (vl-catch-all-apply
     '(lambda ()
        (setq action
        (progn
   (initget "+ - * /")
   (cadr
     (assoc (getkword
       "Действие [+ - * /] :<+> "
     ) ;_ end of getkword
     '(("+" +) ("-" -) ("*" *) ("/" /) (nil +))
     ) ;_ end of assoc
   ) ;_ end of cadr
        ) ;_ end of progn
        ) ;_ end of setq
        (setq value (getreal "\nЧисло <Esc> : "))
        (setq
   precision_value
    ((lambda (x)
       (if (equal x 0.0)
         0
         (- (length
       (vl-string->list
         (vl-princ-to-string
    x
         ) ;_ end of vl-princ-to-string
       ) ;_ end of vl-string->list
     ) ;_ end of length
     2
         ) ;_ end of -
       ) ;_ end of if
     ) ;_ end of lambda
      (rem value 1.)
    )
        ) ;_ end of setq
      ) ;_ end of lambda
   ) ;_ end of vl-catch-all-apply
 ) ;_ end of vl-catch-all-error-p
      ) ;_ end of not
    ) ;_ end of and
     (foreach ent
       (mapcar
  'vlax-ename->vla-object
  (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
       ) ;_ end of mapcar
       (setq str (vla-get-textstring ent))
       (vla-put-textstring
  ent
  (apply 'strcat
  (mapcar
    '(lambda (str)
       (setq precision_str
       (length
         (cdr (member 46 (vl-string->list str)))
       ) ;_ end of length
       ) ;_ end of setq
       (if (equal (rtos (atof str) 2 precision_str) str)
         (rtos
    ((eval action) (atof str) value)
    2
    (apply 'max (list precision_value precision_str))
         ) ;_ end of rtos
         str
       ) ;_ end of if
     ) ;_ end of lambda
    (rec-pat str)
  ) ;_ end of mapcar
  ) ;_ end of apply
       ) ;_ end of vla-put-textstring
       (vla-put-color ent 3)
     ) ;_ end of foreach
  ) ;_ end of if
  (setvar 'dimzin sys-var)
  (princ)
) ;_ end of defun

[dextron3]

CB, отлчино! спасибо, его теперь использую в правке спецификаций...

[skkkk]

Лисп с #22 не увеличивает числа, в которых десятичный разделитель - запятая. Можно исправить?? Спасибо

[VVA]

skkkk, Выделил фиолетовым в #22

[skkkk]

Спасибо, VVA, только вот после обработки запятая меняется на точку....Можно, чтоб запятая оставалась? И еще не знаете, как исправить ситуацию в этом лиспе, описанную мной в #14, чтобы не зависело от переменной luprec? Т.е., чтобы после обработки лиспом текст был с тем же разделителем и с тем же количеством знаков после него, как и исходный. Так мне для каждой задачи приходится делать отдельный лисп и прописывать в нем значение luprec в зависимости оттого, сколько там знаков после запятой (или точки)

[VVA]

skkkk, Пробуй
Текст должен оставаться с тем же разделителем как исходный.
Количество знаков определяется как максимальное количество знаков после запятой у обрабатываемого в данный момент текста и введенного числа. Например:
текст 2 , число 0.1 - будет округляться до 1 знака после запятой
текст 2.12 , число 0.1 - будет округляться до 2 знаков после запятой
текст 2 , число 1 - будет округляться до 0 знаков после запятой

Код:

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

(defun c:plus (/ *error* adoc value str zpt prec newstr prec1)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun
(defun getcount (str / count pat i maxlen ch)
    (setq count 0)
    (setq pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    (setq i 0 maxlen 0)
         (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
           (if (vl-position ch pat) ; number
             (setq maxlen (1+ maxlen))
             (setq count  (max count maxlen) maxlen 0)
           )
         )
  (max count maxlen)
  )
  (defun IsAllCharNumeric  ( str / translit)(vl-load-com)  
;;;  http://www.autocad.ru/cgi-bin/f1/board.cgi?t=28488Sx
;;;  Соответствие символов взято с translit.ru
;;;  по мотивам 
;;;  name - исходная строка 
;;;  возвращается преобразованная
  (apply 'and
  (mapcar '(lambda(x)
             (vl-position x '("1" "2" "3" "4" "5" "6" "7" "8" "9" "0" "."))
             )
          (mapcar 'chr (vl-string->list (vl-string-trim  "%UuoO \t" str)))
          )
         )
)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "TEXT"))))
      (member
        (type (setq
                value (vl-catch-all-apply
                        '(lambda () (getreal "\nСколько добавлять <Отмена> : "))
                        ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        (list 'int 'real)
        ) ;_ end of member
      ) ;_ end of and
    (progn
     (setq prec1 0)
     (setq newstr (abs value)
	   newstr (- newstr (fix newstr)))
     (while (not (equal newstr (fix newstr) 1e-9))
       (setq prec1 (1+ prec1)
            newstr (* newstr 10))
	     )
     (foreach ent (mapcar
                    'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                    ) ;_ end of mapcar
       
       (setq zpt (vl-string-search "," (setq str (vla-get-textstring ent))))
       (setq str (vl-string-translate "," "."(vla-get-textstring ent)))
       (if (setq prec (vl-string-search "." str))
	  (setq prec (getcount (substr str (1+ prec))))
	  (setq prec nil)
	 )
       (cond ((and
	      (null prec)
	      (> prec1 0)
	      )
	      (setq prec prec1)
	      )
	     ((and (numberp prec)
		   (numberp prec1)
		   )
	      (setq prec (max prec prec1))
	      )
	     (t (setq prec nil))
	     )
       (if (IsAllCharNumeric  str)
	 (progn                ;_Нужно было progn добавить
	 (setq newstr  (+ (atof str) value))
	 (setq newstr
		(cond
		    ((numberp prec)(rtos newstr 2 prec))
		    (t (itoa (fix newstr)))
		  )
	       )
         (vla-put-textstring ent
	   (if zpt (vl-string-translate "." "," newstr) newstr))
	 (vla-put-color ent 3) ;_Цвет 3 - зеленый
	 )                     ;_Нужно было progn закрыть
         ) ;_ end of if
       ) ;_ end of foreach
      )	 
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[skkkk]

Спасибо, VVA, работает... Только вот в прилагаемом файле желтый текст не обрабатывается. Видимо, из-за того, что он имеет некое форматирование??

[stroygeodezia]

Мои "творения" на чистом LISP'е без всяких "vlax'ов"

Код:

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

;--------------------------------------------------------------------------
; Изменение отметок топосъемки на слое "Отметки"
;--------------------------------------------------------------------------
(DEFUN C:EDIT_Z ( / delta_z )
 (SETVAR "CMDECHO" 0)
 (SETQ delta_z  (GETSTRING "На какое значение изменить отметки: "))
 (SETQ n (GETSTRING "Количество знаков точности: "))

 (SETQ list_z (SSGET "X" '((0 . "TEXT")(8 . "Отметки"))))
 (SETQ len (SSLENGTH list_z))
 (SETQ c 0)
 (IF (> len 0)
   (PROGN
     (WHILE (< c len)
       (SETQ ename (SSNAME list_z c))
       (SETQ name_z (ENTGET ename))
       (IF (= (cdr (ASSOC 0 name_z)) "TEXT")
          (SETQ old_z  (ASSOC 1 name_z)
                old (CDR old_z)
                new (+ (ATOF old) (ATOF delta_z))
                new_z  (CONS 1 (RTOS new 2 (ATOI n )) )
                name_z (SUBST new_z old_z name_z)
          )
       )
       (ENTMOD name_z)
       (SETQ c (1+ c))
     )
   )
 )
 (SETVAR "CMDECHO" 1)
 (PRIN1)
)

;--------------------------------------------------------------------------
; Выборочное изменение отметок топосъемки
;--------------------------------------------------------------------------
(DEFUN C:EDIT_Z_SEL ( / delta_z )
 (SETVAR "CMDECHO" 0)
 (PROMPT "\nВыбери изменяемые отметки:")
 (COMMAND "_SELECT" pause)
 (SETQ list_z (SSGET "_p"))

 (SETQ delta_z  (GETSTRING "На какое значение изменить отметки: "))
 (SETQ n (GETSTRING "Количество знаков точности: "))

 (SETQ len (SSLENGTH list_z))
 (SETQ c 0)
 (IF (> len 0)
   (PROGN
     (WHILE (< c len)
       (SETQ ename (SSNAME list_z c))
       (SETQ name_z (ENTGET ename))
       (IF (= (cdr (ASSOC 0 name_z)) "TEXT")
          (SETQ old_z  (ASSOC 1 name_z)
                old (CDR old_z)
                new (+ (ATOF old) (ATOF delta_z))
                new_z  (CONS 1 (RTOS new 2 (ATOI n )) )
                name_z (SUBST new_z old_z name_z)
          )
       )
       (ENTMOD name_z)
       (SETQ c (1+ c))
     )
   )
 )
 (SETVAR "CMDECHO" 1)
 (PRIN1)
)

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

Я в любой момент нажимаю Esc и AutoCAD будет в каком состоянии? Я в ответ на запрос "На какое значение изменить отметки?" нажимаю Enter и программа вылетает. Или ввожу "А_Не_Надо_ничего_менять" - результат будет там же.

[VVA]

skkkk, Так точно. Вариант с обработкой Мтекста и сносом форматирования

Код:

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

(defun c:plus (/ *error* adoc value str zpt prec newstr prec1)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun
(defun mip_MTEXT_Unformat ( Mtext / text Str )
  (setq MM Mtext)
  (setq Text "")
   (while (/= Mtext "")
        (cond
          ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[\\{}]")
            (setq Mtext (substr Mtext 3) Text   (strcat Text Str)))
          ((wcmatch (substr Mtext 1 1) "[{}]")(setq Mtext (substr Mtext 2)))
          ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[LO`~]")
	   (setq Mtext (substr Mtext 3)))
          ((wcmatch (strcase (substr Mtext 1 2)) "\\[ACFHQTW]")
            (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext)))))
          ((wcmatch (strcase (substr Mtext 1 2)) "\\P")
            (if (or
		   (zerop (strlen Text))
		   (= " " (substr Text (strlen Text)))
		   (= " " (substr Mtext 3 1)))
               (setq Mtext (substr Mtext 3))
               (setq Mtext (substr Mtext 3) Text (strcat Text " "))))
	  ((wcmatch (strcase (substr Mtext 1 2)) "\\S")
            (setq Str   (substr Mtext 3 (- (vl-string-search ";" Mtext) 2))
                  Text  (strcat Text (vl-string-translate "#^\\" "/^\\" Str))
                  Mtext (substr Mtext (+ 4 (strlen Str)))))
	  (t (setq Text (strcat Text (substr Mtext 1 1)) Mtext (substr Mtext 2)))))
  Text)  
(defun getcount (str / count pat i maxlen ch)
    (setq count 0)
    (setq pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    (setq i 0 maxlen 0)
         (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
           (if (vl-position ch pat) ; number
             (setq maxlen (1+ maxlen))
             (setq count  (max count maxlen) maxlen 0)
           )
         )
  (max count maxlen)
  )
  (defun IsAllCharNumeric  ( str / translit)(vl-load-com)  
;;;  http://www.autocad.ru/cgi-bin/f1/board.cgi?t=28488Sx
;;;  Соответствие символов взято с translit.ru
;;;  по мотивам 
;;;  name - исходная строка 
;;;  возвращается преобразованная
  (apply 'and
  (mapcar '(lambda(x)
             (vl-position x '("1" "2" "3" "4" "5" "6" "7" "8" "9" "0" "."))
             )
          (mapcar 'chr (vl-string->list (vl-string-trim  "%UuoO \t" str)))
          )
         )
)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if
    (and
      (setq selset (ssget "_:L" '((0 . "*TEXT"))))
      (member
        (type (setq
                value (vl-catch-all-apply
                        '(lambda () (getreal "\nСколько добавлять <Отмена> : "))
                        ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
        (list 'int 'real)
        ) ;_ end of member
      ) ;_ end of and
    (progn
     (setq prec1 0)
     (setq newstr (abs value)
	   newstr (- newstr (fix newstr)))
     (while (not (equal newstr (fix newstr) 1e-9))
       (setq prec1 (1+ prec1)
            newstr (* newstr 10))
	     )
     (foreach ent (mapcar
                    'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                    ) ;_ end of mapcar
       
       (setq zpt (vl-string-search "," (setq str (mip_MTEXT_Unformat(vla-get-textstring ent)))))
       (setq str (vl-string-translate "," "." str))
       (if (setq prec (vl-string-search "." str))
	  (setq prec (getcount (substr str (1+ prec))))
	  (setq prec nil)
	 )
       (cond ((and
	      (null prec)
	      (> prec1 0)
	      )
	      (setq prec prec1)
	      )
	     ((and (numberp prec)
		   (numberp prec1)
		   )
	      (setq prec (max prec prec1))
	      )
	     (t (setq prec nil))
	     )
       (if (IsAllCharNumeric  str)
	 (progn                ;_Нужно было progn добавить
	 (setq newstr  (+ (atof str) value))
	 (setq newstr
		(cond
		    ((numberp prec)(rtos newstr 2 prec))
		    (t (itoa (fix newstr)))
		  )
	       )
         (vla-put-textstring ent
	   (if zpt (vl-string-translate "." "," newstr) newstr))
	 (vla-put-color ent 3) ;_Цвет 3 - зеленый
	 )                     ;_Нужно было progn закрыть
         ) ;_ end of if
       ) ;_ end of foreach
      )	 
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[skkkk]

Спасибо, VVA, работает 100%

[Avodo]

Ребят а можно наоборот упростить ? Очень прошу, напишите код. мне нужно сразу к нескольким текстам числовым прибавить или отнять натуральное число 1 или 2 и т.д. для работы со схемами в связке выноска+поле. В лиспе не силен и горю совсем по сроку. Заранее бьюсь лбом в пол. Числа используются натуральные: 1, 7, 26, и т.д. Без дробей и нулей

[SetQ]

Код:

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

;;;
;;; Shift.lsp
;;; 7 октября 2008 г.
;;; автор http://dwg.ru/f/member.php?u=10868
;;; прибавляет целое число к текстам
;;;
(DeFun C:Shift (/ ss z N i lst txt)
  (Prompt "Выберите тексты : ")
  (If (SetQ ss (ssget '(
			(-4 . "<OR")
			(0 . "TEXT")
			(0 . "MTEXT")
			(-4 . "OR>")
		       )
	       )
      )
    (ProgN
      (InitGet 1)
      (SetQ z (GetInt "\nДельта:")
	    N (ssLength ss)
	    i 0
      )
      (While (< i N)
	(If
	  (NumberP
	    (SetQ i   (1+ i)
		  lst (EntGet (ssName ss i))
		  txt (Read (Cdr (Assoc 1 lst)))
	    )
	  )
	   (EntMod
	     (SubSt
	       (Cons 1 (rtos (+ txt z)))
	       (Assoc 1 lst)
	       lst
	     )
	   )
	)
      )
    )
  )
  (prin1) ;_ BB
)

[Avodo]

Спасибо. про не числовые жаль, но хоть так

[SetQ]

подправил, фильтрует нечисловые..

[kshatriy]

Сообщение от CB >dextron3 Например так: Код: [Выделить все] (defun c:test (/ sys-var selset action value precision_value str precision_str rec-pat ) (defun rec-pat (str / rec-pat) (defun rec-pat (temp str pat n /) (cond ((= str "") (list temp)) ((if (minusp n) (not (member (substr str 1 1) pat)) (member (substr str 1 1) pat) ) ;_ end of if (if (/= temp "") (cons temp (rec-pat "" str pat (- n))) (rec-pat "" str pat (- n)) ) ;_ end of if ) (t (rec-pat (strcat temp (substr str 1 1)) (substr str 2) pat n ) ;_ end of trim_gap ) ) ;_ end of cond ) ;_ end of defun (rec-pat "" str '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" ".") 1 ) ;_ end of rec-pat ) ;_ end of defun (setq sys-var (getvar 'dimzin)) (setvar 'dimzin 0) (if (and (setq selset (ssget "_:L" '((0 . "TEXT")))) (not (vl-catch-all-error-p (vl-catch-all-apply '(lambda () (setq action (progn (initget "+ - * /") (cadr (assoc (getkword "Действие [+ - * /] :<+> " ) ;_ end of getkword '(("+" +) ("-" -) ("*" *) ("/" /) (nil +)) ) ;_ end of assoc ) ;_ end of cadr ) ;_ end of progn ) ;_ end of setq (setq value (getreal "\nЧисло <Esc> : ")) (setq precision_value ((lambda (x) (if (equal x 0.0) 0 (- (length (vl-string->list (vl-princ-to-string x ) ;_ end of vl-princ-to-string ) ;_ end of vl-string->list ) ;_ end of length 2 ) ;_ end of - ) ;_ end of if ) ;_ end of lambda (rem value 1.) ) ) ;_ end of setq ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of vl-catch-all-error-p ) ;_ end of not ) ;_ end of and (foreach ent (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) ) ;_ end of mapcar (setq str (vla-get-textstring ent)) (vla-put-textstring ent (apply 'strcat (mapcar '(lambda (str) (setq precision_str (length (cdr (member 46 (vl-string->list str))) ) ;_ end of length ) ;_ end of setq (if (equal (rtos (atof str) 2 precision_str) str) (rtos ((eval action) (atof str) value) 2 (apply 'max (list precision_value precision_str)) ) ;_ end of rtos str ) ;_ end of if ) ;_ end of lambda (rec-pat str) ) ;_ end of mapcar ) ;_ end of apply ) ;_ end of vla-put-textstring (vla-put-color ent 3) ) ;_ end of foreach ) ;_ end of if (setvar 'dimzin sys-var) (princ) ) ;_ end of defun

Помогите пожалуйста! делю числа 2200 и 400 на 1000 получаю 2 и 0 соответственно, требуется 2.200 и 0.400. как настроить точность? (чтоб ответ автоматически вставлялся с требуемой точностью)

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

Код:

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

_$ (/ 2200 1000)
2
_$ (/ 2200. 1000)
2.2
_$ (/ 2200. 1000.)
2.2
_$ (/ 2200 1000.)
2.2

[kshatriy]

Сообщение от Кулик Алексей aka kpblc Код: [Выделить все] _$ (/ 2200 1000) 2 _$ (/ 2200. 1000) 2.2 _$ (/ 2200. 1000.) 2.2 _$ (/ 2200 1000.) 2.2

как применить?

[VVA]

Сообщение от kshatriy как применить?

Могу предположить, что делишь не лиспом, раз такой вопрос. Тогда зайди в команду _UNITS и выставь нужную точность

[kshatriy]

VVA:делю лиспом из поста 32
лисп и видео прикрепил...
поправьте если что-то делаю не так
AutoCAD 2009rus

[Do$]

Вот тут вот причина:

Код:

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

        (setq
   precision_value
    ((lambda (x)
       (if (equal x 0.0)
         0
         (- (length
       (vl-string->list
         (vl-princ-to-string
    x
         ) ;_ end of vl-princ-to-string
       ) ;_ end of vl-string->list
     ) ;_ end of length
     2
         ) ;_ end of -
       ) ;_ end of if
     ) ;_ end of lambda
      (rem value 1.)
    )

Надо как-то поправить, пока не придумал как.
Попробуй подели не на 1000, а на 1000.001

[kshatriy]

Сообщение от Do$ Попробуй подели не на 1000, а на 1000.001

получилось как надо! 2.200 и 0.400
за это спасибо!

[Do$]

Решил задачку "в лоб"
участок кода из поста #52 замени на:

Код:

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

(setq  precision_value (getint "\nКоличество знаков после запятой:"))

А до кучи еще строчку:

Код:

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

"Действие [+ - * /] :<+> "

На строчку:

Код:

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

"Действие:[+/-/*//]<+>"

Добавил еще метку конца-начала и функцию *error*. В общем файл прикрепил.
Есть, правда, одно "но": если количество знаков после запятой у какого-нибудь из выбранных чисел на чертеже больше, чем введенное значение, то у результата будет столько же знаков после запятой.
Пример: выбраны числа "15" "23.5" "123.234", на запрос "Количество знаков после запятой:" введено "4", тогда у всех результатов будет 4 знака после запятой.
если же выбраны числа "15.3456" "23.84597" "8974" и введено "4", у всех результатов будет 4 знаков после запятой, кроме второго. Не знаю, хорошо это или плохо

[kshatriy]

Do$: Спасибо огромное РАБОТАЕТ!а с дополнением намного лудше!
небольшой вопрос:
когда точность уменьшается (если задаем количество знаком меньше чем было у данного числа до изменения) то почему-то изначальное количество знаков остается:

было 2.200(3 знака) делим на 10 ставим 2 знака после запятой,(остается всеравно 3 знака) в чем проблема?

[Do$]

Я ж выше как раз об этом написал
Там в программе сравнивается точность исходного числа и введенная и которая больше, та и берется. Можно эту проверку легко исключить. Надо?

[kshatriy]

Глаза дырявые...проглядел)
проверка Нужна! а сложно в код добавить команду для удаления незначимых нулей ?

[Do$]

Вроде бы получилось, попробуй.
P.S. Добавил удаление точки.

[kshatriy]

Do$: Спасибо! нули удаляются а разделитель остается (его бы тоже удалять):
было 0.19 умножил на 1000 ,число знаков любое, результат 190.

[Do$]

#58 перезалил

[kshatriy]

Красота! Спасибо еще раз!!!

[kshatriy]

еще просьба (если возможно): есть текст "Уголок L50x5 L=200" или др.

требуется : математические операции проводились только с числом стоящим после "L="
было: "Уголок L50x5 L=200"
+100
получили:"Уголок L50x5 L=300"
возможно? (лисп #58)

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

kshatriy, поищи тему наподобие "суммирование текстов". Точно помню, что подобный вопрос решался.

[dextron3]

kshatriy, пиши длинну отдельным тектсовым приметивом

[kshatriy]

Кулик Алексей aka kpblc: ты про это: "Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)" #522 ?
тот лисп заменяет цифры второго текста на цифры первого удалив все буквы:
было:"Уголок L50x5 L=200" и "Уголок L50x5 L=300" выбрал первый текст, выбрал второй.
результат: второй текст стал "Уголок L505200x505200 L=505200"

dextron3: Использую PS Studio
там спецификации заполняются текстами вида:
Труба 159x6 L=3400
Швеллер [20 L=370
Уголок L75x6 L=200

возможно програмно отделить длину?

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

Сообщение от kshatriy возможно програмно отделить длину?

Можно. И в той самой теме есть коды, выполняющие это действие.

[Do$]

Там еще один косяк был - если в запрос точности вводить ноль и результат вычисления получается целым числом с нулями на конце, то они обрезаются. Например: 3500-100 получалось 34. В общем, исправил и дополнил с учетом этого:

Сообщение от kshatriy там спецификации заполняются текстами вида: Труба 159x6 L=3400 Швеллер [20 L=370 Уголок L75x6 L=200 возможно програмно отделить длину?

[kshatriy]

Работает как требовалось спасибо Do$! появилась другая проблемка в текстах с символами юникода
эти символы заменяются вопросительными знаками
Было:
ДТруба 10x1 L=1140
Двутавр \U+E72910 L=3500
Швеллер \U+E7255П L=1090
Тавр \U+E72B10БТ1 L=770
-100
получаем:
Труба 10x1 L=1040
Двутавр ?10 L=3400
Швеллер ?5П L=990
Тавр ?10БТ1 L=670

возможно сохранить эти символы?

[Do$]

Символы не должны никуда теряться, если посмотреть свойства текста - то там все как надо написано. Наверное используемый текстовый стиль такие символы не поддерживает.
Файл не могу посмотреть, т.к. у меня акад 2006.

[kshatriy]

перезалил #68 (сохранил в 2004)

[Do$]

Вот казалось бы, одно и то же:

Код:

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

(vla-get-textstring (vlax-ename->vla-object (car (entsel))))
(cdr (assoc 1 (entget (car (entsel)))))

А результат разный:

Код:

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

"Двутавр ?10 L=3500"
"Двутавр \U+E72910 L=3500"

В коде заменил одно на другое, теперь вроде все

[kshatriy]

Do$:работает символы в норме..
огромное спасибо !!!

[Alex II]

Помогите пожалуйста.
У мена на чертеже идёт нумерация объектов, от 1 и до 500. В середине появляется дополнительный объект, и нумерацию нужно сдвинуть. Ест ли простой лиспик, который мог бы увеличивать выделенные числа (text) на заданую величину? Почемуто лисп из первых постов не работает. ACAD2010.

[Do$]

С этим как раз тут разбираемся:
http://forum.dwg.ru/showthread.php?t=58884

[gomer]

Сообщение от Alex II на чертеже идёт нумерация объектов, от 1 и до 500. В середине появляется дополнительный объект, и нумерацию нужно сдвинуть

Возможно вам поможет INCDEC

[Alex II]

Большое спасибо, очень кстати

[timoshetc]

добрый день! у меня мультитекст след содержания "165.33 - в. тр."
требуется прибавить к отметке 1.02..(долго объяснять зачем, просто так надо))
пробовал лиспы plus, num, test - не работают( помогите плиз....очень нужно

[Boxa]

Все уже придумано и написано.
https://sites.google.com/site/bushma...-zametki/regex
Тут можно скачать библиотеку которая меняет что угодно на как угодно.

Спасибо говорить Андрею aka hwd

[timoshetc]

как им воспользоваться? не загружается код

[Boxa]

Как то так : http://forum.dwg.ru/showthread.php?t=88453

[timoshetc]

как то не совсем понятно..как открыть проект, например? чем какой именно файл из папки
да и зачем мне вообще это?

у меня ссылки не работают

Исходный код здесь (проект MS VS 2010). Откомпилированная библиотека здесь (загружается в AutoCAD командой NETLOAD из командной строки AutoCAD).

[Do$]

Сообщение от timoshetc добрый день! у меня мультитекст след содержания "165.33 - в. тр." требуется прибавить к отметке 1.02..(долго объяснять зачем, просто так надо)) пробовал лиспы plus, num, test - не работают( помогите плиз....очень нужно

Берите лисп из сообщения №71, открывайте блокнотом и ищите "TEXT", заменяйте на "*TEXT". Сохраняйте, запускайте - должно получиться.

[timoshetc]

к сожалению не работает...выдает ошибку

no function definition: VLA-PUT-*TEXTSTRING

что бы это значило??

[Дима_]

VLA-PUT-*TEXTSTRING замените на VLA-PUT-TEXTSTRING

[VVA]

timoshetc, Искать и заменять текст следовало так как написано, с кавычками

ищите "TEXT", заменяйте на "*TEXT"

[timoshetc]

VVA, спасибо. попробовал сделать так, результат следущий -
[IMG][/IMG]
если прибавлять - то увеличивает, если вычитать - то уменьшается...и еще какие то цифры спереди добавляет
вот как то так

[Do$]

Ставить диагноз по картинке - это гадание на кофейной гуще. Приложите к сообщению DWG-файл хотя бы с одним таким текстом для опытов.

[timoshetc]

вот часть файла

[Do$]

Вот за что я не люблю мультитексты...
Не обработает эта программка такие тексты, на них форматирования навешано выше крыши.

[timoshetc]

пичалька....подскажите на будущее как удобнее делать такие подписи, с учетом дальнейшего изменения отметок

[Do$]

Настройте текстовый стиль, чтобы не делать переопределений в самом мультитексте, не используйте курсив и т.п.
В принципе, такие небольшие надписи можно делать текстом а не мультитекстом, тогда эта программа их спокойно переварит.

[Дима_]

Чтобы проверять без форматирования - можно подправить "искалку" hwd (см. #78) ну или чиркануть свою в которой mtext.Contents будет устанавливаться из Regex.Replace(mtext.Text,patern,replace).
p.s. Если автор не понял про что написанно - то тогда вресию автокада давай (хотя если у тебя не 2010-ый - компилировать сам будешь - или опять просить кого - т.к. у меня другого просто нет).

[Do$]

Вариант с принудительным заданием точности.
Добавлена обработка мтекста (если переопределялось форматирование - результат может оказаться неожиданным).
Без "раскраски".
Запускать командой otmetka.

[RNB]

Сообщение от Do$ Вариант с принудительным заданием точности. Добавлена обработка мтекста (если переопределялось форматирование - результат может оказаться неожиданным). Без "раскраски". Запускать командой otmetka.

Отличная вещь, но одно НО.
Не работает с запятыми. К 15,005 прибавим 0.001, получим 15.001,005.

PS. В программировании не силен, но, судя по постам выше, возможность это исправить есть.

[Do$]

Это возможно, но в ряде случаев это может оказаться некстати. Как вариант - используйте стандартный инструмент FIND для замены запятых на точки в тексте, а потом используйте программу.

[RNB]

Сообщение от Do$ Это возможно, но в ряде случаев это может оказаться некстати. Как вариант - используйте стандартный инструмент FIND для замены запятых на точки в тексте, а потом используйте программу.

Замена тоже не всегда будет полезна, ну да ладно, пережить можно, т.к. в остальном программа отличная. Спасибо

----- добавлено через ~8 мин. -----
Do$, и еще просьба. Если не сложно, сделайте то же самое, но с "раскраской".

[Do$]

Одни просят убрать, другие добавить...
Найдите в лиспе строчку:

Код:

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

 ;;;       (vla-put-color ent 3)

Точки с запятой спереди удалите - будет раскрашивать. Вместо 3 - любой нужный индексированный цвет можно поставить.

[gomer]

Сообщение от Do$ Одни просят убрать, другие добавить...

сделай настройку

[Do$]

Сделай, если есть время и желание Это же опенсорс Мне пока некогда.

[Borat]

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

[skkkk]

Borat, во-первых, какой именно лисп, а во- вторых, где файл dwg, в котором не работает?

[VVA]

+ skkkk, Скорее всего мтекст - форматированный

[Мих]

А как бы лисп из поста 58 подправить чтобы он и с атрибутами работал?

[Do$]

Еще примерно столько же кода написать, сколько уже есть в том лиспе. А может даже и побольше...