删除所选via中位于偶数位置的对象

cmxunyicao

;Owner:mdy
;date   :20250613
;Verson:1.1
;function:删除所选via中位于偶数位置的对象
procedure(mdy_deSelectViaEven()
let((objs sortObjs LengthList obj )
objs=geGetSelSet()
objs=setof(x objs x~>objType=="customVia")
sortObjs=sort(objs lambda((x y) car(x~>origin)<=car(y~>origin)))
LengthList=length(sortObjs)
for(i 0 LengthList-1
    obj=nth(i sortObjs)
    when(evenp(i)
        dbDeleteObject(obj)
    );when
);for
);let
);proc

luwang

竖着的也可以加进去

acrofoxAgain

不用求length再用nth选择删除，这样效率低。两种替代方法：

第一个：

   

        

            
1. while( sortObjs=cdr(sortObjs)
   
2.     obj = car(sortObjs)
   
3.     when(obj
   
4.         dbDeleteObject(obj)
   
5.     )
   
6.     sortObjs = cdr(sortObjs)
   
7. )
           

   

    复制代码

第二个：

   

        

            
1. even = nil
   
2. foreach(obj sortObjs
   
3.     when(even
   
4.         dbDeleteObject(obj)
   
5.     )
   
6.     even = !even
   
7. )
           

   

    复制代码

cmxunyicao

   

acrofoxAgain 发表于 2025-6-19 16:08
不用求length再用nth选择删除，这样效率低。两种替代方法：

第一个：

感谢感谢，学到了

monika.er

   

acrofoxAgain 发表于 2025-6-19 16:08
不用求length再用nth选择删除，这样效率低。两种替代方法：

第一个：

请问第一个方法中的第一句while不是永远不成立吗？为啥可以实现删除偶数次序的？

acrofoxAgain

   

monika.er 发表于 2025-6-30 18:00
请问第一个方法中的第一句while不是永远不成立吗？为啥可以实现删除偶数次序的？
...

笔误，后面那行sortObj应为obj

acrofoxAgain

   

acrofoxAgain 发表于 2025-7-1 09:35
笔误，后面那行sortObj应为obj

再看了下，没有笔误。

sortObjs一直在变短，必然会为nil。