删除所选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. )
   

复制代码