NCF参数化建筑论坛

标题: 帮看下这段代码问题出在哪 [打印本页]

作者: licml 时间: 2011-1-9 16:26
标题: 帮看下这段代码问题出在哪
求2曲线的交点，可是两个交点重合在一起，而不是分别在两个交叉处，怎么回事啊

[attach]13837[/attach]

Sub Main()

Dim Cur(), arrCCX,Pt1,Pt2,n

ReDim Cur(2)

Cur(1)=rhino.getobject("select first curve:")

Cur(2)=rhino.getobject("select second curve:")

arrCCX=rhino.CurveCurveIntersection(Cur(1),Cur(2))

n=UBound(arrCCX)

Pt1=rhino.AddPoint(arrCCX(n,1))

Pt2=rhino.AddPoint(arrCCX(n,2))

End Sub

作者: aufalpen 时间: 2011-1-9 19:54
Pt1=rhino.AddPoint(arrCCX(0,1))

Pt2=rhino.AddPoint(arrCCX(1,1))

作者: licml 时间: 2011-1-9 20:14
明白了，多谢

作者: ninesuns 时间: 2011-12-6 19:05
不是很懂呢。

欢迎光临 NCF参数化建筑论坛 (http://www.ncf-china.com/)