面数的奇数偶数判断，ring loop的判断

---段数的跳一个 选择一个，这样进行处理。点数的，面数的处理
---起初我是这么想的。用when 语句进行操作，单我按下按钮时，就是这样的，当我点击的线符合拓扑结构时。
---产生横向与纵向的连长，但是我后来就不这么想了。
---尤其是在听了路生的教导后。我不想在刷什么。我要做的工作是，在max的基础上，做东西。补不足。 max 能实现的，大家都在用，所以习惯了，
---不是很好改了。
---好了，写东西了。起初只是想写线的，现在看来，我要写 点的 边的， 面的  奇数 偶数的选择。2011.4.22 晚
---由于在选择中选择缺口 返回的是边，所以 所以这样按缺口选择的 估计有特定的函数，或有特定的组，
---这个我在后卖在考虑。
 fn odd_numbers_even_numbers input_poly type_t  odd_even  num  =
 (
  ---结构是点 边 面   在往下就是 奇数性 还有就是偶数性
  
    case of ---这个是我的手动的处理。所以这里面我只列举3 中情况进行处理。
  (

  (type_t == "select_vertex"):(
   
   local mod_array =#()
   local mod_back_array =#()
    Back_Verts_array = polyop.getVertSelection  input_poly
    Back_Verts_array =Back_Verts_array as array
   if Back_Verts_array.count !=0 then
   (
    Back_Verts_array =sort  Back_Verts_array --数组排列方便选择。
    
    for i in 1 to Back_Verts_array.count do
    (
     if  (mod  i num )as integer ==0 then
     (
         append   mod_array   Back_Verts_array[i]
      
     )else
     (
      append   mod_back_array   Back_Verts_array[i]
      
     )---end else
     
    )---end for
    
   
   
   if odd_even=="odd"then
   (
     polyop.setVertSelection   input_poly  mod_back_array
   )--end odd
   if odd_even=="even" then
   (
     polyop.setVertSelection   input_poly  mod_array
   )---end enen
   )----end back_vertex_array
   
  )---end ()
  (type_t == "select_edge"):(
   local mod_array =#()
   local mod_back_array =#()
    Back_Verts_array = polyop.getEdgeSelection  input_poly
    Back_Verts_array =Back_Verts_array as array
   if Back_Verts_array.count !=0 then
   (
    Back_Verts_array =sort  Back_Verts_array --数组排列方便选择。
    
    for i in 1 to Back_Verts_array.count do
    (
     if  (mod  i num )as integer ==0 then
     (
         append   mod_array   Back_Verts_array[i]
      
     )else
     (
      append   mod_back_array   Back_Verts_array[i]
      
     )---end else
     
    )---end for
    
   
   
   if odd_even=="odd"then
   (
     polyop.setEdgeSelection   input_poly  mod_back_array
   )--end odd
   if odd_even=="even" then
   (
     polyop.setEdgeSelection   input_poly  mod_array
   )---end enen
   
   )----end back_vertex_array
   
  )---end ()
  (type_t == "select_polygon"):(
   
   local mod_array =#()
   local mod_back_array =#()
    Back_Verts_array = polyop.getFaceSelection  input_poly
    Back_Verts_array =Back_Verts_array as array
   if Back_Verts_array.count !=0 then
   (
    Back_Verts_array =sort  Back_Verts_array --数组排列方便选择。
    
    for i in 1 to Back_Verts_array.count do
    (
     if  (mod  i num )as integer ==0 then
     (
         append   mod_array   Back_Verts_array[i]
      
     )else
     (
      append   mod_back_array   Back_Verts_array[i]
      
     )---end else
     
    )---end for
    
   
   
   if odd_even=="odd"then
   (
     polyop.setFaceSelection   input_poly  mod_back_array
   )--end odd
   if odd_even=="even" then
   (
     polyop.setFaceSelection   input_poly  mod_array
   )---end enen
   
   )else return  false ----end back_vertex_array
   
   
   
  )---end ()

   )---enf case
 )---end fn
 
---我觉得点的选择可以由面点会来，这个就不用写了。其实原来也是有面转成点，这个不是很费时间。
---我做的工具也是配合max 的命令一期操作的，所以这个就不选了。

 ------------------------------------------------------------------------------------- 
  
  
