-----写一个toborrow 函数，用前面的函数就行处理，
----include 的使用一定要括起来。
---好，下面是 射线借用函数。
global gt_2_collect_mesh_normal_vertexs,gt_2_collect_poly_vertexs,gt_2_pick_filter,gt_2_convertToMesh,gt_2_convertToPoly_Nopick,gt_2_toborrow_pick_ray_blend
---导入mesh的法线数组
(
include"E:\工作文件\2011.5.12\法线变形问题\gt_2_collect_mesh_normal_vertexs.ms"
)
---gt_2_collect_mesh_normal_vertexs $ 可用
---导入poly的顶点数组
(
include"E:\工作文件\2011.5.12\法线变形问题\gt_2_collect_poly_vertexs.ms"
)
---gt_2_collect_poly_vertexs $ 能用
---导入过滤的选择
(
include"E:\工作文件\2011.5.12\法线变形问题\gt_2_pick_filter.ms"
)
--------转mesh 在转poly 在这里里面都是要导入的，
(
include"E:\工作文件\2011.5.12\法线变形问题\gt_2_convertToMesh.ms"
)
(
include"E:\工作文件\2011.5.12\法线变形问题\gt_2_convertToPoly_Nopick.ms"
)
---- 但是在用这个函数时没有加入量数的 数量的限制 ，这个我要在事件中加入。
fn gt_2_toborrow_pick_ray_blend =
(
try (
target_mesh = pickObject message:"Pick Target Surface:" filter:gt_2_pick_filter rubberBand:selection.center rubberBandColor:green --- 这种拾取的方法更好。不用再显示；
)catch (messagebox "可能是过滤函数丢失造成的。" title:"盖天编写" )
if isValidNode target_mesh then ---这个好用， 是如果节点没有被删除。
(
undo "scripts" on
(
---把拾取的物体转成mesh
convertToMesh target_mesh
gt_2_convertToMesh $
normal_array =gt_2_collect_mesh_normal_vertexs $ ---mesh法线数组
gt_2_convertToPoly_Nopick $
poly_verects_array = gt_2_collect_poly_vertexs $ ---poly 点的坐标数组
for i in 1 to normal_array.count do
(
local testRay = ray poly_verects_array[i] normal_array[i]
int_point= intersectRay target_mesh testRay
-- print int_point as string
if int_point != undefined and int_point != ok then
(
----应该是设置的点的坐标 到新的位置上去。
ray_pos_point = (int_point.pos)---int_point.pos 射线的位置
polyop.setVert $ i ray_pos_point
-- print int_point.pos
)
)--end i loop
----把法线转回来
try (
oop = Normalmodifier ();oop.flip =true
addModifier $ oop
convertToMesh $ )catch (
messagebox "操作不当，没按流程操作。\n返回。" title:"盖天编写"
return false
)
)--end undo
)--end if
)----end fn gt_become_deformed_pick_Aligner