[Aqualung]

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

[Profan]

Создай инструмент на палитре, в свойствах которого укажешь нужный слой.

[detrah]

В макросе (macro) для кнопки с Construction Line пишешь:

Код:

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

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

Здесь две команды: первая устанавливает текущий слой, вторая стартует х-линию...
Пользуйся на здоровье!

p.s. Аналогично можно работать с цветами, типами линий, стилями текстов и размеров

[Yuriy-I]

может помогут командные реакторы
см. посты 25 и 47

[forMA]

Рано или поздно возникнет вопрос о автоматическом создании слоя. В данном случае "Вспомогательная".

[vadim_evg1]

читай п.2, а тут видео есть

[forMA]

Сообщение от vadim_evg1 читай п.2, а тут видео есть

Неуклюжее слегка, но решение работоспособное.

[Aqualung]

Сообщение от detrah В макросе (macro) для кнопки с Construction Line пишешь: Код: [Выделить все] ^C^C(setvar "clayer" "Вспомогательная");^C^C_xline Здесь две команды: первая устанавливает текущий слой, вторая стартует х-линию... Пользуйся на здоровье! p.s. Аналогично можно работать с цветами, типами линий, стилями текстов и размеров

во! спасибо большое!
теперь возникла другая идея) Наполовину уже сделано - при выборе конструкционной линии слой нужный включается, теперь надо чтоб отключался после отмены команды констр. линии и возвращался к тому который был до выбора XLINE. Можно так?

[Profan]

См. #2.

[Aqualung]

а без палитры можно?
кстати после написания

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

цвет линии почему то становится ByBlock а не ByLayer... как сделать чтобы по слою рисовалась?

[vadim_evg1]

Сообщение от Бубырь-UA Неуклюжее слегка, но решение работоспособное.

Видео только для примера, а уклюжить самому надо

Сообщение от Aqualung а без палитры можно? кстати после написания цвет линии почему то становится ByBlock а не ByLayer... как сделать чтобы по слою рисовалась?

А чем палитра плоха? Она решает все твои вопросы.Там можно много чего настроить, так зачем усложнять.
Я себе сделал - хватает почти на все случаи жизни

[Aqualung]

палитра у меня чуть дальше в плане освоения К тому же надо переустановить Акад, а то она вообще не включается. Времени пока нет. Да и вон без палитры можно же что то сделать

[E-degtyarev]

У нас под кнопочками отрисовки линий зашиты макросы:

Код:

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

(setvar "cmdecho" 1)(command "_layer" "_m" "osnovn" "" "_line" pause)
(setvar "cmdecho" 1)(command "_layer" "_m" "osi" "" "_line" pause)
(setvar "cmdecho" 1)(command "_layer" "_m" "nevid" "" "_line" pause)

.... и т.д.
работает нормально, нареканий нет.

[Krieger]

Сообщение от Aqualung палитра у меня чуть дальше в плане освоения К тому же надо переустановить Акад, а то она вообще не включается. Времени пока нет. Да и вон без палитры можно же что то сделать

Зря. Кнопки на палитре легче делать. Особо и программирования не нужно никакого для твоего случая. Иначе что-то можно конечно сделать, но далеко не всё. Для этой ерунды прийдется писать свою фукцию аналог прямой. Можно реакторы испольовать, тогда и кнопки не нужны будут.

[Aqualung]

макросы интереснее а палитра занимает место, которого итак мало на экране.
Вобщем сделал так - при нажатии Кострукц. линии слой становится "Вспомогательная"
при нажатии какого либо размера слой становится "Размеры"
Линию решил не трогать - варианты могут быть.
Стало в итоге гораздо удобнее! и похожее на Компас
p.s. detrah а напиши плиз примеры команд чтобы "Аналогично можно работать с цветами, типами линий, стилями текстов и размеров", а то я синтаксиса не знаю)

[wetr]

Aqualung, вот этот реактор создает слой вспомогательный для прямой. В реакторе можно настроить свойства слоя, в том числе и сделать его непечатаемым. Слой появляется только когда вызываешь команду xline. И восстанавливает предыдущее состояние слоев. Реактор меняет свойства слоя, если уже имеется слой с таким именем.
Кроме того, реактор аккуратно раскладывает тексты, размеры, лидеры, таблицы, вьюпорты в соответствующие слои. Ничего лучше пока не встречал. Заодно, спасибо Алексею.

