[Sergk]

Суть дела в следующем. Есть проект, выполненный в одном файле.
В пространстве листа сформирован весь проект с соответсвующей нумерацией листов. Каким образом можно сделать так, чтобы при вставке или удалении листа нумерация остальных листов менялась автоматически? [sm1402]

[Vook]

Программу писать....

Но вообще, такие файлы - извращение

Лучше уж воспользоваться Sheet set из автокад 2005

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

Или воспользоваться СПДС 2.5 / MechaniCS 4.5 - там это дело уже решено. Правда, не дешево оно обходится - что по деньгам, что по нервам.

[Sergk]

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

[Sergk]

Нельзя ли подробнее про данную функцию в СПДС 2.5? Она у меня установлена.

[Serge_Y]

Используйте Sheet Set однозначно. И нумерация и общие данные и работающие ссылки и архивация в формате dwf(также с работающими ссылками) - все это Sheet Set

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

Насчет извращения - лично я согласен. Sheet set manager не зря ввели.
Ладно, это лирика. В момент вставки формата надо поставить флажок "Автонумерация". Для уже установленных форматок не рекомендую - номера будут проставлены по своей логике, которую без трех поллитр не поймешь (а к тому моменту уже не до када будет). Поэтому можно снести все установленные форматки и по новой их воткнуть.
Единственное НО: заполнение штампов - обрати внимание, что там и как пишется. Тоже бывает, настроение портит

[Sergk]

В спдс2.5 нумерация автоматическая листов идет в рамке, а необходимо в правом верхнем углу. Да, нельзя ли подробнее про Sheet Set , к своему стыду, я с этой функцией не знаком

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

Гхм... А с чего это он там? Хотя, в принципе, можно, наверно, отредактировать их шаблоны, но головняка будет...
Про sheet set manager можно прочитать здесь.

[Sergk]

Что касается нумерации листов, то кроме нумерации в штампах, идет сквозная нумерация альбома в правом верхнем углу, не я это придумал, а гемороя доставляет. За полезную ссылку большое спасибо.

[ZZZ]

Я просто проставляю в месте штампа вместо номера блок с атрибутом. Потом просто запускаю прогу и она меняет значение атрибута этого блока на порядковый номер листа (как они следуют на чертеже).
Вот прога:

Код:

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

(defun c:z-layout-set-numder ( / attent)
  (mapcar
    (function
      (lambda (ent)
	(progn
	  (entmod
	    (subst (cons 1
			 (itoa
			   (vla-get-TabOrder
			     (vla-item (vla-get-layouts
					 (vla-get-activedocument
					   (vlax-get-acad-object)
					   ) ;_ vla-get-activedocument
					 ) ;_ vla-get-layouts
				       (cdr (assoc 410 (entget ent)))
				       ) ;_ vla-item
			     ) ;_ vla-get-TabOrder
			   ) ;_ itoa
			 ) ;_ cons
		   (assoc 1 (entget (setq attent (entnext ent))))
		   (entget attent)
		   ) ;_ subst
	    ) ;_ entmod
	  (entupd ent)
	  ) ;_ progn
	) ;_ lambda
      ) ;_ function
    (mapcar 'cadr
	    (ssnamex
	      (ssget "_x" '((0 . "INSERT") (2 . "LAYOUT_NUMBER")))
	      ) ;_ ssnamex
	    ) ;_ mapcar
    ) ;_ mapcar
  (princ)
  ) ;_ defun

Сразу говорю с vla функциями я не сильно дружу.
Код однозначно можно оптимизировать и подстроить под себя.
[ATTACH]1123772657.dwg[/ATTACH]

[Лентяй]

Сразу говорю с vla функциями я не сильно дружу.

А напрасно! Жить надо дружно, ибо оно бывает полезно. Здри лиспу

Код:

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

(defun C:LotToDwNo ( / at nm_bk)
  (setq	adoc (vla-get-activedocument (vlax-get-acad-object))
	ps (vla-get-paperspace adoc)
	bks (vla-get-blocks adoc)
      	l_nm (vla-get-name (vla-get-activelayout adoc))
  )
  (if (vla-item bks "*ШТАМП*");Свой Штамп
    (progn
      (vlax-for b ps
	(if (and (= (vla-get-objectname b) "AcDbBlockReference")
		 (= (vla-get-name b) "*ШТАМП*")) (setq nm_bk b)));vlax-for
    	(foreach at (vlax-safearray->list (vlax-variant-value (vla-getattributes nm_bk)))
	 (cond ((= (vla-get-Tagstring nm_bk) "*ЛИСТ*") (vla-put-Textstring at l_nm))
	      ((= (vla-get-Tagstring nm_bk) "*ЛИСТОВ*") (vla-put-Textstring (1- (vla-get-count (vla-get-layouts adoc))))));cond
      );foreach
    );progn
);foreach
    );progn
    (progn; Чужой Штамп
      (prompt "\nВыберите атрибут для нумерации листов: ")
      (setq at (vlax-ename->vla-object (car (nentsel))))
      (vla-put-Textstring at l_nm)
    );progn
  );if
);end

