[Xara]

Всем привет!

Кто-нибудь в курсе, можно ли программно согласовать все несогласованные слои?

Код:

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

Command: -LAYER

Current layer:  "0"
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: _e

Enter name list of layer(s) to turn reconcile or <select objects> or [?]:

[Do$]

Может быть так?:

Код:

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

(vl-cmdf "_.-layer" "_e" "*" "")

[Xara]

Сообщение от Do$ Может быть так?: Код: (vl-cmdf "_.-layer" "_e" "*" "")

Дааа! Спасибо! Как же я до звездочки не докумекал...))

[VVA]

Может быть так? ( LAYERNOTIFY )

Код:

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

(setvar "LAYEREVAL" 0)(setvar "LAYEREVALCTL" 0)(setvar "LAYERNOTIFY" 0)

[Xara]

Сообщение от VVA Может быть так? ( LAYERNOTIFY )

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

[Xara]

Уважаемые друзья!

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

После выполнения ^C^C(vl-cmdf "_.-layer" "_e" "*" "") остается запрос на ввод ключа:

Код:

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

Command: (vl-cmdf "_.-layer" "_e" "*" "") _.-layer
Current layer:  "0"
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: _e
No unreconciled layers in drawing.
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: *
Invalid option keyword.
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: *Cancel*

Имитация нажатия кнопки ENTER почему-то не срабатывает. Кто-нибудь знает, почему?

UP: У меня на ACAD2015, на ACAD2014 и ACAD2012 все нормально. У другого юзера - на 2015 все плохо (описано выше).

[Do$]

Проверил на AutoCAD Civil 2014 Rus без SP. При первом запуске макроса все нормально, при повторном уже вылезает эта оказия. Проверь значения системных переменных из сообщения #4 до/после первого запуска, а также у себя и у пользователя, есть подозрение, что какая-то из них влияет на поведение команды.

[VVA]

Я бы проверил, не появилась ли еще какая нибудь LAYER??? в 2015

Команда: _setvar Имя переменной или [?]: ? Список переменных для вывода <*>: LAYER* LAYERDLGMODE 1 LAYEREVAL 0 LAYEREVALCTL 1 LAYERFILTERALERT 2 LAYERNOTIFY 0

----- добавлено через ~6 мин. -----
Xara, Без проверки. Попробуй такую версию макроса

Код:

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

 ^C^C(progn(vl-cmdf "_.-layer" "_e" "*" "")(while(>(getvar "CMDACTIVE")0)(command)))

[Xara]

Спасибо, заработало!

Сообщение от VVA Xara, Без проверки. Попробуй такую версию макроса Код: [Выделить все] ^C^C(progn(vl-cmdf "_.-layer" "_e" "*" "")(while(>(getvar "CMDACTIVE")0)(command)))

P.S.: Проверить появление переменных не смог, юзер исчез куда-то...

[Profan]

Сбежал подлец.

[Xara]

Я совсем запутался((

Добавил в панель макрос для комплексной чистки, он выполняет последнюю команду почему-то...
Может, переменные какие гуляют?

Текст макроса:

Код:

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

^C^C(progn
(vl-load-com)
(vl-cmdf "_-scalelistedit" "_r" "_y" "_e")
(vl-cmdf "_delconstraint" "_all" "")
(vl-cmdf "explodeallproxy")
(vl-cmdf "removeallproxy")
(vl-cmdf "_audit" "_y")
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
(progn(vl-cmdf "_.-layer" "_e" "*" "")(while(>(getvar "CMDACTIVE")0)(command)))
(alert "Чистка чертежа выполнена")
)

Любопытно, что:
- На одном компе выполнение последней команды (выполненной перед вызовом макроса) происходит или после команд EXPLODEALLPROXY и REMOVEALLPROXY;
- На другом компе - после (vl-load-com).
Подскажите пожалуйста, что в макросе не так?

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

Вообще-то я бы сделал нормальный lsp и загружал его. А так - попробуй

Код:

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

^C^C(progn(vl-load-com)(vl-cmdf "_-scalelistedit" "_r" "_y" "_e")(vl-cmdf "_delconstraint" "_all" "")(vl-cmdf "explodeallproxy")(vl-cmdf "removeallproxy")(vl-cmdf "_audit" "_y")(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))(vl-cmdf "_.-layer" "_e" "*" "")(while (> (getvar "CMDACTIVE") 0) (command))(alert "Чистка чертежа выполнена"))

[Xara]

Прости, Алексей, а чем отличается представленный тобой вариант от моего?
Насколько я заметил, разница лишь в переносах строки, но я их добавил намеренно, чтобы разобрать можно было смысл.

Сообщение от Кулик Алексей aka kpblc Вообще-то я бы сделал нормальный lsp и загружал его. А так - попробуй Код: [Выделить все] ^C^C(progn(vl-load-com)(vl-cmdf "_-scalelistedit" "_r" "_y" "_e")(vl-cmdf "_delconstraint" "_all" "")(vl-cmdf "explodeallproxy")(vl-cmdf "removeallproxy")(vl-cmdf "_audit" "_y")(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))(vl-cmdf "_.-layer" "_e" "*" "")(while (> (getvar "CMDACTIVE") 0) (command))(alert "Чистка чертежа выполнена"))

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

В убирании лишнего progn и изменении положения одной скобки. Смотри внимательнее

[Xara]

Теперь он висит в ожидании нажатия клавиши ENTER...((

Бррр... Сделал проще. Забиндил команды в панельке на нужные, а их вызов описал в MNL-файле.