[Автокадер]

привет!
хочу сделать чтобы при выборе примитивов сразу выскакивало окно выбора слоя в который можно переместить эти примитивы, без выбора дополнительных опций (имя)
проблема в том чтобы организовать нормальный выбор примитивов, с лиспом указанном ниже, когда щёлкаю в пустую область, выдаёт ошибку


(defun c:нн ()
(command "слойизмнеск" pause "имя")
)

[Profan]

Код:

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

Слишком простецкий лисп.

В таком лиспе смысла нет никакого, потому что эту операцию легко можно выполнить с помощью палитры свойств.

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

Автокадер, а ты правила именования тем читал? У тебя 12 часов на исправление ситуации.

[Автокадер]

Сообщение от Profan Код: [Выделить все] Слишком простецкий лисп. В таком лиспе смысла нет никакого, потому что эту операцию легко можно выполнить с помощью палитры свойств.

Профан, хах!! да ты что??? через панель свойств можно?? спасибо тебе, мегамозг, я то дурак не знал!!!!!


для тебя, умник - вопрос был задан на примере данного простого лиспа, с целью выяснить можно ли организовать нормальный выбор примитивов как он осуществляется при использовании команды "слойизмнеск". При использовании это лиспа выбор примитивов корявый, выдаёт ошибки при щелкании в пустой области и т.д.

[Profan]

Смешливый очень? Команда "_laymch" ("слойизмнеск") после завершения выбора объектов предлагает еще один выбор - или указать на объект, слой которого надо использовать для изменения слоя выбраных объектов (1), или вывести на экран диалоговое окно выбора слоя (2). Причем, умолчания здесь нет. Опцию "_name" ("имя") надо или ввестия явно в командную строку, или воспользоваться правой кнопкой мыши для вызова контекстного меню.
Два варианта:

Код:

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

(defun c:NN ( / ss)
(setq ss (ssget))
(vl-cmdf "_laymch" ss "")
(princ)
)

Код:

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

(defun c:NN ()
(vl-cmdf "_laymch" pause)
(princ)
)

Случай 2 не так интересен, поскольку эту процедуру можно выполнить с помощью палитры свойств, а вот для случая 1 как раз диалоговое окно не нужно.

[VVA]

Сообщение от Автокадер хочу сделать чтобы при выборе примитивов сразу выскакивало окно выбора слоя в который можно переместить эти примитивы

Код:

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

(defun c:нн ( )
  (vl-load-com)
  (princ "\nВыберите объекты для изменения слоя")
  (setq ss nil)
  (if (setq ss (ssget "_:L"))
    (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))
      "_laymch !ss  _N\n")
    )
)

_LAYMCH пришла из ExpressTools. Поэтому (?) при использовании опции "_name" в фунцкции (command ...) диалоговое окно не появляется, а запросы идут в командной строке. Пришлось изворачиваться с помощью Sendcommand

[Автокадер]

Спасибо, Profan и VVA !!! разобрался

[Profan]

VVA, но ведь в твоем коде исчезла возможность указания на объект с нужным слоем...

[VVA]

Profan, Из первого поста я понял, что это Автокадеру не нужно, а нужен сразу диалог со слоями

[Profan]

Черт, да ведь диалог со слоями и не нужен вовсе, повторяю, да и команда не нужна, лишние движения, IMHO. Вот у меня палитра свойств всегда раскрыта справа, я выбрал несколько объектов и сразу в поле "Слой" указываю нужный.

[VVA]

Сообщение от Profan да ведь диалог со слоями и не нужен вовсе

я с этим согласен. Все можно сделать в свойствах.

[Автокадер]

ИМХО через "слойизмнеск" это делать граздо удобней, чем через свойства, так как есть возможность, набора названия слоя с клавы, что быстрее, чем выбор по списку, при этом можно быстро создать новый слой, без открытия диспетчера слоёв

[Profan]

А потом все равно придется вызывать диспетчер слоев, чтобы задать цвет, типлин, вес...

[Автокадер]

VVA, а где можно почитать о Sendcommand? а лучше просто поясни как работает этот лисп, что делают функции в нём, если не сложно)

[VVA]

Сообщение от Автокадер VVA, а где можно почитать о Sendcommand?

C:\Programm Files\Autocad XXXX\HELP\acadauto.chm
ObjectModel->Methods->SendCommand
Если в друх словах, то

(vla-sendcommand ;->В командную стоку (vla-get-activedocument ;-> Активного документа (vlax-get-acad-object)) ;->объекта Автокада "_laymch !ss _N\n" ;->Посылается эта строка )