AddSpline怎么不可以用Closed 属性？

szwbluesky · 发表于 2004-12-22 15:01:00

Public Function AddSpline(ByRef ptArr() As Double, ByVal vecSt As Variant, _
ByVal vecEn As Variant) As AcadSpline
   Dim objSpline As AcadSpline
   '错误处理：判断数组的有效性
   If (UBound(ptArr) + 1) Mod 3  0 Then
   MsgBox "数组参数无法创建样条曲线"
   Exit Function
   End If
   Set objSpline = ThisDrawing.ModelSpace.AddSpline(ptArr, vecSt, vecEn)
   'objSpline.Closed True
   Set AddSpline = objSpline
End Function
编译时说　属性的使用无效。如何才能画封闭的
样条曲线？如有代码更好，多谢了！！