记录SKILL学习之旅

萧萧雨下

接触skill是2010的时候，历经这么多年，中间间有几次鼓起勇气说要啃一下SKILL，没人带，也一直不得入门，现在被push着，一定要把它啃下来，心理还是没有信心，所以在这里立个flag,时刻提醒自己，也想说出来，某种程度下会有被监督的感觉，虽然有难度，但只要坚持，应该可以的吧，哈，人不是说能做layout的，智商都要达到多少多少吗？那自认为还可以的layout智商应该更可以的吧，哈哈哈，勿喷，自测128，不高，但也够用了吧。我现在的初步行计划是：1 先搜集一些自认为实用的各种SKILL,整合在一起，然后研究下，最好能找到源码，啃啃。2 同步研读收集SKILL的基础函数 SKILL USER GUIDE
                                   3 上手写一些小程序练练手 4 最终目标是能做到自如开发自己想实现的各种功能。
哈，现在还在第一步阶段，一直以来在这件事上，三天打鱼，两天晒网的，如何能持之以恒？
开动 开动 开动
                                    

db-_-

加油。送你几个我自己刚入门级时写的程序给你玩玩

1. ;;获取以D开头的器件，并打印出来。
   
2. procedure(myGetCompName()
   
3. prog(
   
4. (myDesign myComponent item compName compNameList)
   
5.         ;获取顶层设计ID并赋值给Design
   
6.         myDesign = axlDBGetDesign()
   
7. 
   
8.         ;获取设计中的所有器件
   
9.         myComponent = myDesign->components
   
10. 
    
11.         ;遍历所有器件
    
12.         foreach(item myComponent
    
13.                 ;获取器件的名称
    
14.                 compName = item->name
    
15.                 ;当器件名满足条件
    
16.                 if(rexMatchp("^D[0-9]+$" upperCase(compName)) then
    
17.                         compNameList = cons(compName compNameList)
    
18.                 )
    
19.         )
    
20. 
    
21.         ;翻转所有元素
    
22.         compNameList = reverse(compNameList)
    
23.        
    
24.         ;控制台打印所有元素
    
25.         foreach(item compNameList
    
26.                 printf("位号:%L，器件名：%L" item->name item->??)
    
27.         )
    
28.        
    
29.         return(compNameList)
    
30. ))

复制代码

1. ;;v1.0 初稿
   
