签到天数: 10 天 连续签到: 1 天 [LV.3]三顾茅庐
|
4楼
楼主 |
发表于 2013-3-31 13:42:49
|
只看该作者
modem,前段时间整别的去 了。
今天自己捉摸了一下。还真的出来了,太谢谢你了。
Dim dblLen, arrPoint, strObject
Dim endPoint
strObject = rhino.GetObject("please select a curve", 4)
endPoint = rhino.CurveEndPoint(strObject)
dblLen = Rhino.CurveClosestPoint(strObject, endPoint)
rhino.AddPipe strObject, array(0, dblLen / 2, dblLen), array(0.5, 0.5, 0.5)
|
|