[swkx]

Подскажите, плиз.

[VVA]

[IMG]http://s40.***********/i089/1006/a5/657a3f2918bb.png[/IMG]

Код:

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

(if
 (and
  (setq ent (car(entsel "\nВыбери 3d полилинию :")))
  (= (cdr(assoc 0 (entget ent))) "POLYLINE") ;_ Полинилия, но не обязательно 3D
  (= (logand (cdr (assoc 70 (entget ent))) 8) 8) ;_ Флаг 3D полилинии
  (= (logand (cdr (assoc 70 (entget ent))) 1) 1) ;_ Флаг замкнутости полилинии
  )
 (alert "3D замкнутая полилини")
 (alert "Не 3D полилиния\nИли не замкнутая 3D полилиния")
 )

[swkx]

VVA, спасибо, но хотелось бы комментарий. Вот моя 3Д-линия:

Команда: (entget (entlast))
((-1 . <Имя объекта: 7ef067b8>) (0 . "POLYLINE") (330 . <Имя объекта:
7ef05cf8>) (5 . "3BF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"ABC") (100 . "AcDb3dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 9) (40 .
0.0) (41 . 0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0))

Я так понимаю, что под загадочной парой (70 . 9) кроется ещё какая-то информация ?

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

1 + 8 = 9
то есть это замкнутая (1) и 3D (8) полилиния.

[swkx]

Я правильно понимаю, что в моём конкретном случае хватило бы этого?:

Код:

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

( = (cdr (assoc 70 (entget ent))) 9)

[Евгений А.]

Это битовый код и первый бит - признак замкнутости. То есть если нечётное - то замкнутое! (9 - нечётное)
Вложил листик из справки.

[VVA]

Сообщение от swkx VVA, спасибо, но хотелось бы комментарий.

Я же подчеркнул нужное на картинке
Кроме того в #2 главное выделил красным (с учетом поста #4)

Сообщение от Евгений А. Я правильно понимаю, что в моём конкретном случае хватило бы этого?:

Правильно. Пример ниже - выбор замкнутых 3д полилиний

Код:

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

(setq ss (ssget  '((0 . "POLYLINE")(70 . 9))))

[swkx]

VVA, спасибо, теперь полная ясность (в этом вопросе)