2. axlCmdRegister("laytop" 'dbSetTopLayer ?cmdType "general")
   
3. axlCmdRegister("laybtm" 'dbSetBtmLayer ?cmdType "general")
   
4. ;;---------------------------------------------------------
   
5. ;;set_layer_visible.il
   
6. ;;指令：laytop 和 laybtm
   
7. ;;功能：只显示TOP层或者BOTTOM层
   
8. ;;描述：v1.0
   
9. ;;  可自行修改代码中的CLASS/SUBCLASS
   
10. ;;  15.2未测试
    
11. ;;---------------------------------------------------------               
    
12.                
    
13. procedure(dbSetTopLayer()
    
14. (let ()
    
15.         ;;清空所有层
    
16.         axlVisibleDesign(nil)
    
17. 
    
18.         ;;设置层可见
    
19.         axlVisibleLayer("via class/soldermask_top" t)
    
20.         axlVisibleLayer("pin/top" t)
    
21.         axlVisibleLayer("via class/top" t)
    
22.         axlVisibleLayer("drc error class/top" t)
    
23.         axlVisibleLayer("etch/top" t)
    
24.         ;;设置层可见
    
25.         axlVisibleLayer("board geometry/soldermask_top" t)
    
26.         axlVisibleLayer("board geometry/silkscreen_top" t)
    
27.         axlVisibleLayer("board geometry/outline" t)
    
28.         axlVisibleLayer("board geometry/design_outline" t)
    
29.         axlVisibleLayer("package geometry/silkscreen_top" t)
    
30.         axlVisibleLayer("package geometry/soldermask_top" t)
    
31.         ;;生效
    
32.         axlVisibleUpdate(nil)
    
33. ))
    
34. 
    
35. procedure(dbSetBtmLayer()
    
36. (let ()
    
37.         ;;清空所有层
    
38.         axlVisibleDesign(nil)
    
39. 
    
40.         ;;设置层可见
    
41.         axlVisibleLayer("via class/soldermask_bottom" t)
    
42.         axlVisibleLayer("pin/bottom" t)
    
43.         axlVisibleLayer("via class/bottom" t)
    
44.         axlVisibleLayer("drc error class/bottom" t)
    
45.         axlVisibleLayer("etch/bottom" t)
    
46.         ;;设置层可见
    
47.         axlVisibleLayer("board geometry/soldermask_bottom" t)
    
48.         axlVisibleLayer("board geometry/silkscreen_bottom" t)
    
49.         axlVisibleLayer("board geometry/outline" t)
    
50.         axlVisibleLayer("board geometry/design_outline" t)
    
51.         axlVisibleLayer("package geometry/silkscreen_bottom" t)
    
52.         axlVisibleLayer("package geometry/soldermask_bottom" t)
    
53.         ;;生效
    
54.         axlVisibleUpdate(nil)
    
55. ))

复制代码

1. ;;v1.2 添加注释
   
2. ;;v1.1 整理结构
   
3. ;;v1.0 初稿
   
4. axlCmdRegister("nextlayer" 'dbNextLayer)
   
5. axlCmdRegister("lastlayer" 'dbLastLayer)
   
6. ;;---------------------------------------------------------
   
7. ;;change_layer.il
   
8. ;;指令：nextlayer 和 lastlayer
   
9. ;;功能：从第一层开始，让所有的非地层轮流显示。
   
10. ;;描述：v1.2
    
11. ;;  系统默认的+和-是用来轮循当前激活层（Active Class and Subclass），可以改成这个。
    
12. ;;  该命令不改变当前激活层，而是改变可见层。
    
13. ;;  15.2未测试
    
14. ;;---------------------------------------------------------
    
15. 
    
16. temp_curLayer = nil        ;全局变量，
    
17. 
    
18. procedure(dbNextLayer()
    
19. (let ()
    
20.         _dbSetLayerVisible("Next")
    
21. ))
    
22. 
    
23. procedure(dbLastLayer()
    
24. (let ()
    
25.         _dbSetLayerVisible("Last")
    
26. ))
    
27. 
    
28. ;;设置层显示
    
29. procedure(_dbSetLayerVisible(direction)
    
30. (let (item allLayers itemClass)
    
31. 
    
32.         foreach(item axlSubclasses("etch")        ;获取etch class下的的所有subclass的字符串
    
33.                 unless(index(item "GND")        ;把字符串不含GND的层先收集起来
    
34.                         allLayers = cons(item allLayers)        ;收集
    
35.                 )
    
36.         )
    
37.         allLayers = reverse(allLayers)        ;因为cons是在list开头增加，所有颠倒一下
    
38. 
    
39.         when(allLayers
    
40.                 temp_curLayer = _dbSearchLayer(allLayers direction)        ;获取下一个要显示的层
    
41.                 axlVisibleDesign(nil)        ;关闭所有层显示
    
42.                 foreach(itemClass '("pin" "via class" "drc error class" "etch")
    
43.                         axlVisibleLayer(strcat(itemClass "/" temp_curLayer) t)        ;打开这些层
    
44.                 )
    
45.                 axlVisibleUpdate(nil)        ;刷新层显示
    
46.         )
    
47. ))
    
48. 
    
49. ;;寻找下一个要显示的层
    
50. procedure(_dbSearchLayer(allLayers direction)
    
51. (let (curIndex nextIndex)
    
52.        
    
53.         if(temp_curLayer then
    
54.                 curIndex = lindex(allLayers temp_curLayer)        ;计算当前层在所有层中的序号
    
55.                 if(direction == "Next" then                ;如果是NEXT，序号就+1
    
56.                         nextIndex = curIndex + 1
    
57.                         when(nextIndex > length(allLayers)        ;当序号超出list的长度，自动恢复到list开头
    
58.                                 nextIndex = 1
    
59.                         )
    
60.                 else
    
61.                         nextIndex = curIndex - 1        ;如果是LAST，序号就-1
    
62.                         when(nextIndex < 1
    
63.                                 nextIndex = length(allLayers)        ;当序号小于1，自动恢复到list尾
    
64.                         )
    
65.                 )
    
66.                 temp_curLayer = nthelem(nextIndex allLayers)        ;根据序号，计算下一个层的层名
    
67.         else
    
68.                 temp_curLayer = car(allLayers)        ;如果第一次运行，就显示第一层
    
69.         )
    
70.         temp_curLayer                ;运行的最后一行表示返回值。这一行写不写都行，if和else里面最后一行本来就返回temp_curLayer了。
    
71. ))
    
72. 
    
73. 
    
74.        

复制代码

yuyang6222000

好东西支持一下

萧萧雨下

db-_- 发表于 2022-2-14 11:13
加油。送你几个我自己刚入门级时写的程序给你玩玩

谢谢了，刚载了Vincent Skill V1.6，很多功能很不错，在看，与EDA365的相互补充使用，已经能满足能多使用场景了。

敢敢

萧萧雨下 发表于 2022-2-15 14:36
谢谢了，刚载了Vincent Skill V1.6，很多功能很不错，在看，与EDA365的相互补充使用，已经能满足能多使用 ...

你的Vincent Skill V1.6现在还能用吗，我的用不了了

lvlj

加油，我也是想学，奈何总没空，只能用现成的先对付，楼主学习心得可分享啊