• Romik
  • Восстановленный участник
  • На форуме с 15 октября 2001г.
  • Сообщений: 142
  • Спасибо: 0

Тема: При добавлении массива объектов в Group вылетает ошибка "Error in calling SafeArrayGetElement"

groupObj.AppendItems appObjs
.....
Error in calling SafeArrayGetElement.
Кто знает, подскажите что делать ?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: При добавлении массива объектов в Group вылетает ошибка "Error in calling SafeArrayGetElement"

А у меня все прекрасно сработало:

Sub GroupTest()
    Dim groupObj As AcadGroup
    Set groupObj = ThisDrawing.Groups.Add("TEST_GROUP")
    ReDim appendObjs(0 To ThisDrawing.ModelSpace.Count - 1) As AcadEntity
    Dim I As Integer
    For I = 0 To ThisDrawing.ModelSpace.Count - 1
        Set appendObjs(I) = ThisDrawing.ModelSpace.Item(I)
    Next
    ' Add the array of objects to the group
    groupObj.AppendItems appendObjs
    ThisDrawing.Regen acActiveViewport
End Sub

Ответ от owb

  • owb
  • Восстановленный участник
  • На форуме с 6 мая 2007г.
  • Сообщений: 2
  • Спасибо: 0

Re: При добавлении массива объектов в Group вылетает ошибка "Error in calling SafeArrayGetElement"

Аналогичная ошибка. Вставляю блоки в чертёж и создаю из них коллекцию
'    ..........
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, Имя, SX, SY, SZ, Ug)
ColElem.Add Item:=blockRefObj
'     ..........
    Dim appendObj() As AcadEntity
    Dim El As AcadObject
    Dim NewGroupObj, groupObj As AcadGroup
  Set NewGroupObj = ThisDrawing.Groups.Add("g1")
'     ..........
'забиваю коллекцию в массив
ReDim appendObj(1 To ColElem.Count) As AcadEntity
     For Each El In ColElem
     Set appendObj(NomEl) = El
     NomEl = NomEl + 1
     Next
'Добавляю массив в группу
NewGroupObj.AppendItems appendObj
И тут она и выскакивает:
"Ошибка при вызове SafeArrayGetElement"
Люди добрые, подскажите в чём тут мож быть дело?

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: При добавлении массива объектов в Group вылетает ошибка "Error in calling SafeArrayGetElement"

> owb
Наверное, здесь:

ReDim appendObj(0 To ColElem.Count-1) As AcadEntity

~'J'~

Ответ от owb

  • owb
  • Восстановленный участник
  • На форуме с 6 мая 2007г.
  • Сообщений: 2
  • Спасибо: 0

Re: При добавлении массива объектов в Group вылетает ошибка "Error in calling SafeArrayGetElement"

Fatty, спасибо! Заработало!