[Ingpro]

Почему не работает выбор "*LINE"?

Код:

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

 ;; https://www.cadtutor.net/forum/topic/35448-multiple-offset/#comment-288045 / множеств. смещение
(defun c:multiple-offset (/ s i d p v)
;;; Tharwat 14. Dec. 2011 ;;;
 (if (and (setq s (car (entsel "\n Select entity :")))
          ;(member (cdr (assoc 0 (entget s))) '("*LINE" "CIRCLE" "ARC" "ELLIPSE")) ; /оригинал/ не работает с линиями и ПЛ

  ; (member (cdr (assoc 0 (entget s))) '("LINE" "PLINE" "CIRCLE" "ARC" "ELLIPSE")) 
;  не работает с  LWPOLYLINE и 2D-полилиниями?

(member (cdr (assoc 0 (entget s))) '("LINE" "LWPOLYLINE" "PLINE" "CIRCLE" "ARC" "ELLIPSE")) 
; работает с LINE и LWPOLYLINE
; но не выбирает 2D-полилинии

          (setq i (getint "\n number of offset times :"))
          (setq d (getdist "\n Distance of offset :"))
          (setq p (getpoint "\n Specify point on side to offset :"))
          (setq v d)
     )
   (repeat i (command "_.offset" d s p "") (setq d (+ d v)))
   (princ)
 )
 (princ)
)

По идее должны выбираться и линии (LINE) и полилинии ( LWPOLYLINE и 2D-полилинии)...
Но эта строка в оригинальном лиспе игнорит выбор и LINE и LWPOLYLINE и 2D-полилинии:

Код:

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

 (member (cdr (assoc 0 (entget s))) '("*LINE" "CIRCLE" "ARC" "ELLIPSE")) 

Если заменить строку на

Код:

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

 (member (cdr (assoc 0 (entget s))) '("LINE" "LWPOLYLINE" "PLINE" "CIRCLE" "ARC" "ELLIPSE")) 

то это работает с LINE и LWPOLYLINE, но не выбирает 2D-полилинии...
Есть ли какой-нибудь универсальный выход для выбора линий всех типов?
У меня в чертеже системная переменная PLINETYPE - 2.
Если добавить "POLYLINE", то выбираются и 2D-полилинии

Код:

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

 (member (cdr (assoc 0 (entget s))) '("LINE" "LWPOLYLINE" "POLYLINE" "CIRCLE" "ARC" "ELLIPSE"))

Не знаю, правильное ли это решение))) Раньше не было проблем с "*LINE", может в коде надо что-то подкорректировать?

[VVA]

Сообщение от Ingpro ; работает с LINE и LWPOLYLINE ; но не выбирает 2D-полилинии

2d полилинии имеют тип POLYLINE, а не PLINE

Код:

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

 (member (cdr (assoc 0 (entget s))) '("LINE" "LWPOLYLINE" "POLYLINE" "CIRCLE" "ARC" "ELLIPSE"))

[Ingpro]

Сообщение от VVA 2d полилинии имеют тип POLYLINE, а не PLINE

VVA, спасибо, но почему в коде не работает выбор "*LINE" (для LINE и LWPOLYLINE)?

[name02]

Потому что (member) ищет такой же элемент в списке, а поиск для *LINE - это маска для функции (wcmatch)

[Ingpro]

Сообщение от name02 Потому что (member) ищет такой же элемент в списке, а поиск для *LINE - это маска для функции (wcmatch)

Тогда эту строку надо записать по-другому? Как?

Код:

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

 (member (cdr (assoc 0 (entget s))) '("*LINE" "CIRCLE" "ARC" "ELLIPSE")) 

чтобы работал выбор "*LINE"

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

Щщас!
(wcmatch (cdr (assoc 0 (entget s))) "*LINE,CIRCLE,ARC,ELLIPSE")

----- добавлено через 55 сек. -----
И вообще, кто мешает нарисовать вариант типа
(ssget "_.+:S:E:L" "*LINE,CIRCLE,ARC,ELLIPSE")
И уже из набора получать примитив?

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Щщас! (wcmatch (cdr (assoc 0 (entget s))) "*LINE,CIRCLE,ARC,ELLIPSE")

Спасибо!