fn g_filter o = superclassof o == Geometryclass
fn find_intersection z_node node_to_z =
(
--同样的条件 数字及计算要比字符串快 所以能用数字 不用字符串。
oop=case of
(
(gt_yc_Ail.conunt_spn1.value ==1): [0,0,-1]
(gt_yc_Ail.conunt_spn1.value ==2): [0,0,1]
(gt_yc_Ail.conunt_spn1.value ==3):[-1,0,0]
(gt_yc_Ail.conunt_spn1.value ==4):[1,0,0]
(gt_yc_Ail.conunt_spn1.value ==5):[0,-1,0]
(gt_yc_Ail.conunt_spn1.value ==6):[0,1,0]
--default: reference $foo
)
local testRay = ray node_to_z.pos oop
local nodeMaxZ
case oop of
( ------Z 轴
([0,0,-1]) :(nodeMaxZ = z_node.max.z
testRay.pos.z = nodeMaxZ + 0.0001 * abs nodeMaxZ
)
([0,0,1]) :(nodeMaxZ = z_node.min.z
testRay.pos.z = nodeMaxZ - 0.0001 * abs nodeMaxZ
)
-------X轴
([-1,0,0]) : (nodeMaxZ = z_node.max.x
testRay.pos.x = nodeMaxZ + 0.0001 * abs nodeMaxZ
)
([1,0,0]) : (nodeMaxZ = z_node.min.x
testRay.pos.x = nodeMaxZ - 0.0001 * abs nodeMaxZ
)
------- Y轴
([0,-1,0]) : (nodeMaxZ = z_node.max.y
testRay.pos.y = nodeMaxZ + 0.0001 * abs nodeMaxZ
)
([0,1,0]) : (nodeMaxZ = z_node.min.y
testRay.pos.y = nodeMaxZ - 0.0001 * abs nodeMaxZ
)
)
--testRay.pos.z = nodeMaxZ + 0.0001 * abs nodeMaxZ
intersectRay z_node testRay
)
--on isEnabled return selection.count > 0
on Execute do
(
target_mesh = pickObject message:"Pick Target Surface:" filter:g_filter --- 这种拾取的方法更好。不用再显示；
if isValidNode target_mesh then ---这个好用， 是如果节点没有被删除。
(
undo "MoveToSurface" on
(
for i in selection do
(
int_point = find_intersection target_mesh i
if int_point != undefined then i.pos = int_point.pos
)--end i loop
)--end undo
)--end if
)--end execute