[Веселин]

Научите пользоваться. Прочитал, что можно проверять полилинию на замкнутость. Все что я знаю, это (70 . 1).

[bargool]

Готово!

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

От http://forum.dwg.ru/showpost.php?p=6...postcount=1040 и далее

[Веселин]

А, вон оно аж где! Какая огромная тема. Надеюсь найду там ответ на свой вопрос. Как logand и logior оперируют логическими значениями, я и так знал. Но как это применяется для проверки полилинии на замкнутость? Чуток полистал, ответа пока не вижу. Может есть краткий пример, если не трудно?
(logior 10 12 1) вот эти числа 10 12 1, здесь что означают?

[nolte]

к своему стыду, не понимаю смысл пользоваться ф-ей logior logand, но если в смысле поучиться, то гугль или Полещук функции
car, cadr и прочие car-ы
entsel
entget
assoc
if
defun
setq
это как бы по простому.

[gomer]

Сообщение от nolte не понимаю смысл пользоваться ф-ей logior logand

полезно для чтения диалоговык окон как альтернатива спискам

[nolte]

Спасибо gomer, попробую разобраться

[VVA]

Сообщение от Веселин Может есть краткий пример, если не трудно?

Не трудно

Код:

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

(defun C:TEST ( / en)
  (and
    (setq en (car(entsel "\nSelect polyline: ")))
    (if (= (logand (cdr(assoc 70 (entget en))) 1) 1)
      (alert "Polyline closed")
      (alert "Polyline open")
      )
    )
  (princ)
  )

[Веселин]

VVA Убрал logand из примера, результат тот же.

Код:

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

 (defun C:TEST ( / en)
  (and
    (setq en (car (entsel "\nSelect polyline: ")))
    (if (= (cdr (assoc 70 (entget en))) 1)
      (alert "Polyline closed")
      (alert "Polyline open")
      )
    )
  (princ)
  )

Не нашел выгоды от logand в данном примере.

[VVA]

Веселин, вызови команду _pedit и сгладь (_fit) замкнутую полилинию. Попробуй снова мой и свой вариант.

[nolte]

да весело.
свойство closed работает нормально.

Код:

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

 
(defun C:TEST1 ( / en)
    (setq en (car(entsel "\nSelect polyline: ")))
    (if (zerop (cdr(assoc 70 (entget en))))
      (alert "Polyline open")
      (alert "Polyline closed")
     )
  (princ)
  )

[gomer]

Примеры из справки

Код:

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

 (logand 7 15 3) = (logand (+ 1 2 4) (+ 1 2 4 8) (+ 1 2)) ==> (+ 1 2) = 3
(logand 2 3 15) = (logand 2 (+ 1 2) (+ 1 2 4 8)) ==> 2
(logand 8 3 4) = (logand 8 (+ 1 2) 4) ==> 0

[Веселин]

Сообщение от VVA _pedit и сгладь (_fit)

Теперь разницу вижу. Всем спасибо за подсказки!
Особенно VVA, сам бы я ни за что не догадался.