[Aqualung]

Можно ли сделать так, чтобы при выборе Construction Line автоматически выбирался слой "Вспомогательная". Собственно как реализовано в Компасе - а то приходится в 3 раза больше кликов делать: развернуть слои, выбрать слой, выбрать Constr. Line.

[E-degtyarev]

^C^C -это отказ от выполняемых в настоящий момент комманд.
Очень желательно присутсвие этих символов в начале любого макроса.

[forMA]

Известно, что на вкус и цвет товарищей нет. Я когда то применял схему о которой пишет Aqualung. Не прижилась. Деревянная какая то. Гибкости нет. А уж палитра при оперативной работе машиностроителя совсем не помощник. Вот уж много лет я работаю примерно так: Круговым движением курсора "подхватываю" слой, а затем собственно команду, расположенные в верхнем левом углу окна AutoCAD. Попробуй, может и сгодится.

p.s. Слой "10-SUPPORT" у меня примерно аналог вашему слою "Вспомогательная".
макрос на кнопку:

Код:

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

^C^C(if (not C:10-SUPPORT) (load "10-SUPPORT")) 10-SUPPORT

программка на LISP:

Код:

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

(defun C:10-SUPPORT ( / echo ss)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(if (/= (setq ss (nth 1 (ssgetfirst))) nil)
    (progn
    (princ "\n Есть выбранные объекты.")
    (command "_-LAYER" "_M" "10-SUPPORT" "_C" 6
    "10-SUPPORT" "_LT" "CONTINUOUS"
    "10-SUPPORT" "_LW" 0.05 "10-SUPPORT" "")
    (command "_CHANGE" ss "" "_P" "_LA" "10-SUPPORT" "")
    ) ;progn
    (progn
    (princ "\n Нет выбранных объектов.")
    (command "_-LAYER" "_M" "10-SUPPORT" "_C" 6
    "10-SUPPORT" "_LT" "CONTINUOUS"
    "10-SUPPORT" "_LW" 0.05 "10-SUPPORT" "")
    ) ;progn
) ;if
(setvar "CMDECHO" echo)
(princ)
)

[E-degtyarev]

Круговым движением курсора "подхватываю" слой

А тренироваться долго нужно?

[wetr]

Сообщение от Aqualung wetr как использовать/включить/загрузить этот реактор?... (честно говоря первый раз слышу "реактор" применительно к акаду .. блин эту прогу можно изучать вечно)

rar переименовать в 7z и распаковать! Получишь видео

[forMA]

Сообщение от E-degtyarev А тренироваться долго нужно?

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

[Aqualung]

Сообщение от Do$ Код: [Выделить все] ^C^C(setq clay (getvar "clayer"))(setvar "clayer" "Вспомогательная")(vl-cmdf "_.xline" pause pause "")(setvar "clayer" clay)(setq clay nil)(princ); Слой "Вспомогательная" должен существовать, чтоб макрос работал.

ммм а можно чтобы после построения одной линии команда не сбрасывалась?
И еще... я сделал 2 кнопочки дополнительно для горизонтали и вертикали. Макрос такой назначил

Код:

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

^C^C(setvar "clayer" "Вспомогательная");^C^C_xline Hor

- строится горизонталь в вспомогательном слое.
попробовал по аналогии с предложеной для просто линии командой написать

Код:

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

^C^C(setq clay (getvar "clayer"))(setvar "clayer" "Вспомогательная")(vl-cmdf "_.xline Hor" pause pause "")(setvar "clayer" clay)(setq clay nil)(princ);

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

[Profan]

Код:

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

^C^C(setq clay (getvar "clayer"))(setvar "clayer" "Вспомогательная")(vl-cmdf "_.xline" "_Hor" pause pause "")(setvar "clayer" clay)(setq clay nil)(princ);

[Boxa]

Нда.... для разнообразия добавлю код на VB, а то прям засилие лиспа =)
Приведенный код поместить в автозагрузку и "шаманить" с кнопкой не надо, само работать будет.

