Сообщество программистов Autodesk в СНГ

Статьи => Опубликованные статьи => Тема начата: Александр Ривилис от 01-06-2020, 00:01:37

Название: Фильтр для выбора примитивов на разных слоях
Отправлено: Александр Ривилис от 01-06-2020, 00:01:37
Фильтр для выбора примитивов на разных слоях (https://adn-cis.org/filtr-dlya-vyibora-primitivov-na-raznyix-sloyax.html)
Название: Re: Фильтр для выбора примитивов на разных слоях
Отправлено: Алексей Кулик от 02-06-2020, 11:20:35
А почему в lisp-коде просто не перечислить через запятую имена слоев? Обычно это срабатывает.
Код - Auto/Visual Lisp [Выбрать]
  1. (defun c:fctest ()
  2.   (setq sel1 (ssget "_X"
  3.                     '((-4 . "<OR")
  4.                       (-4 . "<AND")
  5.                       (0 . "TEXT")
  6.                       (8 . "Centro")
  7.                       (-4 . "AND>")
  8.                       (-4 . "<AND")
  9.                       (0 . "LWPOLYLINE")
  10.                       (8
  11.                        .
  12.                        "Secao_Projeto,Pontos_AcimaTolerancia,Pontos_AbaixoTolerancia,Pontos_ForaTolerancia,Pontos_NaTolerancia"
  13.                        )
  14.                       (-4 . "AND>")
  15.                       (-4 . "OR>")
  16.                       )
  17.                     ) ;_ end of ssget
  18.         ) ;_ end of setq
  19.   (sslength sel1)
  20.   ) ;_ end of defun
  21.  
  22. ;; В принципе можно и маски использовать...
  23. (defun c:fctest1 ()
  24.   (setq sel1 (ssget "_X"
  25.                     '((-4 . "<OR")
  26.                       (-4 . "<AND")
  27.                       (0 . "TEXT")
  28.                       (8 . "Centro")
  29.                       (-4 . "AND>")
  30.                       (-4 . "<AND")
  31.                       (0 . "LWPOLYLINE")
  32.                       (8 . "Secao_Projeto,Pontos_[AFN]*Tolerancia")
  33.                       (-4 . "AND>")
  34.                       (-4 . "OR>")
  35.                       )
  36.                     ) ;_ end of ssget
  37.         ) ;_ end of setq
  38.   (sslength sel1)
  39.   ) ;_ end of defun
Название: Re: Фильтр для выбора примитивов на разных слоях
Отправлено: Александр Ривилис от 02-06-2020, 13:23:09
Цитата: Алексей Кулик от 02-06-2020, 11:20:35
А почему в lisp-коде просто не перечислить через запятую имена слоев?
Запросто. Но я так понимаю, что главной мыслью этой статьи было подсказать, что в одном фильтре можно выбрать одни типы примитивов на одних слоях и другие типы примитивов на других слоях.