社区 › VB › AddSpline怎么不可以用Closed 属性？

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

AddSpline怎么不可以用Closed 属性？

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 30 Then
                                                       MsgBox "数组参数无法创建样条曲线"
                                                       Exit Function
                       End If
                       Set objSpline = ThisDrawing.ModelSpace.AddSpline(ptArr, vecSt, vecEn)
                       'objSpline.Closed True
                       Set AddSpline = objSpline
End Function
编译时说　属性的使用无效。如何才能画封闭的
样条曲线？如有代码更好，多谢了！！

雪山飞狐_lzh 发表于 2004-12-22 16:13:00

objSpline.Closed =        True

szwbluesky 发表于 2004-12-23 12:44:00

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

雪山飞狐_lzh 发表于 2004-12-23 14:24:00

Spline的Closed属性确实是只读的，：）
在最后加一个点，即初始点

szwbluesky 发表于 2004-12-24 22:30:00

在最后加一个点，即初始点？啥意思，开玩笑吗？
如果是只读的，那它的值就是true吗？
要用Spline的曲线闭会，那该咋办？
http://www.mjtd.com/bbs/Skins/Default/emot/em09.gif

mccad 发表于 2004-12-24 22:38:00

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

mailzhb 发表于 2004-12-27 17:32:00

可以应用

查看完整版本: AddSpline怎么不可以用Closed 属性？