[Веселин]

С помощью функции ssget пытаюсь выбрать 3DSOLID используя точку внутри, а не на ребре.
Когда установлен текущий визуальный стиль "Скрытый", то набор создаётся, а если обычный 2dкаркас, то нет.
Как можно выбрать тело проще, без изменения визуального стиля?

[Веселин]

Расштрю вопрос. У меня есть точка в пространстве, и мнее нужно найти ближайший 3DSOLID, например куб.
При этом я знаю что искомый объект должен находиться не дальше чем 5мм от точки, и даже знаю в какой стороне.
Перебирать все объекты рисунка и оставить тот который ближе всех это один путь. Но объектов может быть много. Я ищу способ проще, без тупого перебора.

[koMon]

Выбрать объекты секущей линией (fence) от искомой точки до точки на расстоянии 5 единиц в известном направлении и отфильтровать выбор на наличие 3dsolid-а.

[ProjectMaster]

Создать сферу вокруг точки радиусом 5 мм.
Проанализировать пересечения с имеющимися телами в области видимости.

P.S. Извиняюсь, я не верно ответил, так как вопроса не понял.

[Веселин]

Сообщение от ProjectMaster Создать сферу вокруг точки радиусом 5 мм. Проанализировать пересечения с имеющимися телами в области видимости.

Я так и делаю, да только у меня область видимости всё пространство модели. А это перебор как в прямом смысле, так и в переносном.

----- добавлено через ~2 мин. -----

Сообщение от koMon Выбрать объекты секущей линией (fence) от искомой точки до точки на расстоянии 5 единиц в известном направлении и отфильтровать выбор на наличие 3dsolid-а.

Уже пытался именно так, но если секущая линия проходит не через ребро , то ничего не находит.

----- добавлено через ~21 мин. -----
Пока что код выглядит вот так, и чото виснет.

Код:

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

 ;; Сфера
(setq sphereObj (vlax-ename->vla-object (car (entsel))))
;; Поиск пересекаемого тела.
(vlax-for obj (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (if (and (equal (vla-get-ObjectName obj) "AcDb3dSolid") (not (equal obj sphereObj)))
      (if (setq solidObj (vla-CheckInterference sphereObj obj :vlax-false :vlax-true))
        (progn
          (setq tmpfind obj) ; искомый объект
          (vla-Delete solidObj)
        )
      )
  )
  tmpfind ; VLA-object
)

[koMon]

Сообщение от Веселин Уже пытался именно так, но если секущая линия проходит не через ребро , то ничего не находит.

побробовал смоделировать буквально. точка (примитив) ровно в центре (0,0,0) куба с ребром 5 единиц. секущая линия (0,0,0) (6,0,0) сечёт грань. куб выбирается.

Код:

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

 (setq point_inside_box (cdr (assoc 10 (entget (car (entsel "\nТочка внутри: ")))))
	  point_6_units_X (list (+ 6.0 (car point_inside_box)) (cadr point_inside_box) (caddr point_inside_box))
)
(setq 3d_solid_sset (ssget "_F" (list point_inside_box point_6_units_X)))
(command "_erase" 3d_solid_sset)

метод vla-CheckInterference с постоением сферы здесь вряд ли может быть полезен, поскольку определяет пересечение двух 3d тел и если таковое имеется, то строит его. здесь из двух перескаемых 3d тел, одно априори неизвестно и собственно ищется. вопрос с чем пересекать сферу?

[Веселин]

koMon Да действительны, вы правы. У меня сразу не получилось по неизвестной причине. Спасибища!