'注: 以下为对两个网格物体的组合。
'最终的目的:再次选中两个被组合的网格物体,如果有其它方法,也请赐教,谢了
Dim obj, useObj
obj = rhino.GetObjects("请选择两个网格物体")
rhino.SelectObjects(obj)
useObj = rhino.Command("_Join _Enter")
rhino.UnselectAllObjects()
'这里选不中被组合后的网格物体
'因为上面 rhino.Command() 返回的结果是逻辑型
rhino.SelectObject(useObj) |