优化跨分割检查代码
defun( select_layername ()prog( (numa numb changdu)
etchparam = axlGetParam("paramLayerGroup:ETCH")
l_layers = etchparam->groupMembers
etchlist = nil
planelist = nil
/**********
foreach(nlayer l_layers
layerlista = strcat("ETCH/" nlayer )
when(axlDBGetLayerType(layerlista)=="PLANE"
planelist = cons(layerlista planelist)
);end when 结束when PLANE判断
when(axlDBGetLayerType(layerlista)=="CONDUCTOR"
etchlist = cons(layerlista etchlist)
) ;end when 结束when CONDUCTOR判断
);foreach结束foreach判断
*********/
changdu=length(l_layers)/2
if((mod(length(l_layers) 2)==0) then
numa=1
for(i 1 changdu layerlista = strcat("ETCH/" nthelem(numa l_layers)) etchlist = cons(layerlista etchlist) numa=numa+2)
etchlist = reverse(etchlist)
numb=2
for(i 1 changdu layerlistb = strcat("ETCH/" nthelem(numb l_layers)) planelist = cons(layerlistb planelist) numb=numb+2)
planelist =reverse(planelist)
else
numa=1
for(i 1 changdu+1 layerlista = strcat("ETCH/" nthelem(numa l_layers)) etchlist = cons(layerlista etchlist) numa=numa+2)
etchlist = reverse(etchlist)
numb=2
for(i 1 changdu layerlistb = strcat("ETCH/" nthelem(numb l_layers)) planelist = cons(layerlistb planelist) numb=numb+2)
planelist =reverse(planelist)
)
axlFormSetField( form "etch_list" etchlist)
axlFormSetField( form "Plane_list" planelist)
);prog
);defun可以检查奇数层，可以不设置plane层
感谢,学习一下 不好用没有跨分割的地方都报颜色 ZHOUZIZHEN 发表于 2025-6-6 14:14
不好用没有跨分割的地方都报颜色
http://www.allegro-skill.com/forum.php?mod=viewthread&tid=147977&page=1#pid194789
那你看我另外一个帖子。免费开源不好用，你看看这个加密的
页:
[1]