[Mazai]

Здравствуйте!
Подскажите пожалуйста, как можно сформировать набор - выбор секущим кругом.
То есть нужно определить примитивы, лежащие в области круга целиком или частично.
(Круга, как такового, на чертеже не нарисовано. То есть это воображаемая область.)

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

(ssget "_WP" <Список точек> [<Фильтр объектов>])
Список точек сформировать, разбив воображаемую окружность на N отрезков.

[zenon]

Кулик Алексей aka kpblc
жжошь

[Zouss]

Кулик Алексей aka kpblc, все-таки секущим кругом будет (ssget "_СP" <Список точек> [<Фильтр объектов>])

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

> Zenon: А чего, я так через grvecs в свое время отрисовывал динамическую окружность (по некоторым условиям строить ее было нельзя). работало же...
> Zouss : Да, точно. Что-то я затупил

[Zouss]

Алексей формулкой поделись, а то я свою записную книжку с наглоритмами дома оставил

[zenon]

Кулик Алексей aka kpblc а теперь тоже самое, но для прапорщиков. Тоисть 2 раза и медленно.
как и каким образом можно сформировать сию окружность, насколько я понял вопрос про выбор объектов с помощью окружности (наподобии выбора рамкой).

[Zouss]

исходные данные:
координаты центра окружности и её радиус
нужна формула любви для определения координат точек на окружности
хотя вроде там ничего сложного нет - два прямоугольных треугольника
загоняем формулу в цикл от 0 до 360 и получаем список точек окружности
который список и передаем в ssget
чем мельче шаг угла, тем точнее аппроксимация окружности отрезками, впрочем для небольших радиусов это не принципиально - полиго то секущий

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

Код:

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

(defun select-by-circle (center radius filter / pt_lst res)
                        ;|
*    Формирование набора примитивов, входящих в окружность.
*    Параметры вызова:
	center	центр "виртуальной" окружности
	radius	ее радиус
	filter	фильтр объектов. nil -> все
|;
  (if (and center radius)
    (progn
      (setq pt_lst ((lambda (/ ang step lst)
                      (setq step (/ pi 32.)
                            ang  (- step)
                            ) ;_ end of setq
                      (while (<= (setq ang (+ ang step)) (* 2. pi))
                        (setq lst (cons (polar center ang radius) lst))
                        ) ;_ end of while
                      (reverse lst)
                      ) ;_ end of lambda
                    )
            ) ;_ end of setq
      (if filter
        (setq res (ssget "_CP" pt_lst filter))
        (setq res (ssget "_CP" pt_lst))
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  res
  ) ;_ end of defun

[VVA]

А потом потребуется эллипс, сплайн, полилиния с дуговыми сегментами

Код:

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

;;;Required Express tools
;;;Inside contour select
(defun C:ICS ( / en pl n ss lst)
  (vl-load-com)
   (if (and (setq en (car(entsel "\nУкажите полилинию,круг, эллипс, сплайн: ")))
           (wcmatch (cdr(assoc 0 (entget en))) "*POLYLINE,CIRCLE,ELLIPSE,SPLINE")
           )
    (progn
      (ACET-SS-ZOOM-EXTENTS(ACET-LIST-TO-SS (list en)))
      (setq lst(acet-geom-object-point-list en nil))
      ;;;(setq lst (mapcar '(lambda(x)(trans x 0 1)) lst))
      (if (setq ss (ssget "_CP" lst))(SSSETFIRST ss ss))
      (setq ss nil)))(princ))
(princ "\nНаберите в командной строке ICS")

Кстати про обратную задачу (выделение снаружи контура) можно посмотреть здесь Выделение снаружи _pline

[Mazai]

Спасибо за советы.

[Mazai]

Наверное глупый вопрос, но подскажите пожалуйста - почему у меня не получается выбрать объекты секущей линией, если они находятся вне видимого контура в модели? То есть, я программно перебираю линии чертежа и по этим линиям пробую определить какие объекты они пересекают. И набор создаётся только в том случае, когда пересекаемые объекты находятся на видимой части экрана. Что не так?

Использую набор:
(ssget "_F" lstKoord (8 . "Layer"))

[VVA]

Все так. Такая особенность ssget (или Автокад), если указываешь точки (список точек), то они должны быть видимы на экране.
Не зря в предыдущем коде есть такая строчка
(ACET-SS-ZOOM-EXTENTS(ACET-LIST-TO-SS (list en))) - показывает выбранные объекты целиком на экран.

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

Один момент: по-моему, если сначала делать набор, а потом уже функцию запускать, то объекты должны быть видны на экране. Если сначала функцию, а набор "по требованию" и мышой (без указания типа _L или _P) - то необязательно.
P.S. pickfirst = 1.

[Mazai]

Выбор получился, спасибо.
Только вот, так как объектов много и предложенная команда от VVA приводит к выполнению ZOOM'а - происходит автоматическое изменение вида. Это занимает какое-то время. И при обработки большого количества линий приходиться ждать. Можно как-то отключить это отображение? Как например с переменной "CMDECHO" - отключения "шёпота" командной строки.

P.S.: пробовал баловаться с переменной "REGENMODE" - не помогло.

[VVA]

Посмотри эту тему
Там есть нужные тебе ф-ции lib:IsPtInView и lib:Zoom2Lst + ссылки на команды SCCP и SCWP

[Jonas]

Не работает код из поста #10 ни в 2008 ни в 2013 а край как нужно.

Пишет:
Команда: ICS
Укажите полилинию,круг, эллипс, сплайн: ; ошибка: no function definition: ACET-LIST-TO-SS

Может всё же можно что то подправить?

[gomer]

экспресс тулз установи

[Jonas]

Сообщение от gomer экспресс тулз установи

Да, уже выяснил, почему то слетели, восстановил, всё работает.