[DEM]

Довольно странная штука получается.
Создаю набор объектов, но при этом на различные команды наобор объектов реагирует по разному.
Например хочу удалить набор объектов с перфиксом PS

Код:

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

 
(defun C:daun (/   daun 
       )
(setq daun (ssget "_X" '((0 . "PS_*"))))
(command "_erase" daun "")
(setq daun nil)
)

Все срабатывает нормально.
А вот команда

Код:

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

 
(defun C:daun (/   daun 
       )
(setq daun (ssget "_X" '((0 . "PS_*"))))
(command "_explode" daun "")
(setq daun nil)
)

Срабатывает не корректно и обрабатывает примитивы по очереди.
Хочу сразу сказать что объекты с перфиксом PS это объекты Проджект студио.
Так же довольно интересно получается, почемуто не получается с помощью подобной функции сделать набор объектов СПДС-ки.

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

Код:

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

(ssget-by-name "spds*")

вернет набор примитивов. За компанию попытается его "подсветить" (хотя я бы для работы это дело, наверное, снял)

[kha]

для объектов СПДС GraphiCS уже действует (ssget "_x" '((0 . "SPDS*")))

но после работы с СПДС остаются ещё псевдолинии и псеводополилинии

попытка выбрать с помощью

(setq ss (ssget "_x" '((0 . "mcsPseudoLine")))) ничего не даёт. Как было написано ранее, ssget не отрабатывает имена примитивов с буквами в нижнем регистре


пока что извернулся так:

Код:

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

 (setq ss (ssget "_x"))
(setq l (sslength ss))
(setq i 0)
(repeat l
  (setq obj_name (cdr (assoc 0 (entget (ssname ss i)))))
  (if (or (= obj_name "mcsPseudoLine") (= obj_name "mcsPseudoPolyline"))
    (setq i (1+ i))
    (setq ss (ssdel (ssname ss i) ss))
   )
  )