fn max_2011_mode_style input_poly type_t ring_and_loop  by_num =
(

---针对于我想的这里算法。来对点线面进行处理。我的方法就是
--1.（先以线为例说明点和面都是这里过度的。）试验的对像确保是一个可操作的对象结构。
--2.得知序列返回数组，返回之前选择的 组内对应的号数。 在组内做递加 和递减 最小不能小于1 最大不能超过组本身的数
--3.两个数组相加 在进行边的选择，
--4.之后依次展开 处理。
--5.结构是：
---------------1. 点线面的大结构
---------------2.在处理横选择 还是纵选择的问题
---------------3. 选择处理
  case of ---这个是我的手动的处理。所以这里面我只列举3 中情况进行处理。
  (
   
  (type_t == "select_vertex"):(
   ---2011.4.23 2.35 对于点击莫一个线向外边散开，隔一个选择一个思路我是有了。
   
   --在这个的操作中，对于线我已经做好，对于面我可以转换成线，在操作，最后在返回面，造成
   --假象上的对于面的处理。其实还是从线的方式出发。
   --对于点 在转换成线的过程中，就不是很好办理。我是可以通过线 转点在选择点，
   --从研究上来说是可行的，但是从应用 和美术来说极为不好，所以这部分呢不写 不要了。
   --想要的效果同样是能做出来。
   
  )---end ()

  (type_t == "select_edge"):(
   ---2011.4.23 2.35 对于点击莫一个线向外边散开，隔一个选择一个思路我是有了。
   ---判断选择线是一个进行操作，这个是我要的效果。
   local up_array =#()
   local down_array = #()
   local total_array =()---向上向下的数组加在一起，就是我要选择的东西。
   
   
   Back_Verts_array = polyop.getEdgeSelection  input_poly
   Back_Verts_array=Back_Verts_array as array
   if  Back_Verts_array.count ==1 then
   (
   if ring_and_loop=="ring"then
   (
    input_poly.EditablePoly.SelectEdgeRing ()
    ---加入循环命令。
    --查看现在选择的号数，和之前的查找编号。如果数组的个数小于两个是什么都不做的。
    form_Back_Verts_array= Back_Verts_array[1] ---这里面保证是一个。
    
    now_Back_Verts_array = polyop.getEdgeSelection  input_poly
    now_Back_Verts_array=now_Back_Verts_array as array
    now_Back_Verts_array_count =now_Back_Verts_array.count ---数量
    ---下一步就是查找顶点所在的个数，在一个模型中，顶点数组肯定是不会有重复的。
    if now_Back_Verts_array_count <3 then return false ----如果数组中就这有两个的话
     ---循环 隔选就没有意义了。
    
    ----在数组中查找肯定是能查找出来，这个是肯定的。
     unm_edge = findItem   now_Back_Verts_array  form_Back_Verts_array
    -----寄存选择的线在数组中的位置。
    local true_tt =true
    while true_tt do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge+=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge<= now_Back_Verts_array_count then
     (
     append up_array now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge>=now_Back_Verts_array_count then
     (
      true_tt=false
      
     )
     
    )---end while
    
    local true_true =true
    while true_true do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge-=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge >=1 then
     (
     append down_array  now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge <=1 then
     (
      true_true=false
      
     )
    
     
    )---end while
    total_array =up_array +down_array +Back_Verts_array

     polyop.setEdgeSelection   input_poly  total_array
    
   )----end if ring
   
   
   if ring_and_loop=="loop"then
   (
    input_poly.EditablePoly.SelectEdgeLoop ()
    ---加入循环命令。
    --查看现在选择的号数，和之前的查找编号。如果数组的个数小于两个是什么都不做的。
    form_Back_Verts_array= Back_Verts_array[1] ---这里面保证是一个。
    
    now_Back_Verts_array = polyop.getEdgeSelection  input_poly
    now_Back_Verts_array=now_Back_Verts_array as array
    now_Back_Verts_array_count =now_Back_Verts_array.count ---数量
    ---下一步就是查找顶点所在的个数，在一个模型中，顶点数组肯定是不会有重复的。
    if now_Back_Verts_array_count <3 then return false ----如果数组中就这有两个的话
     ---循环 隔选就没有意义了。
    
    ----在数组中查找肯定是能查找出来，这个是肯定的。
     unm_edge = findItem   now_Back_Verts_array  form_Back_Verts_array
    -----寄存选择的线在数组中的位置。
    local true_tt =true
    while true_tt do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge+=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge<= now_Back_Verts_array_count then
     (
     append up_array now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge>=now_Back_Verts_array_count then
     (
      true_tt=false
      
     )
     
    )---end while
    
    local true_true =true
    while true_true do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge-=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge >=1 then
     (
     append down_array  now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge <=1 then
     (
      true_true=false
      
     )
    
     
    )---end while
    total_array =up_array +down_array +Back_Verts_array

     polyop.setEdgeSelection   input_poly  total_array
    
   )----end if loop
   
   
  )---end if back_vertx_array.count
    
  )---end ()

  (type_t == "select_polygon"):(
   ---2011.4.23 2.35 对于点击莫一个线向外边散开，隔一个选择一个思路我是有了。
   
   ---判断选择线是一个进行操作，这个是我要的效果。
   local up_array =#()
   local down_array = #()
   local total_array =()---向上向下的数组加在一起，就是我要选择的东西。
   
   
   Back_Verts_array = polyop.getFaceSelection input_poly
   Back_Verts_array=Back_Verts_array as array
   if  Back_Verts_array.count ==1 then
   (
   if ring_and_loop=="ring"then
   (
     
    ---加入循环命令。
    --查看现在选择的号数，和之前的查找编号。如果数组的个数小于两个是什么都不做的。
    form_Back_Verts_array= Back_Verts_array[1] ---这里面保证是一个。
    --input_poly.EditablePoly.SelectEdgeRing ()
    --用面返回边，用边做循环 返回面，在进行面的处理。
    polygon_to_edge_array = polyop.getFaceEdges input_poly  form_Back_Verts_array
    ---返回的第一个是ring 第二个是loop
     polyop.setEdgeSelection  input_poly  polygon_to_edge_array[1]--这里是转折点
     input_poly.EditablePoly.SelectEdgeRing ()
    input_poly.EditablePoly.ConvertSelection  #Edge #Face --转成面
    
    now_Back_Verts_array = polyop.getFaceSelection  input_poly
    now_Back_Verts_array=now_Back_Verts_array as array
    now_Back_Verts_array_count =now_Back_Verts_array.count ---数量
    ---下一步就是查找顶点所在的个数，在一个模型中，顶点数组肯定是不会有重复的。
    if now_Back_Verts_array_count <3 then return false ----如果数组中就这有两个的话
     ---循环 隔选就没有意义了。
    
    ----在数组中查找肯定是能查找出来，这个是肯定的。
     unm_edge = findItem   now_Back_Verts_array  form_Back_Verts_array
    -----寄存选择的线在数组中的位置。
    local true_tt =true
    while true_tt do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge+=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge<= now_Back_Verts_array_count then
     (
     append up_array now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge>=now_Back_Verts_array_count then
     (
      true_tt=false
      
     )
     
    )---end while
    
    local true_true =true
    while true_true do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge-=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge >=1 then
     (
     append down_array  now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge <=1 then
     (
      true_true=false
      
     )
    
     
    )---end while
    total_array =up_array +down_array +Back_Verts_array

     polyop.setFaceSelection  input_poly  total_array
    
   )----end if ring
   
   
   if ring_and_loop=="loop"then
   (
    
     
    ---加入循环命令。
    --查看现在选择的号数，和之前的查找编号。如果数组的个数小于两个是什么都不做的。
    form_Back_Verts_array= Back_Verts_array[1] ---这里面保证是一个。
    --input_poly.EditablePoly.SelectEdgeRing ()
    --用面返回边，用边做循环 返回面，在进行面的处理。
    polygon_to_edge_array = polyop.getFaceEdges input_poly  form_Back_Verts_array
    ---返回的第一个是ring 第二个是loop
     polyop.setEdgeSelection  input_poly  polygon_to_edge_array[2]--这里是转折点
    -- input_poly.EditablePoly.SelectEdgeLoop ()
    input_poly.EditablePoly.SelectEdgeRing ()---这里我变化了数组个数所以都是要ring
    input_poly.EditablePoly.ConvertSelection  #Edge #Face --转成面
    
    now_Back_Verts_array = polyop.getFaceSelection  input_poly
    now_Back_Verts_array=now_Back_Verts_array as array
    now_Back_Verts_array_count =now_Back_Verts_array.count ---数量
    ---下一步就是查找顶点所在的个数，在一个模型中，顶点数组肯定是不会有重复的。
    if now_Back_Verts_array_count <3 then return false ----如果数组中就这有两个的话
     ---循环 隔选就没有意义了。
    
    ----在数组中查找肯定是能查找出来，这个是肯定的。
     unm_edge = findItem   now_Back_Verts_array  form_Back_Verts_array
    -----寄存选择的线在数组中的位置。
    local true_tt =true
    while true_tt do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge+=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge<= now_Back_Verts_array_count then
     (
     append up_array now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge>=now_Back_Verts_array_count then
     (
      true_tt=false
      
     )
     
    )---end while
    
    local true_true =true
    while true_true do
    ( 
     --append up_array 这里面我为什么想放在这里，我是怕溜掉了unm_edge
     --后来想想他还像下循环，都这样的话旧哟哟重复的了
     -- 这里我不查找数组的重复，我最后做个加法运算。加上他就行了，这样快。
     unm_edge-=by_num
     ----这里就是循环一遍把东西往数组中加入一遍。
     if unm_edge >=1 then
     (
     append down_array  now_Back_Verts_array[unm_edge]
     )
     
     if unm_edge <=1 then
     (
      true_true=false
      
     )
    
     
    )---end while
    total_array =up_array +down_array +Back_Verts_array

     polyop.setFaceSelection  input_poly  total_array

    
   )----end if loop
   
   
     )---end if back_vertx_array.count
 
  )---end ()    
   
  )----end case

 
)-------end fn max_2011

 try(cui.UnRegisterDialogBar gt_element__)catch()-----这个是法则。
