[Jerald]

Можно ли одним махом выделить все размеры на чертеже?

[VVA]

Сообщение от BM60 А тогда бы ишо (шобниченеделать), вторым махом, если они выделяются, закинуть в общий "Dim". Ща поглядим-с...

Кнопочка

Код:

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

^C^C_CHANGE;(ssget "_X" '((0 . "*DIMENSION")));;_P;_LA;DIM;;

PS. Слой DIM и сами размеры должны существовать

[BM60]

Братцы, спасибо, вы спасли мою черепную коробку для будущих концентраций!

[ALFMario]

А как сделать чтобы выбрать и автоматом перенести размеры в слой DIM, но при выборе игнорировать те размеры которые лежат в слое DIM_AXES

[VVA]

Сообщение от ALFMario А как сделать чтобы выбрать и автоматом перенести размеры в слой DIM, но при выборе игнорировать те размеры которые лежат в слое DIM_AXES

Кнопка чуток подлиннее будет

Код:

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

^C^C_CHANGE;(ssget "_X" '((0 . "*DIMENSION")(-4 . "<NOT")(8 . "DIM_AXES")(-4 . "NOT>")));;_P;_LA;DIM;;

[ALFMario]

Большое спасибо, то что надо!
Если не сложно можно пояснить что делает это кусочек в двух словах
для образования ... радости моей предела не будет...
(-4 . "<NOT")(8 . "DIM_AXES")(-4 . "NOT>")

[VVA]

(-4 . "<NOT") и (-4 . "NOT>") это начало и конец скобки НЕ
(8 . "DIM_AXES") - под кодом 8 хранится слой примитива.
Т.е в словах запрос звучит так:
Выбери все размеры (0 . "*DIMENSION") слой которых, НЕ (8 . "DIM_AXES")

[Jerald]

Пробовал использовать вот этот макрос:
^C^C_Dimlinear;\\\_Change;_Last;;_P;_La;Размеры;;
(слой создан предварительно), но пришлось отказаться от его использования из-за 2-х глюков:
1. Если до этого использовалась команда с диалоговым окном, то при вызове команды это окно выскакивает вновь.
2. Не работает повтор по ПКМ.
AutoCAD 2007

[Makswell]

Чтобы был повтор по ПКМ, попробуй так:

Код:

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

^C^C^P(defun C:Dimlinear2 () (command "_.DIMLINEAR" pause pause pause "_Change"  "_Last" "" "_P" "_La" "Размеры" "") (princ));Dimlinear2

[Jerald]

Makswell, спасибо, попробовал, работает! А как с самосозданием слоя "Размеры", не в курсе?

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

http://dwg.ru/f/showpost.php?p=235446&postcount=18

[VVA]

>Jerald Попробуй изменить порядок. Создать слой "Размеры", отрисовать DimLINEAR, вернуть первоначальный слой

Код:

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

^C^C^P(defun C:Dimlinear2(/ *error*)(defun *error*(m)(setvar "CLAYER" ol))(setq ol(getvar "CLAYER"))(command "_.LAYER" "_M" "Размеры" "" "_.DIMLINEAR")(while(>(getvar "CMDACTIVE")0)(command pause))(setvar "CLAYER" ol)(princ));Dimlinear2

[Ddjo]

Почитав и посмотрев, все вышенаписаное и при этом не зная о LISPе абсолютно ничего, получилось составить вот что..., все работает..., только не могу додуматься, как к этой конструкции присобачить тип линий и то, будет слой печататься или нет. Помогите, пожалуйста, добрым советом. Заранее, очень спасибо
И, кстати, здесь спдсовская команда подсчета площадей, с отметками и форматами почему-то не получилось.

Код:

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

  
(vl-load-com) 
  (setq lyrs (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'Layers) 
        nlrs (mapcar '(lambda (x) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list lyrs x)));
              (vla-add lyrs x))) '("размеры" "текст" "viewports" "позиция" "help" "площади")));
  (foreach lyr nlrs 
    (mapcar '(lambda (x y) (if (= (vla-get-name lyr) x) (vla-put-color lyr y))) 
      '("размеры" "текст" "viewports" "позиция" "help" "площади") '(123 251 9 7 2 1)))
  (foreach lyr nlrs 
    (mapcar '(lambda (x y) (if (= (vla-get-name lyr) x) (vla-put-lineweight lyr y))) 
      '("размеры" "текст" "viewports" "позиция" "help" "площади") '(09 18 00 25 00 18 )))
;
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand))) 
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand))) 
(vlr-command-reactor nil '((:vlr-commandCancelled . endCommand))) 
;
(defun startCommand (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo)) 
  (setq *OldLayer* (append *OldLayer* (list (getvar "CLAYER")))) 
  (cond ((wcmatch thecommandstart "DIM*") (setvar "clayer" "размеры"))
	((wcmatch thecommandstart "*TEXT") (setvar "clayer" "текст"))
	((wcmatch thecommandstart "*-VPORTS") (setvar "clayer" "viewports"))
	((wcmatch thecommandstart "*LEADER") (setvar "clayer" "позиция"))
	((wcmatch thecommandstart "*XLINE") (setvar "clayer" "help"))
	((wcmatch thecommandstart "*RAY") (setvar "clayer" "help"))
	((wcmatch thecommandstart "*spAREA") (setvar "clayer" "площади"))
	(t nil));cond 
  (princ)
);startCommand
;
(defun endCommand (calling-reactor endcommandInfo) 
 (if *OldLayer* (setvar "clayer" (nth 0 *OldLayer*))) 
 (setq *OldLayer* nil) 
 (princ)

[VVA]

и при этом не зная о LISPе абсолютно ничего, получилось составить вот что

Очень неплохо для начала. По поводу создания слоев советую воспользоваться функцией _kpblc-layer-create из поста #47 Там передача данных для создания слоев реализована ассоциативным списком, что очень удобно. Да и саму тему перечитать неплохо будет, близка по духу твоему коду.
ЗЫ вроде как коды оттуда. Тогда иди в 47 пост

[Ddjo]

ЗЫ вроде как коды оттуда. Тогда иди в 47 пост[/quote]

Естественно, все оттуда... http://dwg.ru/f/showthread.php?t=2721&page=2 пост40, существует одно "НО" , код из поста Алексея и код из поста Лентяя имеют немного разный вид, при том, что я понимаю, что алгоритм описан один..., только в одном случае описываются "скопом" все созданые слои, затем им назначаются также "скопом" различные значения параметров (цвет, вес линии), а в другом случае, поочередно описывается каждый созданый слой и свойства ему присущие.
Но, поскольку, LISP для меня пока "темный лес", а для моего понимания проще первый вариант, я не могу по аналогии сообразить, как это должно выглядеть в моем случае...

И вот еще загвоздка..., в новом пустом файле, все работает отлично..., а вот в "старом" файле не действует, причем, после того как всем объектам были заданы одинаковые параметры (слой, цвет, вес линии) все стало работать нормально...
Насколько я могу понять, это из-за того, что в файле уже существуют слои (цвета? веса линий? все сразу?), т.к. в коде прописаны те слои, кот. я использую.
И в код, в часть, где идет проверка на наличие в файле слоев, (кот. мы хотим создать) нужно добавить кусочек вида:
если слой 1 присутствует, то принять его и использовать как слой 1
итд... или моя логика не верна и проблема в чем-то другом?

[Jerald]

Сообщение от VVA Одним махом (скопировать в командную строчку или повесить на кнопку) Код: [Выделить все] (SSSETFIRST nil (ssget "_X" '((0 . "*DIMENSION")))) И смотришь на панель слоев. Если там пусто, значит слои разные. Или на строчку "Слой" окна свойств. Там даже напишут "*разные*"

Повесил этот макрос на F7, очень удобно!
Я вот думаю, зачем Автокад перед перемещением выделенных объектов на замороженный слой, постоянно выдаёт предупреждение!? Как будто я не знаю, что хочу сделать!?

[Vova]

Тут сказали-все размеры в один слой. А у нас много слоев-в зависимости от масштаба умножить на тип размера. И это гибче. Если перейдем на аннотативность может, кол-во слоев и уменьшиться (на количество масштабов). Просмотреть слои можно командой Laywalk

[spatinka]

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

[Dante_SSS]

Сообщение от VVA Кнопка чуток подлиннее будет Код: [Выделить все] ^C^C_CHANGE;(ssget "_X" '((0 . "*DIMENSION")(-4 . "<NOT")(8 . "DIM_AXES")(-4 . "NOT>")));;_P;_LA;DIM;;

Скажите, а еще одно исключение как прописать (второе, третье)?