[sinitsin1983]

Задача такая:
Есть профиль прокладки трубопровода: есть отметки низа трубы, отметки земли, глубины траншеи соответственно. (все это объекты автокада -текст).
Поступила задача увеличить на профиле глубину траншеи (например на0,2м или на 0,1м в большую/меньшую сторону) - например учесть/убрать подсыпку мягким грунтом.
Конечно можно в ручную листы профилей править, но это долго при большом кол-ве отметок - хочется иметь лисп на этот случай,
по аналогии с тем простым лиспом что на данном сайте имеется и округляет числа текста с определенной точностью, которым я частенько пользуюсь при оформлении чертежей.

можно сделать?

[nolte]

попробуй

Код:

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

 (defun c:67 (/ n obj i num)
(vl-load-com)
(setq num (getreal "\nВВЕДИ ПОПРАВКУ (вещественное число) :"))
(setq n (ssget "_W" (getpoint "\n ПЕРВАЯ ТОЧКА РАМКИ ВЫБОРА") (getpoint "\n ВТОРАЯ ТОЧКА РАМКИ ВЫБОРА")))
(setq i -1)
(repeat (sslength n)
	(if (and
				(= (vla-get-objectname (setq obj (vlax-ename->vla-object (ssname n (setq i (1+ i)))))) "AcDbText")
				(not (zerop (atof (vla-get-textstring obj))))
			)
			(vla-put-textstring obj (rtos (+ (atof (vla-get-textstring obj)) num) 2 2))
	)
)
(princ)
)

запуск - 67.
вводишь поправку, выделяешь тексты рамкой и все.

[skkkk]

sinitsin1983, понимаю, что трудно сформулировать вопрос и попасть в яблочко (это я про пользование поиском), но такое уже было:
Увеличение всех отметок на определенную величину

nolte, а почему "67"?

[nolte]

67 - удобно вводить,мне по крайней мере, если надо мона поменять на абвгд или еще чего нить. На форуме была тема кажется, тюнинг автокад, кто то предложил повесить команды на цифры (спасибо доброму человеку) очень удобная штука если прибавить к этому еще и раздельную клаву вообще нет надобности отвлекаться на ввод команд.

[skkkk]

Offtop: Только как и по какой логике в голове закрепить соответствие порядковых номеров названиям и/или смысловым значениям команд?
_explode - 01, _overkill - 02, _help - 03....

[Nike]

Offtop:

Сообщение от skkkk Offtop: Только как и по какой логике в голове закрепить соответствие порядковых номеров названиям и/или смысловым значениям команд? _explode - 01, _overkill - 02, _help - 03....

Берешь acad.pgp и фигачишь по порядку:

1, *3-ГРАНЬ
2, *3-МАССИВ
4, *3-ОРБИТА
4, *3-ПЛИНИЯ
......
265, *ОТКРЫТЬ
266, *СОХРАНИТЬКАК
267, *КОПИРОВАТЬСВ
268, *НАСТРОЙКА
269, *РЕЖИМРАСКР