[VVA]

По мотивам http://dwg.ru/f/showthread.php?t=19936
Команды

• LTINC - Копирование содержимого листа с увеличением его порядкового номера (Increment current layout including letters) Drawing_A -> Drawing_B
• LTINCN - Копирование содержимого листа с увеличением его порядкового ЦИФРОВОГО номера (Increment DIGITAL number current layout) Drawing_A -> Drawing_A-1
• LTREN - Переименование выбранных листов (Rename selected layout)
• LTRENN - Переименование выбранных листов с увеличением его ЦИФРОВОГО номера (Rename selected layout and increment its DIGITAL number)
• LTSORTN - Сортировка листов в порядке возрастания цифры как числа (L1 L2 L3 L22) [Layout sort as numeric (L1 L2 L3 L22)]
• LTSORTA - Сортировка листов в порядке возрастания по алфавиту (L1 L2 L22 L3) [Layout sort as alphabetic (L1 L2 L22 L3)]
• LS - Переключение на нужный лист (Layout switch)
• LTRS - Переименование листов с последующей сортировкой. (Rename and sort as numeric) LTREN + LTSORTN

Иконки и меню смотрим в#10 и в #73

PS. Похожая программа от Lee Mac TabSort
PPS. Во вложении переведенный на русский TabSort от Lee Mac

[dextron3]

VVA, спасибо! не обратил внимание!

[dextron3]

VVA, нашел баг, связанный с первым листом, при работе лиспа, прикалдываю видеоролик:

[Konstruktiv54]

Интересно, а с помощью этих инструментов можно так сделать, что бы листы 1а, 2а, 3а, 1b, 2b, 3b расположить как 1a, 1b, 2a, 2b, 3a, 3b.
Или подскажите, что надо поправить в скрипте, что бы при переименовании листов, порядковый номер изменялся не на +1, а на +2 )

[VVA]

ShaRhaN, А попробовать? По моему и LTSORTN и LTSORTA должны так сделать

[Konstruktiv54]

ВВА, разумеется пробовал )) бился очень долго, не смог придумать...как только не придумывал переименовать, что бы отсортировать ) у меня не получилось, поэтому и обратился на форум...в остальном лиспом пользуюсь очень давно, всегда радует меня )
Вот если бы так можно было...
Есть листы: 1,2,3...
Применяем команду ltren2, указываем лист, с которого надо начать: 1
Получаем листы: 1,3,5...

[VVA]

ShaRhaN, После отпуска гляну. Добавил в #1 ссылку на программу от Lee Mac Попробуй, может подойдет

[Konstruktiv54]

спасиб! гляну )

[VVA]

Добавил к первому посту переведенную на русский версию Tabsort от Lee Mac

[Red Nova]

VVA,
при применении LTREN на 2013х64 программа зависает.

[VVA]

Red Nova, Спасибо за дефектацию. Пока нет времени. За мной долг с темы АВТО Заполнение ведомости рабочих чертежей. Напомни мне еще про это числа 17 июня. Попробуй tabsort с #1. Может не будет зависать

[MeshIN]

VVA, зависает программа при сортировке листов, автокад 2013

[VVA]

MeshIN, Проверил. Win7 x64 Acad2013x64 SP2 LTSORTN и LTSORTA работают. Выкладывай более подробную информацию вместе с файлом

[Red Nova]

VVA, Попробуй применить LTINC к листу с названием к примеру h или x на 2013x64. Акад либо зависнет окончательно либо задумается ну очень надолго. При этом листы с номерными названиями или заканчивающиеся на цифру (к примеру 1, 2, 3, x1, x2, x3) не вызывают сбоя. Возможно зависание при LTREN (которое тоже не на каждом файле возникает) имеет схожую причину.

P.S. По моему раньше не выкладывал. Прикрепляю менюшку с иконками для layout команд + vrc. У меня стоит вот уже на которой версии акада. Может кому еще пригодится...

[VVA]

Red Nova, Попробовал. Все нормально. После x появляется y, после h - i. На всякий случай перезалил в #1 тот лисп, на котором тестировал.

Сообщение от Red Nova P.S. По моему раньше не выкладывал.

Это не тоже самое? http://forum.dwg.ru/showthread.php?p=239007#post239007

[Red Nova]

VVA,

Попробовал. Все нормально. После x появляется y, после h - i. На всякий случай перезалил в #1 тот лисп, на котором тестировал.

