函数返回一个对象

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时，我收到一条错误消息： “对象变量或未设置块变量”
有人知道为什么吗？
谢谢！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复