Нужно пронумеровать листы

Нужно пронумеровать листы · 24.01.2006, 13:02

Есть файл, в нем несколько листов в пространстве модели, в штампе на каждом листе в месте простановки номера листа стоит блок с атрибутом "ЛИСТ", можно ли пронумеровать все листы (автоматически не выбирая каждый атрибут) если все листы точно распологаются друг за другом по Х ?????????? И если можно занесением общего количества листов (блоков с атрибутами "ЛИСТ") в штамп на первом листе (тоже блок с атрибутом "ЛИСТОВ")????

Наверное многово хочу, но если кто знает подскажите!!!!!

Alan · 24.01.2006, 13:44

Всё это просто как угол дома реализуется.
1. Выбери блоки штампа.
2. Отсортируй по Х
3. Расставь номера листов, заменой атрибута "ЛИСТ"
4. В первом листе замени атрибут "ЛИСТОВ"

Даниил · 24.01.2006, 14:19

может есть какая-нибудь програмка для этого, чтоб нажав кнопку на панели все пронумеровалось

Alan · 24.01.2006, 15:45

Даниил, так всё что я писал, надо делать на ЛИСП.
Кнопка дело последнее.

VVA · 24.01.2006, 16:47

Как-то поднималась тема по поводу нумерации свай. Переделанная программа под штампы. Тэги атрибутов блоков ЛИСТ и ЛИСТОВ
Маркирует по Х или У оси.

Код:

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

