界面资料 用的是内部数子外部字符显示，计算时还是用数字因为数字不字符快

 try(destroyDialog gt_yc_Ail)catch()
rollout gt_yc_Ail "yongchao-对齐" width:168 height:80
(
 spinner conunt_spn1 "" pos:[152,25] width:12 height:16  range:[1,6,1] type:#integer
 edittext conunt_edt1 "" pos:[3,25] width:147 height:16 text:"Z轴的负方向" enabled:false
 button pick_btn1 "开始对齐" pos:[6,49] width:142 height:24
 groupBox grp1 "轴向选择：" pos:[5,9] width:160 height:39
 on conunt_spn1 changed arg  do
 (
  new_obj = case arg of

  (

  1: conunt_edt1.text="Z轴的负方向"

  2: conunt_edt1.text="Z轴的正方向"
   
  3: conunt_edt1.text="X轴的负方向"
   
  4: conunt_edt1.text="X轴的正方向"
   
  5: conunt_edt1.text="Y轴的负方向"
   
  6: conunt_edt1.text="Y轴的正方向"

  --default: reference $foo

  )

 )
 
 
 on pick_btn1 pressed 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 pressed
  
 
)
createdialog gt_yc_Ail style:#(#style_border,#style_titlebar,#style_resizing,#style_sysmenu)