如何在ALLEGRO中使用SKILL语言统计过孔数量

xieh_17

如何在ALLEGRO中使用SKILL语言统计过孔数量

请大虾指教,小弟不胜感激!

如有代码,请发到我邮箱:xieh_17@163.com

xieh_17

以下是获得通孔板上所有属性为via的过孔数量，就是版主提供的代码，自己加了一个显示窗口。

1. axlCmdRegister("test",'test)
   
2. 
   
3. defun( test ()
   
4. prog((lVia)
   
5.         axlClearSelSet()
   
6.         axlSetFindFilter(?enabled '("noall", "VIAS", "invisible"), ?onButtons '("noall", "VIAS"))
   
7.         lVia = setof(v axlGetSelSet(axlAddSelectAll()) v->isThrough)
   
8.         axlClearSelSet()
   
9.         ;Via Count
   
10.         str = sprintf(nil "%d" length(lVia))
    
11.         axlUIConfirm(strcat("Through via : " str))
    
12. ))
    

复制代码

xieh_17

mark:axlDBDeleteProp(axlDBGetDesign()->symbols "FIXED_PRIVATE")

betamelody

这位兄弟问问题最好能详细一点,比如:只要是PLATED就算过孔吗,还是不论pth nonpth 还是bbvia都算过孔?

xieh_17

呵呵，先搞简单一点，统计通孔板上所有的通孔，望大虾指点

deargds

参考以下代码：

1. ;https://www.eda365.com
   
2. defun( GetThroughViaCount ()
   
3. prog((lVia)
   
4.         axlClearSelSet()
   
5.         axlSetFindFilter(?enabled '("noall", "VIAS", "invisible"), ?onButtons '("noall", "VIAS"))
   
6.         lVia = setof(v axlGetSelSet(axlAddSelectAll()) v->isThrough)
   
7.         axlClearSelSet()
   
8.         ;Via Count
   
9.         return(length(lVia))
   
10. ))

复制代码

xieh_17

感谢版主,我先看看这代码

zm0202

经典的 invisible 选项， 呵呵
axlSetFindFilter(?enabled '("noall"), ?onButtons '("noall"))
习惯设置完毕后还原下。
有的时候不用  invisible  选项给程序无限潜力，把层留给用户去切换也好玩。
有的时候可以灵活使用axlVisibleLayer产生多种不同应用。

xieh_17

deargds版主提供的统计通孔数量代码很好用.

再请教一下,如何统计HDI板上,激光孔和机械孔数量呢?

说明,激光孔径一般为4mil,机械孔径8mil,激光孔可能会因为HDI板阶数孔名称不一样,这样给我统计激光孔数量带来一些难度.

请大神指教!

chouqiu

我急要  统计 板子 的钻孔数 希望楼主做出来 后发出来
  能发到我邮箱 不胜感激  306597060@qq.com

yang-2200

我也需要. 感謝!!!
請發到的信箱:yang.peggy@iac.com.tw

XYX365

chouqiu 发表于 2012-10-13 11:09
我急要  统计 板子 的钻孔数 希望楼主做出来 后发出来
  能发到我邮箱 不胜感激

這個不需要用到Skill,只要出NC Legend就能統計
如下圖是不是你所須要的

wolf343105

正确.

chouqiu

XYX365 发表于 2012-10-26 14:07
這個不需要用到Skill,只要出NC Legend就能統計
如下圖是不是你所須要的

这个我知道  我想问的是 能不能直接把所有孔 都一次性统计 出来
   钻孔图  好的自己一个一个加 才知道

xieh_17

以下是获得通孔板上所有属性为via的过孔数量，就是版主提供的代码，自己加了一个显示窗口。
axlCmdRegister("test",'test)

defun( test ()
prog((lVia)
        axlClearSelSet()
        axlSetFindFilter(?enabled '("noall", "VIAS", "invisible"), ?onButtons '("noall", "VIAS"))
        lVia = setof(v axlGetSelSet(axlAddSelectAll()) v->isThrough)
        axlClearSelSet()
        ;Via Count
        str = sprintf(nil "%d" length(lVia))
        axlUIConfirm(strcat("Through via : " str))
))

deargds

xieh_17 发表于 2012-12-14 16:41
以下是获得通孔板上所有属性为via的过孔数量，就是版主提供的代码，自己加了一个显示窗口。

strcat可以省掉了