Rhino(犀牛)中国技术支持与推广中心

标题: 请教 Jessesn [打印本页]

作者: gyhk02 时间: 2013-2-21 09:02
标题: 请教 Jessesn
本帖最后由 gyhk02 于 2013-2-21 11:51 编辑

Jessesn，以下为我在本网站找到你写的代码，想请教一个问题
比如，之前有选择了5条曲线生成5个圆管后，我想回头再来选中第2条圆管要怎样才能实现？能否帮我写个简短的代码，谢了！！！

Dim crvs, crv, rad
crvs = Rhino.getobjects("Select curves to create pipes around", 4) ' 4 = curves

rad = CStr(Rhino.GetReal("Type radius for pipes", 1, 0.001))
For Each crv In crvs

Rhino.UnselectAllObjects

Rhino.Command "_pipe _selid " + crv + " " + rad + " _enter _enter"

Next

作者: shadow 时间: 2013-2-21 10:46
这标题能改一下吗？比如说请教Jessesn什么的。

作者: gyhk02 时间: 2013-2-26 08:58
标题我改了

欢迎光临 Rhino(犀牛)中国技术支持与推广中心 (http://bbs.rhino3d.asia/)