Если штамп свой, то программа проставляет номер листа и кол-во листов. Если чужой, т.е. имя блока не "*ШТАМП*", то нуиеруемый атрибут указывается вручную. Пользуйтесь на здоровье и сугубо и трегубо благодарите меня за то, что я есть.

[Sergk]

ZZZ, огромная благодарность, при запуске кода вылетает окно вставки блока, но это единственное побочное явление, а все остальное делает отменно. Лентяю тоже спасибо, но мне требовалась
нумерация в углу страницы, штамп у меня сделан в виде блока с атрибутами- там и так все нормально заполняется.

[ZZZ]

>Sergk

при запуске кода вылетает окно вставки блока

Можно поподробнее.
Там только при вставке блока запрашивается значение атрибута, но это лечится легко, просто выставить в свойстве атрибута Preset на yes. А прога вызывать окно не должна, и у меня не вызывала ни разу.

У меня ищё вопросик к пользователям СПДС (у меня СПДС нет).
Там штамп вставлен блоком с атрибутами?
Усли да, то для универсализма, хотелось бы узнать имя блока и теги атрибутов лист и листов.

>Лентяй
У Вас прога меняет значение только в текущем листе. Но это легко изменить. За пример использования vla спасибо. Всё понятно. Получается лингвическая ситуация - "понимать понимаю, а сказать не могу". Это всё дело вкуса, на чём програмить.
Я считаю, что главное не способ реализации программы, а заложеная в прогу идея.
Может Вы знаете как на vla определить выбранные layout, в смысле кликаешь с зажатым ctrl.

Также у меня есть идейка проставлять номера листов и в начале имени листа (вкладки), что при публицировании их расположит так как надо и видно будет на вкладке какой лист.

[Sergk]

Штампами от спдс мы не пользуемся, сделали свои, если нужны, оставь
мыло, вышлю. А причин вылета окна может быть куча, у меня на каде чего только не навешано, временами довески друг с другом не ладят.

[ZZZ]

>Sergk
У Вас наверное какаято довеска использует реактор на редактирование блоков, а прога меняет значение атрибута.
Мыло моё есть в профиле, но мне самодельные штампы не нужны, так как у самого свой самодельный штамп.
Успехов.

[Лентяй]

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

А вот здесь - подробнее. В каком углу? Если в левом верхнем и текст ввкрх ногами, типа как номер чертежа по ЕСКД, то это одно, а если чего-то другое - то это совсем другое дело. Так что грузите детали, куда вам всунуть имя/номер листа, а я уже соот-но ихменю свой лисп.

[ghetuvova]

Наверное уже все решили эту задачу, но...
Похоже что не конкретно тут указано...
Я решил это следующим, простым относительно способом:

Находим файл, на своём ПК,под названием- acad"год"doc.lsp...(в моём случае 2014) при установленном АКАД, или "accaddoc.lsp"(наверное английская версия), открываем с помощью Блокнота и в конце всего, задаём(записываем) переменную- "(setvar "useri1" (length (layoutlist)))".
Сохраняем... теперь у нас есть информация о полном количестве листов в зарезервированной переменной Useri1
(Думаю легче дописать строку в одном системном файле АКАД всем ПК в локальной сети проектирующей организации, чем каждому устанавливать плагины, или отдельные программы ради нумерации)
Это позволяет нам обращаться к переменной с общим количеством листов через заранее заданную LISP переменную, (системную переменную...)

После этого, при загрузки любого документа, у нас уже есть переменная с общим количеством листов.
Далее... достаточно обратиться к переменной Useri1 через поле c помощью Diesel Expression:
"$(getvar,useri1)"- чтоб иметь общее количество листов через свойство "поле" в числовом выражении.

Для текущего номера листа в зависимости от заданного названия по умолчанию "Лист1","Лист2","Лист3"... в поле, в части для вставленного поля- Diesel Expression пишем следующее:
"$(substr,$(getvar,ctab),5)"

Этот метод работает при вставки полей...

Удачи...

Инфо отсюда- https://www.cadtutor.net/forum/topic...tic-numbering/

[qserg]

Сообщение от ghetuvova Для текущего номера листа в зависимости от заданного названия по умолчанию "Лист1","Лист2","Лист3"... в поле, в части для вставленного поля- Diesel Expression пишем следующее: "$(substr,$(getvar,ctab),5)"

При 5 в конце формулы не выводятся четыре позиции с начала текста имени листа (при имени "Лист2" возвращает "2") при отсутствии символов возвращает "----", при 1 возвращает как есть!

[west-1988]

Сообщение от qserg При 5 в конце формулы не выводятся четыре позиции с начала текста имени листа (при имени "Лист2" возвращает "2") при отсутствии символов возвращает "----", при 1 возвращает как есть!

А чтоб брать первые 2а символа, что надо поправить