Возможно ли и как программным путем автоматизировать переключение текущего слоя на специализированный слой (например -"Размеры") при использовании штатных команд образмеривания AutoCADа и возвращение на текущий слой после выполнения команды. Плииииз.
P.S. СПДС не предлагать ))

[Lenich]

Если разбираетесь в VB то можно примерно так:
Прописать следующее в Autocad object'ах в VB

Код:

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

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)

CName = Array("DIMLINEAR", и остальные размеры можно здесь добавить)
'При этих командах будет всегда выполняться функция "switchToLayer".
'MsgBox CommandName
   For Each X In CName
    If (CommandName = X) Then
        switchToLayer
     End If
   Next
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)

   For Each X In CName
    If (CommandName = X) Then
        switchToBack
     End If
   Next
End Sub

И сделать модуль с описанием функций switchToLayer и switchToBack

Код:

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

Dim currLayer As AcadLayer

Public Function switchToEnglish()

    Set currLayer = ThisDrawing.ActiveLayer
    ThisDrawing.ActiveLayer = "DimLayer"

End Function
Public Function switchToBack()
    ThisDrawing.ActiveLayer = currLayer
End Function

Конечно не проверял но должно все работать.

Возможно путем переопределения соотв. команды и введения переключателя слоев.

[Эдуард]

http://autokad.ru/forum/viewtopic.php?t=1710

Спасибо всем откликнувшимся.Решение нашли в книге Зуева, Полещука "САПР...Как это делается" (Книга просто супер)
Приводим код своей программы. Команды с префиксом "NC_" собственные подпрограммки. Действие их расшифрованы в примечаниях.

(defun C:NC_DimLinear ()
(NC_Starter); сохранение важных системных переменных , в том числе имя текущего слоя
(NC_SetLayer NC_DIMLAY)); включение (и при необходимости создание) размерного слоя
(NC_EchOn); включение вывода запроса команды в командную строку
(command "_.dimlinear");вызов команды образмеривания AutoCAD
(while (= (logand (getvar "CMDACTIVE") 1) 1) (command pause)); выполняем все запросы этой команды
(NC_Finisher);восстановление всех важных системных переменных, в том числе имя текущего слоя
(princ)
)

Подобная прогрммка создается для каждой команды образмеривания ("dimangular", "dimradius" и т.д. или чего угодно другого) AutoCAD.

[Garbag]

А вот объясните мне чем плохо дописать в макрос команды
_-Layer (установка текущим размерного слоя) - а после выполнения команды размера - _-Layerp
:?:
Жду ГНЕВНЫХ отзывов

[Startrek]

>>Garbag

Я делаю примерно так же..... Ну зачем огород городить для такой простой задачи?
И на кнопку посадил...... :shock:

[vk]

Сообщение от Garbag А вот объясните мне чем плохо дописать в макрос команды _-Layer (установка текущим размерного слоя) - а после выполнения команды размера - _-Layerp :?: Жду ГНЕВНЫХ отзывов

Нечто вроде этого?

Код:

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

^C^C_.-layer;_s;размеры;;_.dimlinear;\\\_.layerp;

Скорей всего, к этому придется привыкнуть. Предположим, текущий слой "Детали", на нем что то рисуется, рисуется, образмеривается (с кнопки!), опять рисуется, опять нажимается кнопка и... ой, что то не дорисовали - жмем ESC.... Внимание! Вопрос: Какой слой останется активным :?: :wink:


Лучче так

Код:

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

^C^C_.dimlinear;\\\_.chprop;_l;;_la;размеры;;

ИМХО, конечно.

[Garbag]

>>vk
Абсолютн согласен с замечанием - текущим слоем останется слой Размеры, но по опыту - это не так часто происходит (нажатие Esc), и перейти на предыдущий слой в принципе несложно.
ИМХО.
Ваш макрос очень неплох - опробую завтра на работе - спасибо.
Но в любом случае, мне кажется писать для такой маленькой проблемки ЛИСП - перебор ИМХО

