[Tyhig]

Добрый день.

Чистый автокад 2017. Я противник любых сторонних приложений (типа веткада, СПДС и т.п.).
Номера экспликации помещений (100 штук) массово изменяются ежедневно на +-1 (добавляются/убираются помещения).
Надоело руками в автокаде перебивать.
Нет ли готового лиспа, который бы формулой делал (старое значение) Х+-1=Y (новое значение) для выделенных, допустим, 60 объектов однострочного текста ?

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

[Хмурый]

использую команду _find когда много марок балок следует изменить Б1 на Б2, Б2 на Б3 и т. д. При увеличении номера начинаешь со старшей, при уменьшении- с младшей, чтоб не путались

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

Поскольку вопрос в разделе "AutoCAD", лови: "номера помещений" - в блок с атрибутами, потом _.attout, обработка в Excel, сохранение и _.attin

[Tyhig]

Хмурый, можно ли _find заставить считать самому автоматически формулой "старое+1=новое" ?
Хотя, видимо, это фантастика...

Кулик Алексей aka kpblc, видимо, рано или поздно приду к этому. Пока и сложно и некогда конкретный файл изменять под блоки с атрибутами. Спасибо.

[ытя]

Сообщение от Tyhig Нет ли готового лиспа, который бы формулой делал (старое значение) Х+-1=Y (новое значение) для выделенных, допустим, 60 объектов однострочного текста ?

Код:

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

 ;---------------------------------------------------------------------------------------;
; Функция: txt_factor - изм-е зн-я текста (text или Mtext) с пом-ю арифм. операций	;
; примеры ввода: 	*5 (умножить на 5)	+-1 (прибавить -1)  --2 (отнять -2)	;
;			/-2 (делить на -2)	-3 (отнять 3)				;
;.......................................................................................;
(defun c:txt_factor (/ ss		; <selection set>
		       n		; число выбранных позиций
		       i		; номер элемента <selection set>
		       txt_data		; данные текущего текста
		       txt_name		; (группа -1)
		       act		; знак операции
		       factor		; аргумент арифметич. функции
		       znach		; текущее значение текста
		       new_zn		; новое значение для текущего текста
		       n_renum		; колич. изменений
		     )  
  (setq ss (ssget '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>")))
	n (sslength ss)
	i 0 n_renum 0	
	factor (getstring "Действие и аргумент :")
	act (substr factor 1 1)
	factor (atof(substr factor 2))
	)  
  ;------------------------------------
  (repeat n
    (setq txt_name (ssname ss i)
	  txt_data (entget txt_name)
	  znach (atof(cdr(assoc 1 txt_data)))
	  new_zn (cond((eq act "+")(+ znach factor))
		      ((eq act "-")(- znach factor))
		      ((eq act "*")(* znach factor))
		      ((eq act "/")(/ znach factor))
		      (T (alert "Нужен знак операции !"))
		      ); cond
	  txt_data (subst (cons 1 (rtos new_zn 2 )) (assoc 1 txt_data) txt_data)
	  n_renum (1+ n_renum)
	  i (1+ i)
      ); setq
    (entmod txt_data)
    (entupd txt_name)
   ); repeat
  (princ (strcat "Всего изменений : " (itoa n_renum)))  		 
);defun p_factor

[Boxa]

Сообщение от ытя Код:

Так вопрос то в разделе чистого акада, у автора может LT версия и что ему с Вашим кодом делать?

[ытя]

Сообщение от Boxa и что ему с Вашим кодом делать?

Сообщение от Tyhig Нет ли готового лиспа

Это ли не лисп?

[Tyhig]

ытя, спасибо большое. То что надо.
Правда уже сам изменил, но в следующий раз попробую лисп.