[求助]：大家帮帮忙啊

云中帆

请大家帮忙看看这段代码有什么问题，为什么说类型不匹配啊？
Public Sub ext()
Dim pt(5) As Double
Dim objpline As Acad3DPolyline
pt(0) = 100
pt(1) = 200
pt(2) = 300
pt(3) = 100
pt(4) = 200
pt(5) = 800
Set objpline = ThisDrawing.ModelSpace.Add3DPoly(pt)
objpline.color = acGreen
Dim objlist(0) As AcadEntity
Dim ptcen(2) As Double
ptcen(0) = 100
ptcen(1) = 200
ptcen(2) = 300
Set objlist(0) = ThisDrawing.ModelSpace.AddCircle(ptcen, 50)
Dim objregion As Variant
Set objregion = ThisDrawing.ModelSpace.AddRegion(objlist)
Dim objsolid As Acad3DSolid
Set objsolid = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(objregion(0), objpline)
ZoomExtents




End Sub

雪山飞狐(lzh)

objregion = ThisDrawing.ModelSpace.AddRegion(objlist)

neteasy

Dim pt(0 to 5) As Double
Dim ptcen(0 to 2) As Double