(defun C:NLIST (/ adoc att_list axss 
        blk_list num opt sort_list fuzz sort_blk_list blk_obj pt buf buf1 count what blk1) 
  (vl-load-com) 
  (setq fuzz 1) ;_Допуск для сортировки
  (setq   adoc (vla-get-activedocument 
          (vlax-get-acad-object) 
        ) 
  ) 
  (if (and 
   (= (getvar "tilemode") 0) 
   (= (getvar "cvport") 1) 
      ) 
    (setq acsp (vla-get-paperspace adoc)) 
    (setq acsp (vla-get-modelspace adoc)) 
  )  
(if (ssget (list (cons 0 "INSERT") 
;;;         (cons 2 "ШТАМП") ;_Имя блока штампа (раскомментировать)
         (cons 66 1))) 
(progn 
(setvar "attreq" 1) 
(vla-endundomark adoc) 
(vla-startundomark adoc) 
(initget 4) 
(setq num 1) ;_Начальный номер
(setq axss (vla-get-activeselectionset adoc)) 
(vlax-for a axss 
      (setq blk_list (cons a blk_list))) 
    
(initget "X Y") 
(setq opt (getkword "\n\t >> Сортировать блоки по [X оси/Y оси] < X > : ")) 
(if (not opt)(setq opt "X"))
(setq count 1)
(while (setq blk_obj (car blk_list))

  (setq buf nil)
  (setq buf1 nil)
  (setq pt (vlax-get blk_obj 'Insertionpoint))
  (if (= opt "X")(setq WHAT cadr)(setq WHAT car))
  (setq buf (vl-remove-if-not ;_Оставляем все что совпадает
	      (function
		(lambda (e1)
		  (equal (WHAT pt)(WHAT (vlax-get e1 'Insertionpoint)) fuzz)))
	      blk_list
	      ))
  (setq buf1 (vl-remove-if ;_Оставляем все что не совпадает
	       (function
		 (lambda (e1)
		   (equal (WHAT pt)(WHAT (vlax-get e1 'Insertionpoint)) fuzz)))
	      blk_list
	      ))
    (setq count (1+ count))
    (setq blk_list buf1)
    (setq sort_blk_list (append sort_blk_list (list buf)))
  );_while
(setq sort_blk_list
 (vl-sort sort_blk_list
    (function
      (lambda (e1 e2)
	(< (WHAT (vlax-get (car e1) 'Insertionpoint)) 
        (WHAT (vlax-get (car e2) 'Insertionpoint)))))))
(setq count 1)
  (setq blk_list nil)
  (foreach blk_list sort_blk_list
    
       (cond ((= opt "X") 
       (setq sort_list  (vl-sort blk_list 
      (function (lambda (e1 e2) 
             (< (car (vlax-get e1 'Insertionpoint)) 
            (car (vlax-get e2 'Insertionpoint)))))))) 
        ((= opt "Y") 
       (setq sort_list  (vl-sort blk_list 
      (function (lambda (e1 e2) 
             (< (cadr (vlax-get e1 'Insertionpoint)) 
            (cadr (vlax-get e2 'Insertionpoint)))))))) 
       (T (progn (princ "\nНеверная опция сортировки\n") 
       (exit) 
       (princ)))) 
(foreach blk_obj sort_list 
(if (and (vlax-property-available-p blk_obj 'Hasattributes) 
    (vlax-read-enabled-p blk_obj) 
    (vlax-write-enabled-p blk_obj)) 
      (progn 
  (setq att_list (vlax-invoke blk_obj 'Getattributes)) 
  (foreach at att_list 
    (if (eq (vla-get-tagstring at) "ЛИСТ") 
      (progn
   (if (= num 1)(setq blk1 blk_obj)) ;_Запоминаем 1-й штамп	
   (vla-put-textstring at (itoa num)) 
   (vla-update at) 
   (vla-update blk_obj)))))) 
  (setq num (1+ num)))
  (setq count (1+ count))  
);_foreach blk_list
(if (and blk1
    (vlax-property-available-p blk1 'Hasattributes) 
    (vlax-read-enabled-p blk1) 
    (vlax-write-enabled-p blk1)) 
      (progn 
        (setq att_list (vlax-invoke blk1 'Getattributes)) 
	  (foreach at att_list 
	    (if (eq (vla-get-tagstring at) "ЛИСТОВ") 
	      (progn
 	       (vla-put-textstring at (itoa (1- num))) 
	       (vla-update at) 
	       (vla-update blk1))))))
(vla-clear axss) 
(vla-delete axss) 
(vlax-release-object axss))) 
(vla-regen adoc acactiveviewport) 
(vla-endundomark adoc)
(princ) 
) 
(prompt "\nВ командной строке набери NLIST \n") 
(princ)

pyatifan · 24.01.2006, 17:08

Я бы на твоём месте всётаки воспользовался подшивкой. Она для этого и предназначена

Даниил · 25.01.2006, 07:40

Спасибо за програмку, всё работает!!!

Можно сделать так чтоб не приходилось выбирать объекты, а сразу определялись блоки с атрибутом ЛИСТ и нумеровались по оси X или Y

Даниил · 25.01.2006, 08:00

Как уйти от такой ситуации, у меня на первом листе блок с атрибутами ЛИСТ и ЛИСТОВ расположен выше по Y,а все остальные на одном уровне, можно чтоб по Y не имело значения какая координата, сортировалось только в зависимости от X !!!!

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

Даниил · 25.01.2006, 08:03

Вот пример
[ATTACH]1138165402.dwg[/ATTACH]

VVA · 25.01.2006, 10:04

Код:

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

(defun C:NLIST (/ adoc att_list axss blk_list num sort_blk_list blk_obj blk1 space) 
  (vl-load-com) 
  (setq   adoc (vla-get-activedocument 
          (vlax-get-acad-object) 
        ) 
  ) 
  (if (and 
   (= (getvar "tilemode") 0) 
   (= (getvar "cvport") 1) 
      )
    (setq acsp (vla-get-paperspace adoc) space (cons 410 (vla-get-name (vla-get-ActiveLayout adoc)))) 
    (setq acsp (vla-get-modelspace adoc) space (cons 410 "Model")) 
  )  
(if (ssget "_X" (list (cons 0 "INSERT")
         '(-4 . "<OR")		 
            (cons 2 "ЛИСТ ЛИСТОВ") ;_Имя блока штампа 
            (cons 2 "Лист") ;_Имя блока штампа 
	'(-4 . "OR>")
        space ;_Модель или лист
         (cons 66 1))) 
(progn 
;(setvar "attreq" 1) 
(vla-endundomark adoc) 
(vla-startundomark adoc) 
(initget 4) 
(setq num 1) ;_Начальный номер 
(setq axss (vla-get-activeselectionset adoc)) 
(vlax-for a axss 
      (setq blk_list (cons a blk_list))) 
    
(setq sort_blk_list 
 (vl-sort blk_list 
    (function 
      (lambda (e1 e2) 
   (< (car (vlax-get e1 'Insertionpoint)) 
        (car (vlax-get e2 'Insertionpoint)))))))
(foreach blk_obj sort_blk_list 
(if (and (vlax-property-available-p blk_obj 'Hasattributes) 
    (vlax-read-enabled-p blk_obj) 
    (vlax-write-enabled-p blk_obj)) 
      (progn 
  (setq att_list (vlax-invoke blk_obj 'Getattributes)) 
  (foreach at att_list
    (if (eq (strcase (vla-get-tagstring at)) "ЛИСТОВ")
      (setq blk1 blk_obj));_Запоминаем штамп с атрибутом листов
    (if (eq (strcase (vla-get-tagstring at)) "ЛИСТ") 
      (progn 
   (vla-put-textstring at (itoa num)) 
   (vla-update at) 
   (vla-update blk_obj)))))) 
  (setq num (1+ num)))
(if blk1 
      (progn 
        (setq att_list (vlax-invoke blk1 'Getattributes)) 
     (foreach at att_list 
       (if (eq (vla-get-tagstring at) "ЛИСТОВ") 
         (progn 
           (vla-put-textstring at (itoa (1- num))) 
          (vla-update at) 
          (vla-update blk1)))))) 
(vla-clear axss) 
(vla-delete axss) 
(vlax-release-object axss))) 
(vla-regen adoc acactiveviewport) 
(vla-endundomark adoc)
(prompt (strcat "\nНумерация завершена. Всего "(itoa (1- num)) " элементов в пространстве " (cdr space)))
(princ) 
) 
(prompt "\nВ командной строке набери NLIST \n") 
(princ)

Даниил · 25.01.2006, 10:27

Огромное спасибо, то что надо

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

VVA · 25.01.2006, 14:56

Код:

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

(defun C:NLIST (/ adoc att_list axss blk_list num sort_blk_list blk_obj blk1 space lays lay lock) 
  (vl-load-com) 
  (setq   adoc (vla-get-activedocument 
          (vlax-get-acad-object) 
        ) 
  ) 
  (if (and 
   (= (getvar "tilemode") 0) 
   (= (getvar "cvport") 1) 
      ) 
    (setq acsp (vla-get-paperspace adoc) space (cons 410 (vla-get-name (vla-get-ActiveLayout adoc)))) 
    (setq acsp (vla-get-modelspace adoc) space (cons 410 "Model")) 
  )  
(if (ssget "_X" (list (cons 0 "INSERT") 
         '(-4 . "<OR")       
            (cons 2 "ЛИСТ ЛИСТОВ") ;_Имя блока штампа 
            (cons 2 "Лист") ;_Имя блока штампа 
   '(-4 . "OR>") 
        space ;_Модель или лист 
         (cons 66 1))) 
(progn 
;(setvar "attreq" 1) 
(vla-endundomark adoc) 
(vla-startundomark adoc) 
(initget 4) 
(setq num 1) ;_Начальный номер
(setq lays (vla-get-layers adoc))
(setq axss (vla-get-activeselectionset adoc)) 
(vlax-for a axss 
      (setq blk_list (cons a blk_list))) 
    
(setq sort_blk_list 
 (vl-sort blk_list 
    (function 
      (lambda (e1 e2) 
   (< (car (vlax-get e1 'Insertionpoint)) 
        (car (vlax-get e2 'Insertionpoint))))))) 
(foreach blk_obj sort_blk_list
 (setq lay (vla-item lays (vla-get-layer blk_obj)))
 (if (= (vla-get-lock lay) :vlax-true)
   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
(if (and (vlax-property-available-p blk_obj 'Hasattributes) 
    (vlax-read-enabled-p blk_obj) 
    (vlax-write-enabled-p blk_obj)) 
      (progn 
  (setq att_list (vlax-invoke blk_obj 'Getattributes)) 
  (foreach at att_list 
    (if (eq (strcase (vla-get-tagstring at)) "ЛИСТОВ") 
      (setq blk1 blk_obj));_Запоминаем штамп с атрибутом листов 
    (if (eq (strcase (vla-get-tagstring at)) "ЛИСТ") 
      (progn
	 (setq AAT at)
	 (setq lay (vla-item lays (vla-get-layer at)))
         (if (= (vla-get-lock lay) :vlax-true)
	   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
   (vla-put-textstring at (itoa num)) 
   (vla-update at) 
   (vla-update blk_obj)))))) 
  (setq num (1+ num))) 
(if blk1 
      (progn 
        (setq att_list (vlax-invoke blk1 'Getattributes)) 
     (foreach at att_list 
       (if (eq (vla-get-tagstring at) "ЛИСТОВ") 
         (progn
	 (setq lay (vla-item lays (vla-get-layer at)))
         (if (= (vla-get-lock lay) :vlax-true)
	   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
           (vla-put-textstring at (itoa (1- num))) 
          (vla-update at) 
          (vla-update blk1))))))
(if lock (foreach x lock (vla-put-lock x :vlax-true)))
(vla-clear axss) 
(vla-delete axss) 
(vlax-release-object axss))) 
(vla-regen adoc acactiveviewport) 
(vla-endundomark adoc) 
(prompt (strcat "\nНумерация завершена. Всего "(itoa (1- num)) " элементов в пространстве " (cdr space))) 
(princ) 
) 
(prompt "\nВ командной строке набери NLIST \n")

Даниил · 26.01.2006, 07:44

Спасибо!!!!!

Red Nova · 29.04.2008, 21:30

Вот нашел ваш форум, другого про нумеруцию листов нету. А если чертеж не в модели а на листах находится, и при этом:
Допустим имеем 10 листов, с похожими наименованиями, и поочередными номерами страниц. При это не обязательно чтобы первый лист начинался с 1, он может и с другой цифры начаться, ведь часть проекта может быть и в другом файле. Чтобы не переименовывать все листы по очереди (если есть нужда), было бы удобно заполнить название только первого листа, отметить все листы подлежащие перенумернацие, и получить в итоге похожие названия листов, разнумерованные по очереди. При этом перенумернацие подлежат только выделенные листы (ведь в файле могут быть листы которые не надо трогать).
Листы обычно у меня именуются так:
“1” “2” “3”
или
“К-1” “К-2” “К-3”
или
“КМ 1” “КМ 2” “КМ 3”

Как быть?

Модератору. Прсти что повторяюсь, но ты сам говорил ищи про нумерацию листов, вот я и нашел.

asys · 29.04.2008, 22:10

эх, вешал бы свои листы в sheet set, закладывая в штампик поле и не изобретал велосипед

Red Nova · 29.04.2008, 22:42

В штампике уже поле, а в шитсет пока не хочется лезть, хотя не исключаю на будущее
P.S. Дай свой файл пожалста. Посмотреть хочу как у тебя.

asys · 30.04.2008, 09:21

файлик не дам, извини

А рассказать могу - в текст номера листа вставляй поле завязанное на номер sheet-а в подшивке, оно называется current Sheet number останется только в менеджере подшивок (sheet set manager) пронумеровать листы.

Red Nova · 30.04.2008, 14:06

Цитата:

файлик не дам, извини

А понял, у тебя там сверх секретный проект. Мог бы хотя это все добро стереть, потом спургенить весь файл нафиг и только шитсет с полями оставить. Хотя и так понятно. Спасибо.
Я еще хотел узнать ты как ведомость чертежей делаешь. Тоже в шитсете? Ею можешь поделиться?

asys · 30.04.2008, 15:33

Цитата:

Сообщение от Red Nova

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

мне было лень

а с ведомостями попрошу подождать до 4-го числа, сижу на чемоданах, собрался уехать

Red Nova · 30.04.2008, 16:17

Доброго пути.

yurkiy · 01.07.2011, 14:12

Прошу помочь непонятливому.
Недавно совсем начал интересоваться автоматизацией AutoCAD. Распишите, пожалуйтса, пошагово как сделать в подшивке сквозную автонумерацию листов?

Vintorez · 01.07.2011, 15:33

Насколько я, понял в подшивках нет автонумерации.........
Я делаю так
Захожу в Диспетчер подшивки - Список листов -выбираю "первый" лист - Прав. кн. мыши - Сменить название и номер - вписываю номер - Ентер появляеться следующий по списку лист - вписываю номер - Ентер.......

yurkiy · 01.07.2011, 16:44

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

Сергей Богатов · 01.07.2011, 16:48

была тема уже - ищи лучше...

Используй поиск: "Нумерация листов из "менеджера подшивок"

Psyakrev · 01.07.2011, 17:09

Сергей Богатов,
Эта тема?

Автодеск в своем репертуаре. Подшивку добавили черт знает когда, а удобных инструментов для работы с ней до сих пор нет. Самому их написать затруднительно - доступ к SheetSet только через VBA, который уже пару лет официально не поддерживается. И куда податься бедному крестьянину - неужели в VB.NET? Или все же есть способ получить доступ к подшивке при помощи Lisp и ActiveX?

yurkiy · 01.07.2011, 18:03

Спасибо
нашел вот тут http://forum.dwg.ru/showthread.php?t=5111
у меня сработал
единственно надо каждому листу у нужном месте вставить блок или текстовое поле с CurrentSheetNumber.

Vintorez · 01.07.2011, 18:50

Цитата:

Сообщение от yurkiy

http://forum.dwg.ru/showthread.php?t=5111

- прочтя эту ссылку , так понял макрос привязан к Автокаду 2009 ???? А на 2012 пойдёт ....?????? Опишите если не трудно весь процесс........

Сергей Богатов · 04.07.2011, 08:49

Цитата:

с 2010 по-умолчанию не устанавливается VBA. Надо скачивать модуль. А по поводу привязки к версии - с того-же 2010 изменяется формат файлов, объектная модель и соответственно библиотека работы с подшивками. Так-что всё равно привязка к версии будет. Ну типа - 2007-2009, 2010-2011(12?).
Кстати - попробуй поменять библиотеку на AcSMComponents18 - может быть заработает. Это в окне VBA - меню Tools->References

в 2012 всё работает...

yurkiy · 04.07.2011, 09:30

Цитата:

Сообщение от Vintorez

- прочтя эту ссылку , так понял макрос привязан к Автокаду 2009 ???? А на 2012 пойдёт ....?????? Опишите если не трудно весь процесс........

я сделал так (файлы проекта собраны в подшивке *.dst)
1. скачал "копия autonumbering.dvb" (http://forum.dwg.ru/showthread.php?t=5111 post#11) и сохранил в подготовленной папке(любой);
2. открыл любой файл проекта;
3. Подгрузил данный макрос в проект - Tools/Macro/Load Project (у меня autocad англоязычный) в открывшемся окне находим файл "копия autonumbering.dvb" открываем ... и активируем макрос (Enable Macros);
4. Чтобы пронумеровать листы в подшивке - Tools/Macro/Macros и в окне выбрать нужный макрос (нумерация листов - autonumbering.dvb!Module1.changeNumber) и нажать Run.
В результате у каждого листа появляется в свойствах значение Sheet Number. Чтобы данный номер отображался на листе необходимо создать блок или ячейку таблицы со вставленным полем CurrentSheetNumber (Insert/Field/). Данный блок(ячейку) необходимо вставить на лист в пространстве листа в нужном месте (правый верхний угол).

Vintorez · 04.07.2011, 09:54

Спасибо !!!!!Сегодня попробую запустить автономератор!!!!!!!

P.S. "3. Подгрузил данный макрос в проект - Tools/Macro/Load Project (у меня autocad англоязычный) в открывшемся окне находим файл "копия autonumbering.dvb" открываем ... и активируем макрос (Enable Macros);" - Я не силён в аглицком , работаю в 2012 rus, подгружать макрос нужно через " Макрос VBA" , этот модуль на стандартном 2012 на стоит надо подгружать ,.....подгрузил из Нета.....По правильному пути иду ......????? Через ""Приложения" не удаётся подгрузить ,не видит..........

Модуль подгрузил .....
"1. скачал "копия autonumbering.dvb" (http://forum.dwg.ru/showthread.php?t=5111 post#11) и сохранил в подготовленной папке(любой);
2. открыл любой файл проекта;
3. Подгрузил данный макрос в проект - Tools/Macro/Load Project (у меня autocad англоязычный) в открывшемся окне находим файл "копия autonumbering.dvb" открываем ... и активируем макрос (Enable Macros);
4. Чтобы пронумеровать листы в подшивке - Tools/Macro/Macros и в окне выбрать нужный макрос (нумерация листов - autonumbering.dvb!Module1.changeNumber) и нажать Run." - и тут выскакиват редактор какой то и пишет что не найдены библиотеки ......

Сергей Богатов -"Кстати - попробуй поменять библиотеку на AcSMComponents18 - может быть заработает. Это в окне VBA - меню Tools->References" Что такое поменять библиотеку ,я поставил галочку на AcSMComponents18 , может другие галочки снять????

yurkiy · 04.07.2011, 12:57

я в 2012 не работал
желаю удачи

Сергей Богатов · 04.07.2011, 13:02

Цитата:

Сообщение от Vintorez

библиотеку ,я поставил галочку на AcSMComponents18 , может другие галочки снять????

сними где стоит "missing"

Vintorez · 04.07.2011, 14:16

Цитата:

Сообщение от Сергей Богатов

сними где стоит "missing"

Спасибо Серёга !!!!! Но вылезла другая неприятность ,у меня проект в Подшивках состоит из группы - подгруппы - так. далее.....Нумерация произошла только в каждой "ячейке" ,а в другой "ячейке" по новой т.е. Группа Рм1 - 1.Рама1, 2.Колонна1 и т.д. Группа Рм2 - 1.Рама2, 2.Колонна1 и т.д. .....Надеюсь понятно,обьяснил. Как боротся с Этим ????? Сделать весь проект в "одну-ячейку".....

Сергей Богатов · 04.07.2011, 14:25

Цитата:

Сообщение от Vintorez

Как боротся с Этим ?????

1. Убрать SubSet_ы

Цитата:

Сделать весь проект в "одну-ячейку".....

2. Править код...

Vintorez · 04.07.2011, 14:34

Цитата:

Сообщение от Сергей Богатов

1. Убрать SubSet_ы

Так Я понимаю в коде надо ,убрать но там либо Sub или Set , может чего-то не догоняю..Обьясни поподробнее...с програмированием не дружу.....

Сергей Богатов · 04.07.2011, 15:22

Цитата:

Сообщение от Сергей Богатов

1. Убрать SubSet_ы

Имелось в виду сделать подшивку без "групп" (SubSet - в английской версии).
А править код - дольше объяснять... особенно если не дружишь с программированием

Vintorez · 04.07.2011, 16:01

Понятно .......проект в 130 листов ,в группе 7-8 листов......Щас начну строить в одну колонну , бо уже на выходе .....

Зато,обнаружил что между группами с 14 л. на 16 л. перескакивал и только сейчас обнаружил в одной колонне ,хотя проверял и ГИП и ГАП!!!!!!

24.01.2006, 13:02		#1
Нужно пронумеровать листы Даниил Регистрация: 19.01.2006 Сообщений: 16 Есть файл, в нем несколько листов в пространстве модели, в штампе на каждом листе в месте простановки номера листа стоит блок с атрибутом "ЛИСТ", можно ли пронумеровать все листы (автоматически не выбирая каждый атрибут) если все листы точно распологаются друг за другом по Х ?????????? И если можно занесением общего количества листов (блоков с атрибутами "ЛИСТ") в штамп на первом листе (тоже блок с атрибутом "ЛИСТОВ")???? Наверное многово хочу, но если кто знает подскажите!!!!!
Просмотров: 13730