[WhiteShark]

Прошу прощения за детский вопрос, но чо то как то не могу

Написал вот гасилку слоев

(defun c:loff (/)
(vl-cmdf "-layer" "OFF" (strcat "~*" (read-line) "*") "N" )
)

Но в конце команда остается активной и просит следующую опцию. Каждый раз вручную нажимать на ESC напрягает. Как прервать команду программно, подскажите?

И заодно вопрос №2. Имена принтеров в настройках лэйаутов хранятся в словарях чертежа ведь?

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

Попробуй так:

Код:

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

 (defun c:loff (/)
(vl-cmdf "_.-layer" "_OFF" (strcat "~*" (read-line) "*") "_N" "")
)

[Do$]

Сообщение от WhiteShark И заодно вопрос №2. Имена принтеров в настройках лэйаутов хранятся в словарях чертежа ведь?

Нет, в свойствах печати листа.

[WhiteShark]

to Кулик Алексей aka kpblc
Так, конечно, пробовал, Алексей. Пробовал еще через chr(27). Не выходит. Еще варианты?

to Do$
Так эти свойства они где хранятся?

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

WhiteShark, тебе что надо сделать-то? Отключить все слои, кроме указанного?

[WhiteShark]

Отключить слои по маске. Иначе б я просто isolate'ом пользовался. Но вообще в принципе интересно как быть в случае таких команд? То есть как ответить на вопрос в топике?

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

Я бы вообще командами не пользовался...
Если через ActiveX:

Код:

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

 (vl-load-com)

(defun layon-by-mask (mask / adoc)
                      ;|
*    Отключение слоев по маске
*    Параметры вызова:
  mask    маска имен слоев, которые надо оставить "включенными"
|;
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for item (vla-get-layers adoc)
    (vla-put-layeron
      item
      (if (wcmatch (strcase (vla-get-name item)) (strcase mask))
        :vlax-true
        :vlax-false
        ) ;_ end of if
      ) ;_ end of vla-put-layeron
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[WhiteShark]

Не, ну можно, конечно, по воробьям из из ActiveX шмалять..
Я то просто три строчки писал на скорую руку.

Просто есть и другие такие цикличные команды (pedit к примеру). Там такая же фигня с выходом. Нету способа что ли программно их тормозить?

Пока решил задачу, повесив макрос на кнопку и посылая ему ^C^C в конце

[ShaggyDoc]

Нажатие ESC в Lisp имитируется функцией без аргумента (vl-cmdf) или (command)

[WhiteShark]

а всё, понял что надо было следующей строкой добавлять.

[Do$]

Сообщение от WhiteShark to Do$ Так эти свойства они где хранятся?

Для доступа с помощью VBA/VisualLISP:
http://vbamodel.narod.ru/AutoCAD/idh_layout_object.htm

[WhiteShark]

Ммм.. спасибо за намёк Do$, а SetPlotDeviceName не бывает что ли? Как же назначить лэйауту PlotDeviceName?

----- добавлено через ~7 мин. -----

Сообщение от WhiteShark Ммм.. спасибо за намёк Do$, а SetPlotDeviceName не бывает что ли? Как же назначить лэйауту PlotDeviceName?

Вроде сам догадался
(vlax-put-property (vlax-get-property (vla-get-activedocument (vlax-get-acad-object)) 'ActiveLayout) 'ConfigName "ххх")

[Do$]

Можно и без vlax-get/put (свойства-то известны автокаду):
(vla-put-ConfigName (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object))) "ххх")

[CB]

Код:

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

(vl-cmdf "-layer" "OFF" (strcat "~*" (read-line) "*") "N" "" "")

[WhiteShark]

CB, как ни странно, но ваш вариант, будучи скоприрован в ком строку, вызывает по завершению предыдущую команду

Хотя если вводить эту последовательность в интерактивном режиме с клавы, то последний enter действительно выводит из цикла.

[roaa]

Код:

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

 (vl-cmdf "_.-layer" "_OFF" (strcat "~*" (read-line) "*") "_N" "" "") 

В конце макроса пробел

----- добавлено через ~52 мин. -----
Для команды попробуй

Код:

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

 (defun c:loff (/)
(vl-cmdf "_.-layer" "_OFF" (strcat "~*" (read-line) "*") "_s" (getvar "CLAYER") ""))