[ikambi]

Проблема в том что не получается передать объект AutoCAD в функцию в качестве аргумента.
Программа считывает объекты с листа AutoCAD и помещает ссылки на них в массив через Set. Как мне передать данные из массива в функцию.

Код:

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

Public ObjectsArray() As AcadEntity
.........
Public Sub GetObj(block as AcadEntity) 
.........
End Sub

При вызове функции GetObj(ObjectsArray(0)) ошибка "Object doesn't support this property or methods"
Массив заполнен и доступен везде.

[Лиспер]

А в каком месте ошибка? Пошагово попробуй пройти. Ну или, на крайний случай, используй On Error.

[ikambi]

Ошибка во время вызова функции. В функцию даже не заходит.

[AlexV]

А процедура GetObj(block as AcadEntity) чего делает? Может, ты пытаешься получить свойство или применить метод, которые не являются общими для всех примитивов.. "Object doesn't support this property or methods", объект то бишь не поддерживает свойство или метод. Поподробней код процедуры и вызова ее напиши.

А что значит "Массив заполнен и доступен везде."? объявлен как Public? Если так, то его и передавать не надо, можно напрямую обращаться..

[Лиспер]

Ну раз кода не дождаться, то вот работающий вариант:

Код:

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

Option Explicit

Public objArray() As AcadEntity

Public Function funTest() As AcadEntity()
Dim sSelSetName As String
Dim res() As AcadEntity, objCounter As AcadEntity
Dim objSelSet As AcadSelectionSet
  sSelSetName = "MySelect"
  With ThisDrawing.SelectionSets
    On Error Resume Next
    .Item(sSelSetName).Delete
    Set objSelSet = .Add(sSelSetName) '.SelectOnScreen
    objSelSet.SelectOnScreen
    For Each objCounter In objSelSet
      On Error GoTo lErrorReDim
      ReDim Preserve res(UBound(res) + 1)
      Set res(UBound(res)) = objCounter
    Next
    .Item(sSelSetName).Delete
  funTest = res
  End With
  Exit Function
lErrorReDim:
  ReDim res(0)
  Resume Next
End Function

Public Sub GetObj(objRef As AcadEntity)
  MsgBox objRef.ObjectName
End Sub

Public Sub Test()
Dim obj() As AcadEntity
  obj = funTest
  GetObj obj(0)
End Sub

[ikambi]

Мне нужно передать "блок" для последующей разбивки его на части, сделать блок.explode ну и обработать потом....
Но дело не в содержании функции. Объект даже в пустую функцию не передается почему-то


Сбасибо большое!!!
GetObj obj(0)
Оказывается надо не в скобках передавать а рядом писать.....
Все работает)))

[AlexV]

Сообщение от ikambi Мне нужно передать "блок" для последующей разбивки его на части, сделать блок.explode ну и обработать потом.... Но дело не в содержании функции. Объект даже в пустую функцию не передается почему-то Сбасибо большое!!! GetObj obj(0) Оказывается надо не в скобках передавать а рядом писать..... Все работает)))

Либо

Код:

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

Call (GetObj obj(0) )

..

[Сергей Дубина]

Если блок 1 можно обойтись без набора, к сожалению у меня справки по ВБА нет а так я не помню функция называется примерно GeEntity если нужны будут координаты, тогда в связке с GetPoint.

[Лиспер]

Сергей Дубина, ???

[Сергей Дубина]

Сообщение от Лиспер ???

что ???

[Лиспер]

Не понял, что за блок1, и почему нет справки по VBA.

[Сергей Дубина]

У меня ЛТ. А выбирать один блок нужно, зачем набор примитивов?

[Лиспер]

Сергей Дубина, для LT программная обработка возможна только со стороннего полноценного exe-файла через СОМ-интерфейс, насколько я знаю. По крайней мере "внутри" LT сделать программно ничего не удастся...

[Сергей Дубина]

Сообщение от Сергей Дубина к сожалению у меня справки по ВБА нет

Сообщение от Лиспер и почему нет справки по VBA.

потому что ЛТ

Сообщение от Лиспер Сергей Дубина, для LT программная обработка возможна только со стороннего полноценного exe-файла через СОМ-интерфейс, насколько я знаю. По крайней мере "внутри" LT сделать программно ничего не удастся...

Мне "внутри" LT программно ничего делать не надо. Я по памяти отвечал, а она у людей, сами понимаете, не надёжная...