Polyline to Curve (Endpoints and midpoints as CP)

njyqqq · 发表于 2010-6-10 14:01:10

Option Explicit
Sub Poly2CrvMid ()

  Dim arrCrvs,strCrv, arrPoints,arrPoint
  Dim K,i,arrNPt,hh,kk

  arrCrvs = Rhino.GetObjects("Select curves", 4)

  If IsNull(arrCrvs) Then Exit Sub

  ReDim arrCC(UBound(arrCrvs))

  hh=0
  For Each strCrv In arrCrvs
If Rhino.IsPolyline(strCrv) Then
arrPoints = Rhino.PolylineVertices(strCrv)

If IsArray(arrPoints) Then
k=UBound(arrPoints)
kk=(k+1)*2-2

ReDim arrNPt(kk)

Dim nn : nn=0

For i=1 To kk Step 2
arrNPt(i) = Array((arrPoints(nn)(0)+arrPoints(nn+1)(0))/2, (arrPoints(nn)(1)+arrPoints(nn+1)(1))/2, (arrPoints(nn)(2)+arrPoints(nn+1)(2))/2 )

nn=nn+1

Next
nn=0
For i=0 To kk Step 2
arrNPt(i) = arrPoints(nn)
nn=nn+1
Next

arrCC(hh) = Rhino.AddCurve (arrNPt ,3)
hh=hh+1

End If
  End If
Next

Rhino.SelectObjects arrCC

End Sub

Poly2CrvMid

njyqqq · 发表于 2010-6-10 14:01:28

登录/注册后可看大图

夜神 · 发表于 2010-6-10 14:16:28

赞！（补充字数）

stratagem · 发表于 2010-6-10 22:48:45

支持!!!!!!!!!!!!!!!!!!!!!!!!

小r学生 · 发表于 2010-6-10 23:48:29

支持支持·····虽然GH里面是一个电池的事···但是还是自己编出来比较有成就感~！

miniorange · 发表于 2010-6-11 00:25:17

够疯狂!!!!!!

jasonbb88 · 发表于 2010-6-11 00:44:18

厉害楼主你这个算法可以介绍一下吗？

没碗 · 发表于 2010-6-12 01:04:07

很实用～～

wawa · 发表于 2011-4-28 17:24:25

very good!

七策 · 发表于 2011-7-16 22:37:58

o~ ^-^~ 路过~ 留爪~

七策 · 发表于 2011-7-16 22:38:24

o~ ^-^~学学看看~顶了~

wenchongyun · 发表于 2011-9-7 17:56:10

将polyline上的编辑点加倍，再用所得点做控制点做高次曲线？？？

Tony · 发表于 2011-11-5 21:28:09

貌似在哪个网站上见过~~~~

lbq0821 · 发表于 2011-11-16 09:49:35

这个很赞！！！

up.side.down · 发表于 2011-11-21 13:41:55

这个实用的哇

www.qqqzq.com · 发表于 2011-11-22 07:19:44

我是刚注册的新手请各位大哥多关照

帐号		自动登录	找回密码
密码			注册

[心得体会] Polyline to Curve (Endpoints and midpoints as CP)

评分

浏览过的版块