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

AddSpline怎么不可以用Closed 属性？

Public Function AddSpline(ByRef ptArr() As Double, ByVal vecSt As Variant, _<BR>ByVal vecEn As Variant) As AcadSpline<BR>                       Dim objSpline As AcadSpline<BR>                       '错误处理：判断数组的有效性<BR>                               If (UBound(ptArr) + 1) Mod 3 &lt;&gt; 0 Then<BR>                                                       MsgBox "数组参数无法创建样条曲线"<BR>                                                       Exit Function<BR>                       End If<BR>                       Set objSpline = ThisDrawing.ModelSpace.AddSpline(ptArr, vecSt, vecEn)<BR>                       'objSpline.Closed True<BR>                       Set AddSpline = objSpline<BR>End Function


编译时说　属性的使用无效。如何才能画封闭的


样条曲线？如有代码更好，多谢了！！

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

objSpline.Closed =        True<BR>

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

哦，不过


objSpline.Closed =        True


编译时说　不能给只读属性赋值


啥原因？<BR><BR><BR>

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

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


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

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

在最后加一个点，即初始点？啥意思，开玩笑吗？


如果是只读的，那它的值就是true吗？


要用Spline的曲线闭会，那该咋办？


<IMG border=0 src="http://www.mjtd.com/bbs/Skins/Default/emot/em09.gif">


       

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

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

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

可以应用
页: [1]
查看完整版本: AddSpline怎么不可以用Closed 属性？