[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 символов в макросе. Черт, как же там суммировать строки-то?

[Profan]

Для Кулик Алексей aka kpblc.
Еще ты забыл одну вещь: кавычки "" в команде "_-LAYER"
Вот такой лисп работает:

Код:

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

(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)
)

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

Да, я увидел, но было поздно - уже в ограничение уперся. Лисп-то у меня тоже заработал А вот макрос - нет...

[Profan]

У меня вот такой макрос сработал:

Код:

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

^C^C(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

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

Ххе, у меня в ADT 2005 "+" не сработал почему-то.

[Profan]

Сейчас проверил в ADT 2005 ENG - работает.

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

Ну я сегодня уже ничему не удивляюсь - у меня машина хамит на каждом шагу. Так что спишем на сбой софта

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

А чем плох вариант:

^C^C^P(defun C:tmp_Den ()(setq a(getvar "clayer"))(vl-cmdf "_.undo" "_g")(vl-cmdf "_.clayer" "Razmer")(vl-cmdf
"_.dimcontinue")(while(=(getvar 'cmdactive)1)(vl-cmdf pause))(vl-cmdf "_.clayer" a "_.undo" "_e")(setq a nil));tmp_Den

ведь при использовании (vl-cmdf pause) и не обязательно перезадавать *error* и есть группировка для отката?

[Profan]

Тоже работает. А вот как убрать в конце запрос о выборе исходного размера? Чтобы функция завершалась по однократному Enter.

[Seregadwg]

Спасибоооооооооооооо!!!!!!!!!!!!!
С меня бутылка лучшего молдавского вина

[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 традиционно никаких проверок на правильность ввода имени слоя и на наличие такого слоя в чертеже нет%) Жду пива Потом объясню для чего оно нужно

А нельзя чтобы не спрашивало ввода имени слоя,
куда вписать чтобы автоматически было,
а то по скорости получается быстрее панель со слоями нажать
:?: :P

[Zouss]

вместо

Код:

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

(getstring T "введите имя слоя:")

напишите имя слоя в кавычках например "0" или "Defpoints" или "Layer1", понятное дело прога будет работать только для одного слоя, если покажется неудобным можно еще чуть подредактировать, но это уже после выходных

[dextron3]

Сообщение от Zouss вместо Код: [Выделить все] (getstring T "введите имя слоя:") напишите имя слоя в кавычках например "0" или "Defpoints" или "Layer1", понятное дело прога будет работать только для одного слоя, если покажется неудобным можно еще чуть подредактировать, но это уже после выходных

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

[Dym]

есть ^C^C_Laymcur и ^C^C_laycur

[Vova]

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

Вероятно, твой предок, впервые увидевший автокад с кнопками (на первых версиях их не-было, пользовали боковое меню) также сказал-мол, кнопки терпеть не может. Палитра это одно из лучших, что изобрел автодеск в последних версиях. Как это она мешается? Она ведь сворачивается в полоску и становится уже чем вертикальный столбик с инструментами. Может, ты не знаешь, как это сделать? Так ударь по ее кромке правой кнопкой.и почитай меню. Твоя проблема легко решается через палитру. И вообще, это надуманная проблема. Никакой необходимости задавать линии слой нет. Блоку или размеру полезно задать слой, а тем примитивам, которые могут быть везде, нет смысла

[Zouss]

Обещанный слегка подправленный LISP

Код:

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

(defun C:chanlay (/ ss ln)
  (setq ln (getstring T "введите имя слоя:")) ;_ setq
  (ent_chanlay ln)
) ;_ defun

(defun ent_chanlay (pre / l ed en dx1)
  (prompt (strcat "\nПеренос выбранных объектов на слой " pre))
  (setq	ss nil
	ss (while (not ss) ;_ not
	     (progn
	       (setq ss (ssget))
	     ) ;_ progn
	   ) ;_ while
	l  (sslength ss)
  ) ;_ setq
  (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
  (princ)
) ;_ defun

Макрос на кнопке для переноса объектов в слой под названием ИмяСлоя может выглядеть так

Код:

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

^C^C(ent_chanlay "ИмяСлоя")

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

Код:

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

^C^C(ent_chanlay (getvar "CLayer") )

кроме того вам по прежнему доступна команда chanlay, которая имя слоя будет спрашивать
2 ALL, я тут случайно велосипед не изобрел?

[VVA]

Проезжая мимо на велосипеде...
Неплохо было б с помощью snvalid убедиться, что введено допустимое имя слоя

Код:

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

(defun C:chanlay (/ ss ln) 
  (setq ln (getstring T "введите имя слоя:")) ;_ setq 
  (ent_chanlay ln) 
) ;_ defun 

(defun ent_chanlay (pre / l ed en dx1)
  (if (snvalid pre)
  (progn  
  (prompt (strcat "\nПеренос выбранных объектов на слой " pre)) 
  (setq   ss nil 
   ss (while (not ss) ;_ not 
        (progn 
          (setq ss (ssget)) 
        ) ;_ progn 
      ) ;_ while 
   l  (sslength ss) 
  ) ;_ setq 
  (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
  )
  (princ (strcat "\nНедопустимое имя слоя " pre))  
  )  
  (princ) 
) ;_ defun

Хотя сейчас там (в именах слоев) почти все разрешено ...

[Zouss]

по моему не обязательно - прога анонсирована как "бэз проверок"
все это и даже еще кое-что есть в ExpressTools, таким образом этот кусочек реально мб полезен как часть бОльшей проги для какой-то комплексной обработки файла, так что, dextron3, ждем-с объяснений для чего все это было нужно?

[Shoorup]

Возникла необходимость создания кнопки "Вставить провод" такая кнопка есть в AutoCAD Electrical. Суть такая по сути нужно нарисовать две ортогональные линии двумя щелчками. Что-то у меня не получается сделать паузу на указание именно второй координаты.
Линия работать должна так: включается режим орто (если выключен), указывается первая координата линии, вторая координата будет равна началу первой линии (если Y не равен 0)- эту координату не указываю, и указываю конец второй линии. Как такое реализовать?

[KSI]

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

[Shoorup]

Да!

[KSI]

Это должны быть два отдельных объекта или один (при выборе)?

[Shoorup]

это должны быть две ортогональные линии.

Вчера весь вечер просидел продумал - так и не решил задачу. Тут похоже без лиспа не обойтись...