|
已提供完整Skill文件源码,见附件,部分代码如下:
- ;*********************************************************************
- ;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
- ...
- ...
- else
- iNextLayerNo = 1
- )
-
- ...
- ...
- ...
- )
- )
复制代码
|
评分
-
查看全部评分
|