в догонку: я просто переделал акадовскую панельку РАЗМЕРЫ с использованием этого макроса и сделал ее в отдельное меню - так что нежелающим таким образом размеры ставить - всегда можно воспользоваться стандартной панелью.

Привет всем и спасибо за учебу. И в самом деле-попробовал на кнопки макросы посадить-работает. Но штриховка, если вешать по такому же принципу, становиться текущим слоем-по завершению команды. Создал аналог слоя пунктир -по типу line -странно отрабатываю точки привязки. Может кто разъяснит?
И еще-команды через правую кнопку на повтор не включаются, только через повторное нажатие кнопки-что не есть хорошо. :roll:
Да объясняю зачем лисп привязывал-хотелось бы чтобы нужные слои создавались автоматом, при их отсутсвии в данном файле. Хотя и то что вы показали-не лишено здравого смысла.
Вопрос еше по существу-как Вы предпочитаете вводить слой невидимых линий в слой объекта(меняя их свойства), или создавать отдельный слой?

[vk]

Но штриховка, если вешать по такому же принципу, становиться текущим слоем-по завершению команды.

С этим зверем посложней, если из макроса... Лиспом надежней.

И еще-команды через правую кнопку на повтор не включаются, только через повторное нажатие кнопки-что не есть хорошо.

А вот это, батенька, RTFM. И через Enter и пробел тоже. Такова природа.

Создал аналог слоя пунктир -по типу line -странно отрабатываю точки привязки. Может кто разъяснит?

А может кто разъяснит суть вопроса? :wink:

Для невидимых предпочтительно юзать отдельный слой (его можно отключать по необходимости)

[Vova]

Сообщение от maxw И еще-команды через правую кнопку на повтор не включаются, только через повторное нажатие кнопки-что не есть хорошо.

Если твой автокад 2000 или 2002, то надо выставить на правой кнопке контекстное меню (через Option) и через него повторять макрос команды. А если автокад 2004 или 2005, то можно регулировать длительностью правого клика свое желания-повторить ли предыдущую команду сразу или через контекстное меню. Но макрос повторяется только через это меню.
Насчет отдельного слоя для определенных типов линий-я предпочитаю назначать слои в соответствии с технологией чертежа, например, разводка проводов в трубах в отдельном слое от разводки их в подшивном потолке. А если среди тех и других встречаются по каким то причинам выделенные цветом или типом линии, то надо принять решение - закладывать ли их в отдельные слои или нет. Это зависит только от того, что дальше с ними предполагается делать. То есть, решай этот вопрос самостоятельно

[lee]

Сообщение от vk Лучче так Код: [Выделить все] ^C^C_.dimlinear;\\\_.chprop;_l;;_la;размеры;; ИМХО, конечно.

Попробовал. Все работает. А ПОТОМ. Нажал правую клавишу мыши, чтоб повторить предыдущую команду. OOPS ((

[Pilot]

А не лучше ли это сделать через реакторы?
Но это для владеющих высшим пилотажем программирования.

[Dima]

Код:

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

(Command "-layer" "m" "dim" "c" "12" "dim" "");^C^C_dimlinear

когда-то так посоветовали

12 - цвет
dim - слой

P.S. кстати со штриховкой тоже работает

[vk]

Сообщение от lee Сообщение от vk Лучче так Код: [Выделить все] ^C^C_.dimlinear;\\\_.chprop;_l;;_la;размеры;; ИМХО, конечно. Попробовал. Все работает. А ПОТОМ. Нажал правую клавишу мыши, чтоб повторить предыдущую команду. OOPS ((

Можно Лиспик прицепить

Код:

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

^C^C(defun c:dimlinearl () (command "_.dimlinear" pause pause pause "_.chprop" "_l" "" "_la" "размеры" ""));dimlinearl;

[Star]

Вернемся к штриховке:

Код:

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

^C^C_-Bhatch;p;u;45;3;n;\;_chprop;_l;;_la;штриховка;;

Работает, но штрихует только один контур за раз.