[日积月累]：call调用创建实体子程序，怎么返回实体句柄

唐僧肉

Function 创建donut()
    ' This example creates a lightweight polyline in model space.
    ' It then finds and changes the bulge for a given segment.
   
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 5) As Double
   
    ' Define the 2D polyline points
    points(0) = -0.009: points(1) = 0
    points(2) = 0.009: points(3) = 0
    points(4) = -0.009: points(5) = 0
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    plineObj.SetBulge 0, -1: plineObj.Update
    plineObj.SetBulge 1, -1: plineObj.Update
    plineObj.ConstantWidth = 0.018
End Function
Sub test1()
Dim plineObj As AcadLWPolyline
On Error Resume Next
plineObj = 创建donut()

End Sub
子程调用出错，请大侠看看
另call调用创建实体子程序，怎么返回实体句柄

abu

我的电脑上没装ACAD，这样改不知行不行

Function 创建donut(rObj)
Dim plineObj As AcadLWPolyline
Dim points(0 To 5) As Double

' Define the 2D polyline points
points(0) = -0.009: points(1) = 0
points(2) = 0.009: points(3) = 0
points(4) = -0.009: points(5) = 0
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
plineObj.SetBulge 0, -1: plineObj.Update
plineObj.SetBulge 1, -1: plineObj.Update
plineObj.ConstantWidth = 0.018
'下行是关键
set rObj=plineObj
End Function

Sub test1()
Dim plineObj As AcadLWPolyline
On Error Resume Next
call 创建donut(plineObj)