[VVA]

Пока в чертеже нет Region'ов

Код:

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

  (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
  (setq axss (vla-get-activeselectionset adoc))

возвращает что-то типа

#<VLA-OBJECT IAcadDocument 03bc85e0> #<VLA-OBJECT IAcadSelectionSet 03bf2804>

Но стоит только только ему появится, как получаем

_$ (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (setq axss (vla-get-activeselectionset adoc)) #<VLA-OBJECT IAcadDocument 03bc85e0> ; ошибка: Ошибка Automation. Вызов метода AddItems из интерфейса IAcadSelectionSet завершился неудачно

Удаляем регион - опять все нормально.
Как обойти сей трабл или это у меня такой Автокад?
Автокад 2004 RUS.

[Елпанов Евгений]

Более чем странно...
Подтверждаю, у меня на 2004 en получилась такая же фигня!

[{Smirnoff}]

Да действительно так и есть (2004 EN). Надо дома на других версиях попробывать...

[VVA]

Та же самая картина на 2002 EN и 2006 RU

[Александр Ривилис]

Судя по всему дело не в самом REGION, а в том что команда _REGION портит ActiveSelectionSet Если после добавления REGION выполнить команду _SELECT и что-то выбрать - этой ошибки нет (проверял в AutoCAD 2004...2006)

У меня есть предположение и даже почти уверенность в следующем:
Все объекты, участвовавшие в работе некоторой команды AutoCAD записываются в некоторый внутренний набор.
При вызове свойства activeselectionset указатели на все примитивы из этого внутреннего набора копируются в именованный набор CURRENT. Именно указатель на этот набор и возвращает свойство документа activeselectionset.
При выполнении команды REGION во внутренний набор попадает примитив, участвующий в ней, например полилиния.
Но команда REGION при установке по умолчанию системной переменной DELOBJ удаляет полилинию.
При попытке получить свойство activeselectionset AutoCAD пытается скопировать указатель на удаленную полилинию в набор CURRENT и, естественно выдает ошибку.
Установите DELOBJ в 0 и проверьте!

[{Smirnoff}]

Установите DELOBJ в 0 и проверьте!

Пастух докапался до истины. Баг однако, или назовём более мягко особенность...

Кстати после создания региона при DELOBJ=1 (ssget "_P") nil :?

>VVA
А зачем вам именно активный набор? Есть много других способов получить желаемый результат. К примеру (ssget "_I") т. е. все примитивы с подсвеченными ручками или перед созданием региона, запомнить последний примитив и идти от него функцией (entnext). Вроде работает если вы бага не обнаружите

[VVA]

Задача стояла наоборот, если есть, то расчленить регионы. Вначале так и делал (setq ssnab (ssget "_X" '((0 . "REGION"))))Но конструкция (command "_EXPLODE" ssnab) расчленяет только один регион
Идея пришла одна: vla-explode. Не прошло через активный набор, сделал чере цикл по ssnab и (vla-Explode (vlax-ename->vla-object (ssname ssnab i)))

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

> VVA : Я понимаю, что это не гуд, но тем не менее можно попробовать нечто типа:

Код:

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

(setq selset (ssget "_X" '((0 . "REGION"))))
(while (and selset
	    (> (sslength selset) 0)
	    ) ;_ end of and
  (setq item (ssname selset 0))
  (ssdel item selset)
  (if (vl-catch-all-error-p
	(vl-catch-all-apply 'vla-explode (list (vlax-ename->vla-object item)))
	) ;_ end of VL-CATCH-ALL-ERROR-P
    (princ "\nНевозможно разбить регион")
    ) ;_ end of if
  ) ;_ end of while