[Krieger]

Сообщение от Aqualung макросы интереснее а палитра занимает место, которого итак мало на экране.

Странно, а у меня палитра экономит место.

[Do$]

Сообщение от Aqualung теперь возникла другая идея) Наполовину уже сделано - при выборе конструкционной линии слой нужный включается, теперь надо чтоб отключался после отмены команды констр. линии и возвращался к тому который был до выбора XLINE. Можно так?

Код:

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

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

Слой "Вспомогательная" должен существовать, чтоб макрос работал.

[ытя]

Можно так

Код:

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

^C^C_.xline;\\_chprop;_L;;_La;"Вспомогательная";;

[Aqualung]

Сообщение от Krieger Странно, а у меня палитра экономит место.

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

[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, иногда подобное разделение не особо-то и требуется...

[E-degtyarev]

Vova Мы работаем в машиностроительной отрасли.
Может быть поэтому "расслоение" у нас небольшое. Для построения изображения используется 4-5 слоев, для остальных объектов-размеры, надписи, таблицы и т.п. тоже существуют свои слои. Поэтому у нас на "самом видном месте" 4-5 кнопочек с макросами типа как в посте 13.
Кто-то скажет "баян", но у нас прижилось.
Кулик Алексей aka kpblc "command возвращает nil" но линии-то рисует.

[Krieger]

Сообщение от E-degtyarev "command возвращает nil" но линии-то рисует.

Да нифига он не рисует. Слой создать сначала надо. Смысл функции while?

[E-degtyarev]

Слой создать сначала надо. Смысл функции while?

Слой конечно нужно создать.Подразумевается что он уже существует.
Смысл функции WHILE - линии рисуются многократно подряд, пока юзер не нажмет ESC либо правую кнопку мыши (зависит от настройки).

PS: извините, но мне кажется что здесь не обязательно выкладывать "обсосанные до кости" вещи.

[Krieger]

Так если command выдает nil, то функция while сразу прерывается и не повторяет ничего. Повторяет у тебя сама команда xline. Т.е. от такого кода и твоего разницы никакой:

Код:

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

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

Кстати в вспомогательном слое чертится всего 2 прямых, остальные в текущем.

Тогда уж так:

Код:

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

(defun kr (/ *error* clayer)
  (defun *error* (msg) (setvar "CLAYER" clayer))
  (setq clayer (getvar "CLAYER"))
  (command "_-layer" "_make" "Вспомогательная" "")
  (command "_xline" "_hor")
  (while (/= (logand (getvar "cmdactive") 31) 0)
    (command pause))
  (setvar "CLAYER" clayer))

Это в автозагрузку.
И на кнопку:
^C^C(kr)

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

А код

Код:

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

*^C^C_.xline;_hor;

уже не покатит?

[Krieger]

Сообщение от Кулик Алексей aka kpblc А код Код: [Выделить все] *^C^C_.xline;_hor; уже не покатит?

Нафига, если эта команда и так цикличная?

[Profan]

Она нехорошо цикличная, только по второй точке.

[Krieger]

Сообщение от Profan Она нехорошо цикличная, только по второй точке.

С опцией "Hor" ей нужна одна точка.

[Profan]

Все равно однобоко.

[Krieger]

Тогда так:

Код:

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

*^C^C_xline;\\;

[Profan]

А про слой забыл уже?

[Krieger]

Если тебе надо, сделаю со слоем (код выше маленько подредактировать). В пустую не хочется...

[Profan]

Не, мне больше Лисп нравится.

[Krieger]

А в 44-м постинге что?

[Profan]

Не знаю.
Не знаю, что такое "постинг".

[kheylan]

А чем вас не устраивает код из поста №16 под словом этот
http://forum.dwg.ru/showpost.php?p=295576&postcount=125
он идеально подходит для xline
добавил немного опций, со ссылками только не получилось, смотри файл
и создал панель инструментов XLINE
Горизонтальная прямая
Объект Xline строится горизонтально
^C^C_xline;_h;

Вертикальная прямая
Объект Xline строится вертикально
^C^C_xline;_v;

ПоОбъекту прямая
Объект Xline строится по объекту (не работает по примитивам блока и arx объектов сторонних навесок на автокад).Макрокоманда зациклена, выход по Esc
*^C^C_xline;_offset;_Through;_nea;\_none;@;;

Перпендикулярная прямая
^C^C_xline;_offset;_Through;_nea;\_none;@;^C^C_rotate;_last;;\90;

Биссектриса прямая
Биссектриса по 3 точкам
^C^C_xline;_b;\\\;

Все рисуется на слое 0_ВСП

[alexdub]

Сообщение от ытя ^C^C_.xline;\\_chprop;_L;;_La;"Вспомогательная";;

нравится идея этого макроса, но он почему-то не работает...
как оказалось сама команда CHPROP не меняет слой. т.е. просто строю линию/полилинию, вызываю команду CHPROP и пытаюсь поменять слой с текущего "0" на ранее созданный "111", но ничего не происходит. почему так?

[Alan]

Сообщение от alexdub как оказалось сама команда CHPROP не меняет слой. т.е. просто строю линию/полилинию, вызываю команду CHPROP и пытаюсь поменять слой с текущего "0" на ранее созданный "111", но ничего не происходит.

команда _CHPROP меняет слой ПРИМИТИВА (у твоей линии/полилинии)

[alexdub]

Сообщение от Alan команда _CHPROP меняет слой ПРИМИТИВА (у твоей линии/полилинии)

вопрос не в этом... xline - примитив.
разобрался в чем дело, после выбора слоя в команде CHPROP я неосознанно прерывал команду. все работает.
Но макрос ^C^C_.xline;\\_chprop;_L;;_La;"111";; все равно не работает...

[Krieger]

Сообщение от alexdub вопрос не в этом... xline - примитив. разобрался в чем дело, после выбора слоя в команде CHPROP я неосознанно прерывал команду. все работает. Но макрос ^C^C_.xline;\\_chprop;_L;;_La;"111";; все равно не работает...

Точек с запятыми не хватает.

Код:

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

^C^C_.xline;\\;_chprop;_L;;_La;"0";;

Хотя лучше сделать другую последовательность. Сначала запросить точку. Потом построить горизонтальную прямую. Кинуть её в нужный слой. После чего задать команду поворота с указанной ранее базовой точкой.

[alexdub]

Сообщение от Krieger Хотя лучше сделать другую последовательность. Сначала запросить точку. Потом построить горизонтальную прямую. Кинуть её в нужный слой. После чего задать команду поворота с указанной ранее базовой точкой.

да, спасибо, точка с запятой решила проблему)
но что-то ни тот, ни ваш вариант мне не нравятся тем, что повтор команды XLINE уже не работает, так как в моем случае он вызывает CHPROP, а в вашем ROTATE...

