• pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Тема: Почему не работает SelectionSet по Handle?

Известен хэндл блока, нужно его выбрать.
Ниже написан код, но не могу понять почему он не работает. Ругается на фильтр, но он-то вроде впорядке?

Dim FilterType3(0) As Integer
Dim FilterData3(0) As Variant
Dim objselectionset As AcadSelectionSet
Dim handle_m As String
Dim entz As AcadEntity
dim point_block
ThisDrawing.Utility.GetEntity entz, point_block, "input Block " & vbCrLf
handle_m = entz.Handle
Set objselectionset = ThisDrawing.SelectionSets.Add("Temp38")
FilterType3(0) = 5
FilterData3(0) = handle_m
objselectionset.Select acSelectionSetAll, FilterType:=FilterType3, FilterData:=FilterData3

  • pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Re: Почему не работает SelectionSet по Handle?

Сам отвечаю:
Цитата из HELP:
The ssget function recognizes all group codes except entity names (group -1), handles (group 5), ...
Это плохо...:((((

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Почему не работает SelectionSet по Handle?

А так не устраивает?

Dim tempObj As AcadObject
Dim handle as string
Set tempObj = ThisDrawing.HandleToObject(handle)

  • pavel
  • Восстановленный участник
  • На форуме с 12 апреля 2005г.
  • Сообщений: 35
  • Спасибо: 0

Re: Почему не работает SelectionSet по Handle?

А ларчик-то просто открывался...
Спасибо!