- 易迪拓培训,专注于微波、射频、天线设计工程师的培养
有没有个skill，让Allegro层的转换可以像AD那样，单层显示时，+向下一层跳，-向上...
录入：edatop.com 点击：
有没有个skill，让Allegro层的转换可以像AD那样，单层显示时，+向下一层跳，-向上一层跳?求解，谢谢.
Function: EDA365_SwitchLayer
;Author: deargds
;Company: EDA365.COM
;E-Mail: myeda@qq.com
;Release Date : 2015-05-14
;*********************************************************************
;如需更改快捷键，请修改下面两行
axlSetAlias("Pgup" "EDA365_SwitchLayer nil")
axlSetAlias("Pgdown" "EDA365_SwitchLayer")
axlCmdRegister( "EDA365_SwitchLayer" 'EDA365_SwitchLayer ?cmdType "interactive")
defun( EDA365_SwitchLayer (@optional (prev nil))
prog((lEtchLayer sCurLayerName iNextLayerNo sNextLayer)
lEtchLayer = setof(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers nequal(axlDBGetLayerType(strcat("ETCH/" layer)) "PLANE"))
sCurLayerName = cadr(parseString(axlGetActiveLayer() "/"))
if( member(sCurLayerName lEtchLayer) then
if(prev then
iNextLayerNo = length(lEtchLayer) - length(member(sCurLayerName lEtchLayer))
when(iNextLayerNo < 1 iNextLayerNo = length(lEtchLayer))
else
iNextLayerNo = length(lEtchLayer) - length(member(sCurLayerName lEtchLayer)) + 2
when(iNextLayerNo > length(lEtchLayer) iNextLayerNo = 1)
)
else
iNextLayerNo = 1
)
sNextLayer = nthelem(iNextLayerNo lEtchLayer)
axlMsgPut("Current Layer:%L" sNextLayer)
axlVisibleDesign(nil)
axlVisibleLayer( strcat("ETCH/" sNextLayer) t )
axlVisibleLayer( strcat("PIN/" sNextLayer) t )
axlVisibleLayer( strcat("VIA CLASS/" sNextLayer) t )
;axlVisibleLayer( strcat("DRC ERROR CLASS/" sNextLayer) t )
axlVisibleLayer( "BOARD GEOMETRY/OUTLINE" t )
axlSetActiveLayer(strcat("ETCH/" sNextLayer))
axlUIWRedraw(nil)
)
)
;deargds
degards小编去年发的
使用快捷键就可以：
funckey + 'subclass -+;color -globvis off; setwindow form.vf_vis;FORM mini subcolor 1;'
funckey - 'subclass --;color -globvis off; setwindow form.vf_vis;FORM mini subcolor 1;'
这个快捷键好像对鼠标滚轮缩放有影响
完全看不懂！ 不敢感觉好厉害啊 ！
确实 ！ 刚才试了 设置了滚轮放大缩小用不了了 ！
学习了，谢谢
TKS
