[master_vlad]

Известно, что Autocad сам нумерует Layout при их копировании, напримет так Layout1 ; Layout1 (2) ; Layout1 (3) ... итд.
Очевидно что это можно использовать именуя первый (1), тогда второй при копировании автоматически станет (2), более того, можно организовать чтение названия листа и вставки его в штамп (лист)
например так

Код:

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

%<$(substr, $(getvar, ctab), 3, $(-, $(strlen, $(getvar, ctab)), 3))>%

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

Вопрос: как на дизеле определить количество листов всего?

нашел вот что

Код:

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

(vla-get-count (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))

, но как написать тоже самое на дизеле сообразить не могу. помогите плз.

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

Я не знаю, может, сработает нечто наподобие

Код:

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

(LENGTH (LAYOUTLIST))

:?:

[VVA]

В дизеле нет возможности вычислить лисп функцию, но можно запомнить результат в переменной.
1. Имеем кнопку, которая запоминает количество листов в переменной USERI1

Код:

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

(setvar "USERI1" (length(layoutlist)))

2. Собственно поле

Код:

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

%<\AcDiesel $(substr, $(getvar, ctab), 3, $(-, $(strlen, $(getvar, ctab)), 3))-$(getvar,USERI1)>%

Вариант для Modemacro

Код:

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

(setvar "modemacro" "$(substr, $(getvar, ctab), 3, $(-, $(strlen, $(getvar, ctab)), 3))-$(getvar,USERI1)")

[master_vlad]

Спасибо
актуальнее кажется

Код:

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

%<\AcDiesel $(getvar,USERI1)>%

[Sta1917]

Приветствую, использую переменную USERI1 для подсчета количества листов в чертеже и отображаю их текстом в ячейке "Листов" через поле %<\AcVar USERI1>%
Номер листа в тексте указываю полем через Дизель выражение $(substr,$(getvar,CTAB),1,2)
Как составить выражение с функцией "если": если количество листов один не отображать номер листа.
$(if, (>, AcVar USERI1, 1), $(substr,$(getvar,CTAB),1,2) [, '']) - не заработала

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

Код:

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

$(if, $(>, $(getvar,CTAB), 1), $(substr,$(getvar,CTAB),1,2) [, ''])

:?:
Не проверял
P.S. Второй вариант, тоже без проверок

Код:

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

$(if, $(>, $(getvar,CTAB), 1), $(substr,$(getvar,CTAB),1,2) , "")

[Sta1917]

Вместо считывания номера, поставил переменную USERI1

Код:

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

 $(if, $(>, $(getvar,USERI1), 1), $(substr,$(getvar,CTAB),1,2), )