[Aqualung]

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

[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";;

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