[archee]

Пусть, к примеру имеется функция:

Public Function getAngle(line As AcadLine) As Double
Set getAngle = line.Angle
End Function

И я хочу вызвать эту функцию из другой, например

Public Sub Main()
Dim AcLine As AcadLine
Dim angle As Double

angle = getAngle(AcLine) <- Здесь ошибка!!! Почему?
End Sub

Пишет

Compile Error:
ByRef argument type mismatch

Может где-нить нужно прописать ByRef? Опыта у меня просто в vba нет, поэтому и задаю такие глупые вопросы...

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

Покажи, как ты получаешь AcLine.

[archee]

Ну у меня есть чертеж с линиями типа AcDbLine, я их извлекаю из чертежа, загоняю в объект типа AcadLine и пытаюсь этот объет передать в функцию, но компилятор ругается.

Пишу код

Dim line_list As Collection
For Each obj in ThisDrawing.ModelSpace
If (obj.ObjectName = "AcDbLine") Then
line_list.Add obj
End If
Next

Теперь у меня в line_list все объекты типа AcDbLine

И теперь я пытаюсь передать эти объекты в функцию:
Dim AcLine As AcadLine

For Each line in line_list
Set AcLine = line <- Здесь все нормально
angle = getAngle(AcLine) <- Ошибка здесь!
Next

Не могу понять почему ошибка выскакивает, ведь присвоение ссылки проходит нормально и объект типа AcDbLine фактически становиться объектом с типом AcadLine. Т.о. не могу передать линию в другую функцию. Чо за фак?

[Vildar]

Э.. set то лишний:

Код:

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

Public Function getAngle(line As AcadLine) As Double
Set getAngle = line.Angle
End Function

А что это за линии такие, созданные в ARXе? Можно файло хоть с одной такой линией посмотреть?

[archee]

Убрал Set, выскакивает та же ошибка. В чем дело?