[dextron3]

Дайте макрос на кнопку LINE, чтобы линия чертилась в заданном слое указанном в макросе

Нигде не могу найти ответ...

^C^C_line .............................


Нужная весчь ускоряет работу
:shock: :? 8)

[mmax]

Так и будешь мучать макрос каждый раз как только, понадобится рисовать в другом слое.
Хотя идея хорошая. Создать доплнительную кнопку которая всегда будет рисовать только вспомогательные линии на слое, запрещенном к печати.
правда лучше создать сразу вторую панель "Рисование".

Столько хороших идей иногда быват, жаль что изза панелей не видно будет экрана

[Krieger]

Этот макрос (^C^C_line) кинь на Палитру инструментов (tool palettes), а в свойствах кнопки выставь слой. Теперь линия при нажатии на кнопку будет чертится именно в этом слое, а после завершения команды пудет устанавливаться последний используемый.

[dextron3]

Сообщение от Krieger Этот макрос (^C^C_line) кинь на Палитру инструментов (tool palettes), а в свойствах кнопки выставь слой. Теперь линия при нажатии на кнопку будет чертится именно в этом слое, а после завершения команды пудет устанавливаться последний используемый.

А для тех кто палитру инструментов терпеть не может?

Она мешается и автокад подгружает лишний раз


Хочется просто на уту кнопку см. рис.
[ATTACH]1175828877.jpg[/ATTACH]

[nikolaev]

^C^C-layer;s;"ОСНОВНЫЕ";;_line

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

Сообщение от nikolaev ^C^C-layer;s;"ОСНОВНЫЕ";;_line

Будет работать только если в файле есть уже слой Основные. Если его нет, то надо

Код:

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

^C^C_-layer;_m;"Основные";;_line;

Автору: если не лень прочитать http://dwg.ru/forum/viewtopic.php?t=10474 то можно сходить по адресу http://www.autocad.ru/cgi-bin/f1/board.cgi?t=33159gI ; поставить лисп в автозагрузку и тогда получится нечто типа

Код:

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

^C^C(_kpblc-draw-ext (list (list "layer"  (cons "name" "Основные")                (cons "color" 10) (cons "lw" 30))) "line");

Пишу без запущенного acad'a, так что надо проверить будет скобки.

[Krieger]

Сообщение от dextron3 А для тех кто палитру инструментов терпеть не может? Она мешается и автокад подгружает лишний раз

Для тех кто её терпеть не может я бы посоветовал познакомиться с ней поближе и безпристрастно взвесить все "за" и "против".
[ATTACH]1175833414.jpg[/ATTACH]

[Profan]

Видимо, у тех, кто палитру инструментов терпеть не может, мозг остался совсем без пищи. IMHO.

[taras]

^C^C-layer;s;"ОСНОВНЫЕ";;_line
C^C_-layer;_m;"Основные";;_line;

Макросы работают только как сделать чтоб после выполнения
слой восстанавливался на тот который был до выполнения макроса

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

Код:

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

