[Alex79]

Здравствуйте уважаемые участники форума.
У меня такой вопрос. Мне необходимо при помощи lisp программы или стандартной команды ( о которой я возможно не знаю) выделить все примитивы находящиеся на одном слое.
Можно конечно отключить все слои оставив один и посмотреть что на нем находится, но когда слоев очень много то это занимает время. У меня есть Лисп, который по примитиву изменяет название слоя. Еще раз поясню что мне нужно. Есть множество слоев, я запускаю ЛИСП, кликаю на один из объектов и автоматически выделяются все объекты, находящиеся на данном слое.
Только не нужно пинать, или советовать обратиться к мануалу, просто скажите, где нужно посмотреть.

PS - если ответ простой, не могли бы вы в скайп написать, буду очень признателен

[Zezza]

Как вариант, не в один клик, но все-таки, через быстрый выбор, предварительно выбрав все на чертеже (Ctrl+А по умолчанию), установить свойства объектов Слой, значение Название слоя необходимого, ну и оставить включить в новый набор птичку!

[T-Yoke]

Сообщение от Alex79 Здравствуйте уважаемые участники форума. У меня такой вопрос. Мне необходимо при помощи lisp программы или стандартной команды ( о которой я возможно не знаю) выделить все примитивы находящиеся на одном слое...

Название темы подправь А то они потому примИтивы, от того что примитивные, а не потому что приметные.

[gomer]

Можно, с помощью фильтров ssget

[Profan]

Полилиния и блок совсем не примитивы.

[angel-fear]

Обход слоев не поможет никак?

[Profan]

Выделение объектов на слое выбранного объекта:

Код:

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

