[aafeoktistov]

Здравствуйте! Собственно к сути проблемы.
Есть блок "Лист" с атрибутом "Номер". Так вот можно ли как то после задания нумерации через атрибут "Номер" (к примеру через Numinc.lsp), при удалении одной из страниц обновить результат таким образом чтобы нумерация продолжилась с удаленного атрибута.

Заранее спасибо!

[Сергей812]

для этого надо сохранять еще порядок следования листов - например, в скрытом атрибуте.

[aafeoktistov]

Upd. Речь идет о пространстве листа. Т.е мы делаем нумерацию каждого листа блоком с атрибутом. Потом удаляем один из листов, а атрибуты под это подстраиваются.

----- добавлено через 53 сек. -----

Сообщение от Сергей812 для этого надо сохранять еще порядок следования листов - например, в скрытом атрибуте.

А не подскажите как он называется?

[Maksim7enov]

Делал для себя, чтобы изменять номера сквозной нумерации. Нужно поменять "НОМЕР_СКВОЗНОЙ" на имя своего атрибута в блоке. Такое подходит?

Код:

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

 
(defun fun_change_page-attrib-number
       (start-num name-attrib / ss1 layout_lst n ss obj)
       ;| ********************************************
Функция для измнения сквозных номеров на листах
*	start-num - стартовый номер листов
*	name-attrib - тег атрибута в нужном блоке
(fun_change_page-attrib-number 11333 "НОМЕР_СКВОЗНОЙ")
(entget ss1)
***********************************************|;
  (while (not
	   (setq ss1 (car (entsel "\nВыберите блок с атрибутом: ")))
	 )
    (princ "\nMiss!")
  )
  (setq
    layout_lst
     (mapcar
       'car
       (vl-sort
	 (mapcar
	   '(lambda (x)
	      (cons x
		    (vla-get-taborder
		      (vla-item
			(vla-get-layouts
			  (vla-get-activedocument (vlax-get-acad-object)) ;_ vla-get-activedocument 
			) ;_ vla-get-layouts 
			x
		      ) ;_ vla-item 
		    ) ;_ vla-get-taborder 
	      ) ;_ cons 
	    ) ;_ lambda 
	   (layoutlist)
	 ) ;_ mapcar 
	 '(lambda (a1 a2) (< (cdr a1) (cdr a2)))
       ) ;_ vl-sort 
     ) ;_ mapcar 
  ) ;_ end_of_setq
  (setq n 1)
  (foreach layout layout_lst
    (if	(setq ss
	       (ssget "_X"
		      (list '(0 . "INSERT")
			    '(66 . 1)
			    (cons 410 (nth (- n 1) layout_lst)) ;_ cons
			    (cons 2
				  (vla-get-Name (vlax-ename->vla-object ss1))
			    ) ;_ end_of_cons
		      ) ;_ list 
	       ) ;_ ssget 
	) ;_ setq 
      (foreach ent (vl-remove-if
		     '(lambda (a) (listp a))
		     (mapcar 'cadr (ssnamex ss))
		   ) ;_ vl-remove-if 
	(while (setq ent (entnext ent))
	  (if
	    (= (cdr (assoc 2 (entget ent))) name-attrib)

	     (progn (setq obj (vlax-ename->vla-object ent))
		    (vla-put-textstring obj (itoa (+ (- n 1) start-num)))
					;start-num
		    (vlax-release-object obj)
	     ) ;_ progn 
	  ) ;_ if 
	) ;_ while 
      ) ;_ foreach 
    ) ;_ if 
    (setq n (1+ n))
  ) ;_ end_of_foreach
  (vla-regen (vla-get-activedocument (vlax-get-acad-object))
	     acactiveviewport
  )
) ;_ end_of_defun

[aafeoktistov]

Сообщение от Maksim7enov Делал для себя, чтобы изменять номера сквозной нумерации. Нужно поменять "НОМЕР_СКВОЗНОЙ" на имя своего атрибута в блоке. Такое подходит? Код: [Выделить все] (defun fun_change_page-attrib-number (start-num name-attrib / ss1 layout_lst n ss obj) ;| ******************************************** Функция для измнения сквозных номеров на листах * start-num - стартовый номер листов * name-attrib - тег атрибута в нужном блоке (fun_change_page-attrib-number 11333 "НОМЕР_СКВОЗНОЙ") (entget ss1) ***********************************************|; (while (not (setq ss1 (car (entsel "\nВыберите блок с атрибутом: "))) ) (princ "\nMiss!") ) (setq layout_lst (mapcar 'car (vl-sort (mapcar '(lambda (x) (cons x (vla-get-taborder (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)) ;_ vla-get-activedocument ) ;_ vla-get-layouts x ) ;_ vla-item ) ;_ vla-get-taborder ) ;_ cons ) ;_ lambda (layoutlist) ) ;_ mapcar '(lambda (a1 a2) (< (cdr a1) (cdr a2))) ) ;_ vl-sort ) ;_ mapcar ) ;_ end_of_setq (setq n 1) (foreach layout layout_lst (if (setq ss (ssget "_X" (list '(0 . "INSERT") '(66 . 1) (cons 410 (nth (- n 1) layout_lst)) ;_ cons (cons 2 (vla-get-Name (vlax-ename->vla-object ss1)) ) ;_ end_of_cons ) ;_ list ) ;_ ssget ) ;_ setq (foreach ent (vl-remove-if '(lambda (a) (listp a)) (mapcar 'cadr (ssnamex ss)) ) ;_ vl-remove-if (while (setq ent (entnext ent)) (if (= (cdr (assoc 2 (entget ent))) name-attrib) (progn (setq obj (vlax-ename->vla-object ent)) (vla-put-textstring obj (itoa (+ (- n 1) start-num))) ;start-num (vlax-release-object obj) ) ;_ progn ) ;_ if ) ;_ while ) ;_ foreach ) ;_ if (setq n (1+ n)) ) ;_ end_of_foreach (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport ) ) ;_ end_of_defun

Спасибо! очень хочется проверить, но не подскажите принцип работы? Атрибут то я поменял но как вызвать выбор блока?

[Maksim7enov]

Сообщение от aafeoktistov как вызвать выбор блока

(fun_change_page-attrib-number start-num name-attrib)
меняем
start-num на стартовый номер страницы (будет нумеровать с 1 листа)
name-attrib на тег атрибута в нужном блоке

пример
(fun_change_page-attrib-number 1 "НОМЕР_СКВОЗНОЙ") вот это вставляем в командную строку

[aafeoktistov]

Сообщение от Maksim7enov (fun_change_page-attrib-number start-num name-attrib) меняем start-num на стартовый номер страницы (будет нумеровать с 1 листа) name-attrib на тег атрибута в нужном блоке пример (fun_change_page-attrib-number 1 "НОМЕР_СКВОЗНОЙ") вот это вставляем в командную строку

Я правильно понимаю? Я пронумеровал листы, допустим вручную с 1 по 10 (у каждого атрибут "НОМЕР_СКВОЗНОЙ") потом удалил лист 2. ввел команду (fun_change_page-attrib-number 1 "НОМЕР_СКВОЗНОЙ") и они должны обновиться?

[Maksim7enov]

нумерует все листы в файле. Начинает с первого, далее по порядку расположения листов в файле.

[aafeoktistov]

Извиняюсь за возможно тупые вопросы, но. Блок надо расставить со значением атрибута 1 везде на всех листах? он же пустым не может быть?

[Maksim7enov]

может быть пустым, но не блок а значение атрибута.
стоит попробовать и все станет понятно!