(_KPBLC-DRAW-EXT '(("layer" ("name" . "Основные") ("color" . 2) ("lw" . 25))) "line")

[Денис Флюстиков]

Отрезок на слое Ось:
^C^C^P(defun C:tmp_Den ()(setq a(getvar "clayer"))(vl-cmdf "_.undo" "_g")(vl-cmdf "_.clayer" "Ось")(vl-cmdf "_.line")(while(=(getvar 'cmdactive)1)(vl-cmdf pause))(vl-cmdf "_.clayer" a "_.undo" "_e")(setq a nil));tmp_Den

[dextron3]

Спасибо, эти макросы реально лучше палет тулс, всего один щелчок
щас менюшку со своими слоями создам и панель слои нафиг не нужна




А как выглядит макрос,
допустим выделил объект на кнопку нажал
и сразу все перенеслось в заданный слой данной кнопкой,
а при этом текущий слой не изменился???

Жду ответов
Потом объясню для чего это нужно

[Zouss]

легким движением рук подчеркиватель текста превращается в заменитель слоя

Код:

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

(defun C:chanlay (/ ss ln)
  (setq ss nil
	ln (getstring T "введите имя слоя:")
  )
  (ent_chanlay
    (while (not ss) ;_ not
      (progn
	(prompt "Выберите объекты:")
	(setq ss (ssget))
      ) ;_ progn
    ) ;_ while
    ln
      ) ;_ ent_chanlay
) ;_ defun

(defun ent_chanlay (ss pre / l ed en dx1)
  (setq l (sslength ss))
  (repeat l
    (setq ed (entget (setq en (ssname ss 0)))
	  ed (subst (cons 8 pre) (assoc 8 ed) ed
	     ) ;_ subst
    ) ;_ setq
    (ssdel en ss)
    (entmod ed)
  ) ;_ repeat
) ;_ defun

традиционно никаких проверок на правильность ввода имени слоя и на наличие такого слоя в чертеже нет%)
Жду пива
Потом объясню для чего оно нужно

[taras]

Сообщение от Денис Флюстиков Отрезок на слое Ось: ^C^C^P(defun C:tmp_Den ()(setq a(getvar "clayer"))(vl-cmdf "_.undo" "_g")(vl-cmdf "_.clayer" "Ось")(vl-cmdf "_.line")(while(=(getvar 'cmdactive)1)(vl-cmdf pause))(vl-cmdf "_.clayer" a "_.undo" "_e")(setq a nil));tmp_Den

_C^C_(defun C:tmp_Den ()(setq a(getvar "clayer"))(vl-cmdf "_.undo" "_g")(vl-cmdf "_.clayer" "Ось")(vl-cmdf "_.line")(while(=(getvar 'cmdactive)1)(vl-cmdf pause))(vl-cmdf "_.clayer" a "_.undo" "_e")(setq a nil));tmp_Den

Теперь у меня заработало-сравните начало

Только в командной строке-пишет
Command: ()(setq a(getvar "clayer"))(vl-cmdf "_.undo" "_g")(vl-cmdf "_.clayer"
"Ось")(vl-cmdf "_.line")(while(=(getvar 'cmdactive)1)(vl-cmdf pause))(vl-cmdf
"_.clayer" a "_.undo" "_e")(setq a nil))
tmp_Den
Invalid point.
Specify first point:

Ошибка: extra right paren on input

но работает
что мне еще подправить?

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

В общем-то код у Дениса рабочий. Можешь попробовать за компанию еще и такое:

Код:

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

^C^C^P(defun c:tmp_den(/ *error* lay) (defun *error*(msg) (setvar "clayer" lay) (princ msg) (princ)) (setq lay (getvar "clayer")) (command "_.-layer" "_m" "Ось") (command "_.line") (while (/= (getvar "cmdactive") 0) (command pause)) (setvar "clayer" lay));tmp_den

[taras]

Спасибо всем
Код Дениса заработал

[Seregadwg]

help
у себя поставил макрос на размеры : ^C^C_dimlinear;\\\_Change;Last;;P;la;Razmer;; и всё работает ,толька на continue не получяется . может ктото падскажет?

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

Легким движением брюки превращаются...

Код:

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

^C^C^P(defun c:tmp_dco(/ *error* lay) (defun *error*(msg) (setvar "clayer" lay) (princ msg) (princ)) (setq lay (getvar "clayer")) (command "_.-layer" "_m" "Razmer") (command "_.dimcontinue") (while (/= (getvar "cmdactive") 0) (command pause)) (setvar "clayer" lay));tmp_dco

Код не проверял.

[Seregadwg]

Алексей к сожелению код не работает

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

(ожесточенно чешу затылок)
Блин, совсем забыл об ограничении на 255 символов в макросе. Черт, как же там суммировать строки-то?