(defun C:SEL_LAY ( / echo sen ent lay ss len da)
      (setq echo (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (princ "\n Определение слоя по объекту.")
      (setq sen (entsel " Выберите нужный объект: "))
(if sen
      (progn
      (setq ent (entget (car sen)))
      (setq lay (cdr (assoc 8 ent)))
      (setvar "CLAYER" lay)
      (setq ss (ssget "_X" (list (cons 8 lay))))
      (setq len (sslength ss))
      (sssetfirst nil ss)
      (initget 6 "Да Нет Yes No _ Yes No Yes No")
      (setq da (getkword "\n Отключить остальные слои? [Да/Нет] <Да>: "))
      (if (or (= da "Yes") (= da nil))
          (progn
          (vl-cmdf "_-LAYER" "_OF" "*" "_Y" "")
          (vl-cmdf "_-LAYER" "_ON" LAY "")
      )); if da
      (sssetfirst ss ss)
      (princ "\n Слой: ") (princ lay)
      (princ "  Количество объектов = ") (princ len)
      )
      (princ "\n Объект не выбран!")
); if sen
      (setvar "cmdecho" echo)
      (princ)
)

[Alex79]

Profan
Большое спасибо - то что нужно!!!


T-Yoke
Спасибо за замечание, но не мешало бы еще блеснуть и знанием Автокада.

[Дима_]

Сообщение от Alex79 Есть множество слоев, я запускаю ЛИСП, кликаю на один из объектов и автоматически выделяются все объекты, находящиеся на данном слое.

тогда можно и покороче

Код:

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

 (sssetfirst nil (ssget "_x" (list (assoc 8 (entget (car (entsel "\nВыберите объект")))))))

[Profan]

Дима_, а если ты промахнешься и не попадешь по объекту? А наборы обнилять?

[Дима_]

Если промахнешся - напишет "неверный тип аргумента: lentityp nil" и ничего не "обнилиться" (я так понял что это не орфографическая ошибка, а от слова nil) - из любви к искуству можно конечно проверять выбор но ИХМО в данном конкретном случае это не нужно кроме как другой надписи НИЧЕГО не изменится про ту, в общем наверно полезную, добавку которую Вы "самододумали" - вот она ихмо недоделенна - если уж все слои выключил - то надоб и придумать, чтоб как-то все включить (или по меньшей мере startundomark предусмотреть).

[Nike]

Дорабатывайте давайте свои проги оба, недодельщики

[TararykovDG]

Тему пора переносить в раздел программирования
Мой вариант

Код:

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

 
; Примеры вызова:
; (fast_select 8) - выбрать по слою
; (fast_select 62) - выбрать по цвету
; (fast_select 0) - выбрать по типу
; (fast_select 2) - выбрать по имени блока

(defun fast_select(mode / )
  (vl-load-com)
  ((lambda(obj)
     (if (and obj
	      (not (vl-catch-all-error-p obj))
	      )
       ((lambda(nbr)
	  (sssetfirst nil nbr)
	  (prompt (strcat "Найдено объектов : " (if nbr (itoa (sslength nbr)) "0")))
	  )
	 (cond ((or (= mode 0)
		    (= mode 8)
		    )
		(ssget "_X" (list (cons mode (cdr (assoc mode (entget (car obj)))))))
		)
	       ((= mode 62)
		((lambda(color)
		   (if color
		     (ssget "_X" (list color))
		     (ssget "_X" (list (cons mode 256)))
		     )
		   )
		  (assoc mode (entget (car obj)))
		  )
		)
	       ((and (= mode 2)
		     (= (cdr (assoc 0 (entget (car obj)))) "INSERT")
		     )
		((lambda(nbr)
		   (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
		     (if (/= (vla-get-EffectiveName (vlax-ename->vla-object item)) (vla-get-EffectiveName (vlax-ename->vla-object (car obj))))
		       (ssdel item nbr)
		       )
		     )
		   )
		  (ssget "_X" (list (cons 0 "INSERT") (cons 2 (strcat "`*U*," (cdr (assoc mode (entget (car obj))))))))
		  )
		)
	       )
	 )
       )
     )
    (vl-catch-all-apply 'entsel
      (list "\nВыберете объект: ")
      )
    )
  (princ)
  ); end fast_select

[Profan]

Сообщение от Nike Дорабатывайте давайте свои проги оба, недодельщики

А чего там дорабатывать? Есть штатная команда включения всех слоев.

[VVA]

Мой вариант
1. Выделяет все объекты со слоя образца. Позволяеть использовать SHIFT для добавления / удаления
2. Наличие установленного Express Tools обязательна
3. Вызывать на исполнетие так (layselect)

[hwd]

Сообщение от Alex79 или стандартной команды ( о которой я возможно не знаю) выделить все примитивы находящиеся на одном слое.

честно говоря, несколько удивлён велосипедостроению предложенным выше вариантам решения... А что, кто-то предал анафеме использование _qselect?

[АлексЮстасу]

Сообщение от Alex79 Мне необходимо при помощи lisp программы или стандартной команды ( о которой я возможно не знаю) выделить все примитивы находящиеся на одном слое.

А можно было бы и Select Similar доусовершенствовать...

[Vova]

1. GETSEL а затем PSELECT и P
2. Layiso

[Profan]

hwd, речь шла об 1 (одном) клике. Сколько надо кликов, чтобы применить команду "_qselect" ("бвыбор")?

[hwd]

Сообщение от Profan hwd, речь шла об 1 (одном) клике. Сколько надо кликов, чтобы применить команду "_qselect" ("бвыбор")?

Я процитировал вопрос на который ответил. Что тут может быть не понятного? А это:

Еще раз поясню что мне нужно. Есть множество слоев, я запускаю ЛИСП, кликаю на один из объектов и автоматически выделяются все объекты, находящиеся на данном слое.

произрастает от незнания о _qselect. Причём начал автор с того, что ему без разницы, что это будет - лисп или стандартная команда, а закончил тем, что "ещё раз поясняет" что это должен быть лисп. Откуда растут ножки у обозначенной проблемы - я пояснил выше.