try (DestroyDialog gt_element__ )catch()
rollout gt_element__ "编辑步幅因素" width:160 height:297
(
 spinner guolu_spn "过滤步幅" pos:[34,8] width:99 height:16 enabled:true range:[0,100,2] type:#integer scale:0.1
 button select_vertex_odd_btn "选择点的奇数过滤" pos:[21,29] width:118 height:18
 button select_vertex_even_btn "选择点的偶数过滤" pos:[21,49] width:118 height:18
 button select_edge_even_btn "选择边的偶数过滤" pos:[21,96] width:118 height:18
 button select_edge_odd_btn "选择边的奇数过滤" pos:[21,77] width:118 height:18
 button select_face_even_btn "选择面的偶数过滤" pos:[21,145] width:118 height:18
 button select_face_odd_btn "选择面的奇数过滤" pos:[21,125] width:118 height:18
 spinner max_2011_spn "过滤步幅" pos:[34,172] width:99 height:16 enabled:true range:[0,100,2] type:#integer scale:0.1
 button select_edge_ring_btn "选择边的ring" pos:[21,196] width:118 height:18
 button select_edge_loop_btn "选择边的loop" pos:[21,216] width:118 height:18
 button select_face_loop_btn "选择面的loop" pos:[21,263] width:118 height:18
 button select_face_ring_btn "选择面的ring" pos:[21,244] width:118 height:18
 on select_vertex_odd_btn pressed do
 (
  try (  odd_numbers_even_numbers $ "select_vertex" "odd" guolu_spn.value )catch ()
 )--end on
 
 on select_vertex_even_btn pressed do
 (
  try (  odd_numbers_even_numbers $ "select_vertex" "even" guolu_spn.value )catch ()
 )--end on  
  on select_edge_odd_btn pressed do
 (
  try ( odd_numbers_even_numbers $ "select_edge" "odd" guolu_spn.value )catch ()
 )--end on  
 
   on select_edge_even_btn pressed do
 (
  try (  odd_numbers_even_numbers $ "select_edge" "even" guolu_spn.value )catch ()
 )--end on  
 
    on select_face_even_btn pressed do
 (
  try (  odd_numbers_even_numbers $ "select_polygon" "odd" guolu_spn.value )catch ()
 )--end on
 
    on select_face_odd_btn pressed do
 (
  try (  odd_numbers_even_numbers $ "select_polygon" "even" guolu_spn.value )catch ()
 )--end on  
 
 
 
 
     on select_edge_ring_btn  pressed do
 (
  try (  max_2011_mode_style $ "select_edge" "ring" max_2011_spn.value )catch ()
 )--end on  
 
     on select_edge_loop_btn  pressed do
 (
  try (  max_2011_mode_style $ "select_edge" "loop" max_2011_spn.value )catch ()
 )--end on   
 
     on select_face_loop_btn  pressed do
 (
  try (  max_2011_mode_style $ "select_polygon" "loop" max_2011_spn.value )catch ()
 )--end on  
 
      on select_face_ring_btn  pressed do
 (
  try (  max_2011_mode_style $ "select_polygon" "ring" max_2011_spn.value )catch ()
 )--end on  

 
 
 
)
createdialog gt_element__

cui.RegisterDialogBar gt_element__ style:#(#cui_dock_left,#cui_dock_right, #cui_floatable)
cui.DockDialogBar gt_element__ #cui_dock_right