[makusik]

Есть группа размеров. Необходимо к каждому размеру прибавить одно и то же число не меняя деталь. Помогите, как это можно сделать?

[hwd]

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

[Дима_]

Код:

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

 (defun dimplus (x ent)
  ((lambda (lst)
    (entmod (subst (cons 1 (if (zerop x)
                           ""
                           (strcat "*"(rtos(+ x (cdr (assoc 42 lst)))))))
            (assoc 1 lst)
            lst)))
   (entget ent)))

Где x значение которое нужно прибавить (добавляет к реальному размеру - т.е. при повторном вызове ничего не изменится), ent - ename размера. При установке коэффицента 0 возращает "оригинальное" значение.
Пример вызова:

Код:

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

 (vl-load-com)
(mapcar '(lambda (ent) (dimplus 10 ent))
        (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "DIMENSION")))))))

[makusik]

Сообщение от hwd Не беспокоишься за своё здоровье?

шутку оценил

Дима_ большое спасибо

А можно в этот код вписать запрос на желаемое приращение?

[VVA]

Сообщение от makusik А можно в этот код вписать запрос на желаемое приращение?

Код:

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

(vl-load-com)
(mapcar '(lambda (ent) (dimplus (progn (initget 1)(getreal "\nВведите приращение: ")) ent))
        (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "DIMENSION")))))))

Ф-цию dimplus берем в #3

[Дима_]

То VVA - а как он поймет какой сейчас "приращается":
тогда уж:

Код:

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

 (vl-load-com)
((lambda (x) 
   (mapcar '(lambda (ent) (dimplus x ent))
           (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "DIMENSION"))))))))
 (progn (initget 1)
        (getreal "\nВведите приращение: ")))

а если как у Вас - то как минимум надо "подсветку" ввести.

[makusik]

Супер!