网格线吸附小物体

 

obj_sp=sphere()
obj_sp.segments=40
obj_sp.radius=50

ConvertToPoly obj_sp

for i=1 to obj_sp.GetNumVertices() do
      (sphere prefix:"dot" radius:2).pos=8*(sin i)*(obj_sp.GetVertex i)\
 

for i=1 to obj_sp.GetNumVertices() do animate on
      (at time 100 $dot*[i].pos=4*(obj_sp.GetVertex i))