AddSpline怎么不可以用Closed 属性？

szwbluesky

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

雪山飞狐_lzh

objSpline.Closed = True

szwbluesky

哦，不过 objSpline.Closed = True 编译时说　不能给只读属性赋值 啥原因？

雪山飞狐_lzh

Spline的Closed属性确实是只读的，：）


在最后加一个点，即初始点

szwbluesky

在最后加一个点，即初始点？啥意思，开玩笑吗？ 如果是只读的，那它的值就是true吗？ 要用Spline的曲线闭会，那该咋办？

mccad

也就是把第一点的点坐标再也放到最后一点。
也就是在列表中增加一个点，这个点在最后面，坐标与第一点相同。

mailzhb

可以应用