Код:

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

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
On Error Resume Next
         
        Call crLayers
    If (CommandName = "XLINE") Then '
        Dim obj As AcadObject
        Set obj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
        With obj
            If .ObjectName = "AcDbXline" Then '
                .Layer = "Вспомогательный"
                .color = 256 '"acByLayer"
                .Lineweight = acLnWtByLayer
                .Linetype = "ByLayer"
            End If
        End With
    End If
End Sub


Sub crLayers()
    On Error Resume Next
        ' Проверяю, есть ли нужные мне слои
    Dim layerObj As AcadLayer
    Set layerObj = ThisDrawing.Layers.Item("Вспомогательный")
    If layerObj Is Nothing Then Set layerObj = ThisDrawing.Layers.Add("Вспомогательный")
        With layerObj
            .color = "43"
            .Description = "Вспомогательный"
            .Freeze = False ' : Boolean
            .LayerOn = True ' : Boolean
            .Linetype = "Continuous" ': String
            .Lineweight = acLnWt015 '  ACAD_LWEIGHT
            .Lock = False ' : Boolean
            .Plottable = True ': Boolean ' Печатать или нет
        End With
    Set layerObj = Nothing
End Sub

[Aqualung]

Сообщение от Profan Код: [Выделить все] ^C^C(setq clay (getvar "clayer"))(setvar "clayer" "Вспомогательная")(vl-cmdf "_.xline" "_Hor" pause pause "")(setvar "clayer" clay)(setq clay nil)(princ);

спасибо! Только забавно получается - строится две линии и сбрасывается команда)) Видимо в просто _xline нужно два клика, а тут уже один клик прописан _Hor ... если я правильно понял незнакомый язык)
Так а можно сделать чтобы не сбрасывалась команда до нажатия ESC?
Воха
просто макрос отредактировать вроде проще чем целую прогу писать на VB)

[Profan]

Действительно, если указываем опцию "_Hor" ("Гор"), то достаточно одной паузы:

Код:

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

 
^C^C(setq clay (getvar "clayer"))(setvar "clayer" "Вспомогательная")(vl-cmdf "_.xline" "_Hor" pause "")(setvar "clayer" clay)(setq clay nil)(princ);

[Aqualung]

клево) я написал 3 раза pause - теперь 3 линии рисует)) можно конечно раз 10 написать, чтоб точно хватило, ну да пожалуй хватит 3 Только ощущение такое что это глупый способ)

[Krieger]

Разумные способы тебе предложили еще в самом начале...

[Vova]

http://dwg.ru/art/2

[kheylan]

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

[Boxa]

Сообщение от kheylan А как сделать, чтобы ссылки вставлялись на отдельный слой?! Проблема в том, что программа понимает их однинаково как блоки и определяет как INSERT

Команды может и одинаковые, а вот объекты наверное создаются разные. Попробуйте искать по имени объекта, а не команды...

[E-degtyarev]

Aqualung, попробуй так:
^C^C(setq clay (getvar "clayer"))(setvar "clayer" "Вспомогательная")(while (command "_.xline" "_Hor" pause ))(setvar "clayer" clay)(setq clay nil)(princ);

[vadim_evg1]

Сообщение от kheylan А как сделать, чтобы ссылки вставлялись на отдельный слой?! Проблема в том, что программа понимает их однинаково как блоки и определяет как INSERT

палитрой можно

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

E-degtyarev, command возвращает nil.

[Vova]

Сообщение от E-degtyarev У нас под кнопочками отрисовки линий зашиты макросы: [code](setvar "cmdecho" 1)(command "_layer" "_m" "osnovn" "" "_line" pause)

Основной линией отрисовано, очевидно, 90% чертежа. Тогда как гораздо продуктивней объекты чертежа разложить по тематическим слоям (типа Стены внутренние, Наружные, колонны и т. д.) Иначе, по какому признаку ты будешь выделять объекты для разных нужд? Или по признаку Основные?

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

Vova, иногда подобное разделение не особо-то и требуется...