[dextron3]

Задался вопросом, как будет выглядеть макрос на кнопку,
чтобы он проделовал следующие действия:

Алгоритм:

1. Выбор самого последнего лайаута
2. Копирование его в конец списка
3. К номеру выбранного лайаута прибавить +1
4. Остаться на полученном лайауте.

Буду ждать полезных советов,
и можно ли это сделать макросом?

[dextron3]

VVA, лисп из поста #5 не кооректно себя ведет, например,
когда на 9 создаешь 10, 10 появляется не в конце, а перед 9,

[VVA]

Так ведет себя команда _LAYOUT. Пришлось прибегнуть к помощи vla- методов. По другому не знаю как.

Код:

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

(defun C:test ( / layout_names layout_length old_layout_name new_layout_name)
  (vl-load-com)
  (setq layout_names (LAYOUTLIST))
  (setq layout_length (apply 'max (mapcar 'atoi layout_names)))
  (setq old_layout_name (itoa layout_length))
  (if (member old_layout_name layout_names)
    (progn
      (setq new_layout_name (itoa (1+ layout_length)))
      (command "_.LAYOUT" "_C" old_layout_name new_layout_name)
      (vla-put-TabOrder (vla-item(vla-get-layouts(vla-get-activedocument
      (vlax-get-acad-object))) new_layout_name)(length (layoutlist)))
      (setvar "CTAB" new_layout_name)
    )
    (alert "имена листов не такие, как задумал dextron3")
  )
  (princ)
)

[dextron3]

Command: LAYNEXT
_.LAYOUT
Enter layout option [Copy/Delete/New/Template/Rename/SAveas/Set/?] <set>: _C
Enter name of layout to copy <9>: 9
Enter layout name for copy <9 (2)>: 10 Layout "9" copied to "10".

Command: ; error: Automation Error. Invalid value for property TabOrder

работает также как и предыдущий только еще в командной строке ругается

[VVA]

Изменил #22

[dextron3]

VVA, не до конца, при порядке листов 11, 12, 9 выдает лист 13,
хотя по аналогии дожен выдавать 10 .... так как активным является 9

[VVA]

Нет не должен. Для следующего номера берется лист с максимальным номером и увеличивается на 1. А если текущим является лист 9, а лист 10 уже существует.

[VVA]

Выложил в "Готовых программах" команду LAYINC - копирование листа с автоувеличеним его номера. Причем название листа может быть цифровым (лист "9" скопируется в "10"), буквенным (лист "Лист А" скопируется в "Лист Б") или буквенно-цифровым (лист "Кж-1.1" скопируется в "Кж-1.2"). Подробности и иллюстрации по ссылке http://dwg.ru/f/showthread.php?p=238638

[dextron3]

VVA, откоментировал в посланном месте
если честно я не понимаю людей которые пишут Кж-1, Кж-2, Ар-1, Ар-2, ведь если ты архитектор то естественно у тебя будут только АР, если ты конструктор-КЖ, все вроде бы понятно, а буквы КЖ, и АР дают меньще места на экране для расположения большего числа лайаутов, ...

Но если ты Ар и КЖ делаешь одновременно то Делай марку АС, но не надо писать Ас-1, Ас-2,.....

Если я что то не так понял объясните мне...