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
编译时说 属性的使用无效。如何才能画封闭的
样条曲线？如有代码更好，多谢了！！
置顶卡
