社区 › VB › 函数返回一个对象

assafius 发表于 2014-7-27 09:56:04

函数返回一个对象

嗨，
在autocad VBA中写了一个简单的代码，由于某种原因无法运行：
函数myFunc（p As ACAD_POINT） As
Object Dim r As Object
myFunc = r
End Function
Sub MySub（）
Dim p1 As ACAD_POINT
Dim obj As object
set obj = MyFunc（p1）
End Sub
当我执行MySub时，我收到一条错误消息： “对象变量或未设置块变量”
有人知道为什么吗？
谢谢！
**** Hidden Message *****

owenwengerd 发表于 2014-7-27 17:06:04

您已将 r 声明为 Object，但尚未为其赋值（例如 Set R =
）。

查看完整版本: 函数返回一个对象