[Makswell]

Всем привет.
Несколько примитивов были раннее объединены в группу (команда _GROUP). Сейчас мне нужно выделить несколько примитивов из этой группы для последующей обработки. Но дело в том, что ssget выбирает сразу всю группу в целом. Думал, поможет установка PICKSTYLE в 0, но это не дало никакого эффекта. На этом в общем-то у меня мысль заканчивается. )))

Как быть?

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

А как ты узнаешь, какие примитивы "нужны", а какие - нет? Или выбор осуществляется вручную?

[Makswell]

Да, вручную. В частности ssget-ом.

Ещё была мысль вместо ssget, установить PICKSTYLE в 0 и попробовать (command "_.Select" ...), но в выборе у меня ещё присутствует фильтр, чего в _.Select не сделать.

Добавлено:
Сейчас проверил vla-SelectOnScreen. То же самое, ведёт себя, как ssget и выбирает группу целиком.

[VVA]

Makswell, Я тоже проверил. SSGET выбирает в зависимости от PICKSTYLE либо отдельный объект, либо группу. SSGET пробовал без фильтра и с фильтром на LINE. Autocad 2006 RUS. Короче выкладывай файл с группой и код с ssget

[Makswell]

Сообщение от VVA Makswell, Я тоже проверил. SSGET выбирает в зависимости от PICKSTYLE либо отдельный объект, либо группу. SSGET пробовал без фильтра и с фильтром на LINE. Autocad 2006 RUS. Короче выкладывай файл с группой и код с ssget

Хех! Точно, это просто моя невнимательность. Просто при ssget, когда наводишь курсор, у меня выделяется (в смысле подсвечивается) вся группа, но при дальнейшем выборе (нажатии кнопки мыши) видно, что выделяются нужные примитивы. У меня 2008-й, но я думаю, что наверно везде так.

По ходу дела у меня появились ещё вопросы. Не совсем по основной теме, но тем не менее, как с помощью ssget выбрать группу по имени (уже не интерактивно, а из всего рисунка)? Опять же с помощью _Select это можно сделать так:

Код:

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

(if (member "имя_группы"
	    (mapcar
	      'cdr
	      (vl-remove-if-not
		(function (lambda (x) (= (car x) 3)))
		(dictsearch (namedobjdict) "ACAD_GROUP")
	      )
	    )
    )
  (progn
    (vl-cmdf "_.SELECT" "_g" "имя_группы" "")
    (setq selset (ssget "_p"))
  )
)

Но как всегда хочется уйти от команд.

И ещё, можно ли как нибудь создать группу не используя _.-GROUP и все тот же vl-cmdf? Т.е как рализовать вот такую конструкцию:

Код:

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

(vl-cmdf "_.-GROUP" "_c" "имя_группы" "" selset "")

не используя командные методы?

[VVA]

как с помощью ssget выбрать группу по имени

Код:

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

(vlax-for Grp (vla-get-Groups (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (vla-get-name Grp) <Твое имя>)
    (vlax-for Ent Grp
      === Собирай ENT ====
      )
    )
  )

И ещё, можно ли как нибудь создать группу не используя _.-GROUP

Код:

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

(setq New_Group (vla-add (vla-get-Groups (vla-get-activedocument (vlax-get-acad-object))) "My_New_Group"))
(setq ent (car(entsel)))
(setq lst (list (vlax-ename->vla-object ent)))
(vla-AppendItems New_Group
  (vlax-make-variant
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbObject
        (cons 0 (1- (length lst)))
        )
      lst
      )
    )
  )

Если не через vla, то
1. Группы - это записи в словаре "ACAD_GROUP"
2. см. http://www.caduser.ru/forum/index.ph...#message128497

[Makswell]

VVA, спасибо! ...А за ссылку спасибо отдельное.