[VVA]

alexdub,
1. Палитры
2. LISP. Быстрое рисование. QUICKDRAW
3. Автоматический перенос размеров на слой размеры. Break макро

[Krieger]

Вот так можно:

Код:

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

^C^C_(defun c:kr ()(if (setq p1 (getpoint))(progn (command "_xline" p1 pause "")(if(equal p1(cdr(assoc 10(entget(ssname(ssget "L")0)))))(progn(setq pr(entget(ssname(ssget "L")0))pr(subst(cons 8 "вспомогательные")(assoc 8 Pr)Pr))(entmod pr))))));kr

Есть правда побочный эффект один...

[DIG73]

Доброго времени суток всем.
Чтобы не создавать тему - напишу сюда, более менее подходит вроде к моему вопросу.
Я отключил в "настройке стандартов", стандарты оформления, но все равно, при рисовании размера в своем слое он автоматически переносится в другой, который вновь создается.
Тоже самое происходит и, например с отметками СПДС и прочим.
Как можно это отключить?
Заранее спс.

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

Для начала - вспомнить, что в СПДС GraphiCS есть свои настройки.

[DIG73]

Вспомнил, а подробнее можно?

----- добавлено через 34 сек. -----
в главных настройках?

----- добавлено через ~2 мин. -----
с отметками разобрался, спасибо )

----- добавлено через ~4 мин. -----
с размерами тоже ))
а ведь я размеры из автокадовских панелей ставлю - это все равно связано?