Потыкал, оказалось что у меня в macro вместо ^C^C_ltinc почему-то ^C^C_ltinc1. Теперь все исправилось. Странно что при ^C^C_ltinc1 программа вообще работала в каких то случаях. Наверное сам намудрил...

Это не тоже самое? http://forum.dwg.ru/showthread.php?p=239007#post239007

Все верно. Что-то с памятью моей стало...

[Red Nova]

VVA, Прошу проверить SHTUPDALL на 2013x64. У меня зависает. И действия аналогичные #75 не помогли.
При этом SHTUPD работает корректно.

Код:

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

 (defun C:SHTUPDALL ()(update-shtamp-block nil))
(defun C:SHTUPD ()(update-shtamp-block (getvar "CTAB")))
;; obj - Ename or Vla object of block
;; att_list - list ((Tag_Name1 . Value1)(Tag_Name2 . Value2) ...)
;; Tag_Name - string
;; Value - string

(defun mip-block-setattr-bylist (obj att_list / txt lst)(vl-load-com)
(if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
(setq att_list (mapcar '(lambda(x)(cons (strcase (mip-conv-to-str(car x)))(mip-conv-to-str(cdr x)))) att_list))
(if (and obj
(not(vlax-erased-p obj))
(= (vla-get-ObjectName obj) "AcDbBlockReference")
(eq :vlax-true (vla-get-HasAttributes obj))
(vlax-property-available-p obj 'Hasattributes)
(vlax-write-enabled-p obj)
)
(vl-catch-all-apply
(function
(lambda ()
(foreach at (vlax-invoke obj 'Getattributes)
(if (setq lst (assoc(strcase(vla-get-TagString at)) att_list))
(vla-put-TextString at (cdr lst))
)
)
)
)
)
)
)
(defun mip-conv-to-str (dat)
(cond ((= (type dat) 'INT)(setq dat (itoa dat)))
((= (type dat) 'REAL)(setq dat (rtos dat 2 12)))
((null dat)(setq dat ""))
(t (setq dat (vl-princ-to-string dat)))))
;;;csp - имя листа (getvar "CTAB")
;;; или nil - все листы
;;(setq csp (getvar "CTAB"))
(defun update-shtamp-block ( csp / ss i n Target-Tag-Name attValue ch )
(setq Target-Tag-Name "ЛИСТ") ;_ ТАГ (имя) атрибута блока
(if csp
(setq ss
(ssget "_X" (list
'(0 . "INSERT")
'(66 . 1)
(cons 410 csp)
)
)
)
(setq ss
(ssget "_X" (list
'(0 . "INSERT")
'(66 . 1)
)
)
)
)
(repeat (setq n (sslength ss)) ;_ end setq
(cdr(assoc 410(entget (setq item (ssname ss (setq n (1- n)))))))

(if (/= (setq attValue (cdr(assoc 410 (entget item)))) "Model" )
(progn
(setq i 0)
(while (or
(not(wcmatch (setq ch (substr attValue (setq i (1+ i)) 1)) "#"))
(= ch "")
)
)
(setq attValue (substr attValue i))
(mip-block-setattr-bylist item (list(cons Target-Tag-Name attValue)))
)
)
) ;_ end
)

[zz07]

Здравствуйте! Спасибо за лисп!
Можно ли как-то применить ваш лисп для автоматической нумерации в штампе?
Например имена layout'ов у меня "1", "2", "3", "4" и штампах листов стоят соответствующие номера листов. При удалении layout 2, перенумеровывая layout на "1", "2", "3" с помощью лиспа, чтобы номера в штампе соответственно изменились.
И еще, можно ли как-то в названии каждого листа зафиксировать собственный текст, а именно: Layout'ы называются "План л.1", "Разрез л.2", "Армирование л.3" и при удалении листа №2, чтобы было "План л.1", "Армирование л.2"

[VVA]

Сообщение от zz07 При удалении layout 2, перенумеровывая layout на "1", "2", "3" с помощью лиспа, чтобы номера в штампе соответственно изменились.

Вставь в штамп поле. Категория Прочее->Системная переменная->CTAB
Эта переменная ссылается на имя текущего листа

[Isuma]

Товарищи, а на 2015 Acadе не работает?
эммм..работает. просто сразу не подгрузился, почему-то

[zz07]

Сообщение от VVA Категория Прочее->Системная переменная->CTAB

У меня эта переменная ссылается на текст который написан в имени layout. Т.е. у меня написано "лист 2" и поле выводит "лист 2", а не просто номер.