记录SKILL学习之旅 - EDA365电子论坛网

;;获取以D开头的器件，并打印出来。
procedure(myGetCompName()
prog(
(myDesign myComponent item compName compNameList)
;获取顶层设计ID并赋值给Design
myDesign = axlDBGetDesign()
;获取设计中的所有器件
myComponent = myDesign->components
;遍历所有器件
foreach(item myComponent
;获取器件的名称
compName = item->name
;当器件名满足条件
if(rexMatchp("^D[0-9]+$" upperCase(compName)) then
compNameList = cons(compName compNameList)
)
)
;翻转所有元素
compNameList = reverse(compNameList)
;控制台打印所有元素
foreach(item compNameList
printf("位号:%L，器件名：%L" item->name item->??)
)
return(compNameList)
))

复制代码

;;v1.0 初稿
axlCmdRegister("laytop" 'dbSetTopLayer ?cmdType "general")
axlCmdRegister("laybtm" 'dbSetBtmLayer ?cmdType "general")
;;---------------------------------------------------------
;;set_layer_visible.il
;;指令：laytop 和 laybtm
;;功能：只显示TOP层或者BOTTOM层
;;描述：v1.0
;; 可自行修改代码中的CLASS/SUBCLASS
;; 15.2未测试
;;---------------------------------------------------------
procedure(dbSetTopLayer()
(let ()
;;清空所有层
axlVisibleDesign(nil)
;;设置层可见
axlVisibleLayer("via class/soldermask_top" t)
axlVisibleLayer("pin/top" t)
axlVisibleLayer("via class/top" t)
axlVisibleLayer("drc error class/top" t)
axlVisibleLayer("etch/top" t)
;;设置层可见
axlVisibleLayer("board geometry/soldermask_top" t)
axlVisibleLayer("board geometry/silkscreen_top" t)
axlVisibleLayer("board geometry/outline" t)
axlVisibleLayer("board geometry/design_outline" t)
axlVisibleLayer("package geometry/silkscreen_top" t)
axlVisibleLayer("package geometry/soldermask_top" t)
;;生效
axlVisibleUpdate(nil)
))
procedure(dbSetBtmLayer()
(let ()
;;清空所有层
axlVisibleDesign(nil)
;;设置层可见
axlVisibleLayer("via class/soldermask_bottom" t)
axlVisibleLayer("pin/bottom" t)
axlVisibleLayer("via class/bottom" t)
axlVisibleLayer("drc error class/bottom" t)
axlVisibleLayer("etch/bottom" t)
;;设置层可见
axlVisibleLayer("board geometry/soldermask_bottom" t)
axlVisibleLayer("board geometry/silkscreen_bottom" t)
axlVisibleLayer("board geometry/outline" t)
axlVisibleLayer("board geometry/design_outline" t)
axlVisibleLayer("package geometry/silkscreen_bottom" t)
axlVisibleLayer("package geometry/soldermask_bottom" t)
;;生效
axlVisibleUpdate(nil)
))

复制代码

;;v1.2 添加注释
;;v1.1 整理结构
;;v1.0 初稿
axlCmdRegister("nextlayer" 'dbNextLayer)
axlCmdRegister("lastlayer" 'dbLastLayer)
;;---------------------------------------------------------
;;change_layer.il
;;指令：nextlayer 和 lastlayer
;;功能：从第一层开始，让所有的非地层轮流显示。
;;描述：v1.2
;; 系统默认的+和-是用来轮循当前激活层（Active Class and Subclass），可以改成这个。
;; 该命令不改变当前激活层，而是改变可见层。
;; 15.2未测试
;;---------------------------------------------------------
temp_curLayer = nil ;全局变量，
procedure(dbNextLayer()
(let ()
_dbSetLayerVisible("Next")
))
procedure(dbLastLayer()
(let ()
_dbSetLayerVisible("Last")
))
;;设置层显示
procedure(_dbSetLayerVisible(direction)
(let (item allLayers itemClass)
foreach(item axlSubclasses("etch") ;获取etch class下的的所有subclass的字符串
unless(index(item "GND") ;把字符串不含GND的层先收集起来
allLayers = cons(item allLayers) ;收集
)
)
allLayers = reverse(allLayers) ;因为cons是在list开头增加，所有颠倒一下
when(allLayers
temp_curLayer = _dbSearchLayer(allLayers direction) ;获取下一个要显示的层
axlVisibleDesign(nil) ;关闭所有层显示
foreach(itemClass '("pin" "via class" "drc error class" "etch")
axlVisibleLayer(strcat(itemClass "/" temp_curLayer) t) ;打开这些层
)
axlVisibleUpdate(nil) ;刷新层显示
)
))
;;寻找下一个要显示的层
procedure(_dbSearchLayer(allLayers direction)
(let (curIndex nextIndex)
if(temp_curLayer then
curIndex = lindex(allLayers temp_curLayer) ;计算当前层在所有层中的序号
if(direction == "Next" then ;如果是NEXT，序号就+1
nextIndex = curIndex + 1
when(nextIndex > length(allLayers) ;当序号超出list的长度，自动恢复到list开头
nextIndex = 1
)
else
nextIndex = curIndex - 1 ;如果是LAST，序号就-1
when(nextIndex < 1
nextIndex = length(allLayers) ;当序号小于1，自动恢复到list尾
)
)
temp_curLayer = nthelem(nextIndex allLayers) ;根据序号，计算下一个层的层名
else
temp_curLayer = car(allLayers) ;如果第一次运行，就显示第一层
)
temp_curLayer ;运行的最后一行表示返回值。这一行写不写都行，if和else里面最后一行本来就返回temp_curLayer了。
))

复制代码