[dextron3]

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

Хотелось просто на кнопку макрос чтобы включал тупо заданный слой в макросе кнопки?

И чтобы этот макрос работал как обычная панель слоев, т.е. опять же выделил объект нажал эту кнопку он перешел в соответвенно данной кнопке слой

вместо этой панели см. рис., т.е. эта панель заменена кнопками, получается чтобы включить слой достаточно щелкнуть один раз, а не как на панели, щелкнуть а потом колесико крутить- очень много времени уходит на это
[ATTACH]1175961269.jpg[/ATTACH]

[forMA]

to dextron3:
-------------------------
Вот LISP программа, написанная Profan по моей просьбе. За что ему огромное спасибо и всех благ.

Код:

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

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

Здесь слой 06-DIMENSION. Чиста, для примера

[dextron3]

А макроса для кнопки нет?

Это что для каждого слоя лисп подгружать чтоли?

[Sleekka]

а ты не задумавался что она есть с стандартном автокаде. _Laymcur - тебе же уже говорили.

[forMA]

Сообщение от dextron3 А макроса для кнопки нет? Это что для каждого слоя лисп подгружать чтоли?

Код:

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

^C^C(if (not C:06-DIMENSION) (load "06-DIMENSION")) 06-DIMENSION

[dextron3]

Код:

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

^C^C(if (not C:06-DIMENSION) (load "06-DIMENSION")) 06-DIMENSION

[/quote]
этот макрос не работает :shock:

слой в команду естесенно свой вставляю

может ошибка в макросе?

[forMA]

Сообщение от dextron3 Код: [Выделить все] ^C^C(if (not C:06-DIMENSION) (load "06-DIMENSION")) 06-DIMENSION этот макрос не работает :shock: слой в команду естесенно свой вставляю может ошибка в макросе?

Быть этого не может...Путь к программе прописал?

[Sleekka]

может ошибка в макросе?

Логично, правда такими макросами люди пользуются уже несколько лет, хотя Джордано Бруно тоже не верил систему Птолемея.

[dextron3]

Command: (if (not C:06-DIMENSION) (load "06-DIMENSION")) ; error: LOAD failed:
"06-DIMENSION"

Command: 06-DIMENSION Unknown command "06-DIMENSION". Press F1 for help.

[Sleekka]

в опциях, включи папку с программой lsp в пути к вспомогательным файлам.

[VVA]

>dextron3 По поводу вопроса почитай
Макрос на кнопку "Отключение слоя или группы слоев"

[Profan]

За соседним столиком Profan угрожающе заорал: "Я молчу". Его, видимо, распирала какя-то тайна.

[VVA]

Command: (if (not C:06-DIMENSION) (load "06-DIMENSION")) ; error: LOAD failed: "06-DIMENSION" Command: 06-DIMENSION Unknown command "06-DIMENSION". Press F1 for help

http://dwg.ru/art/8

[Алекс]

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

Класс [sm200] Одна просьба: можно сделать чтобы цвет, толщина и тип линии не изменялись? Просто включился нужный слой и все.