[dextron3]

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

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

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


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

[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]

Да!