大神门帮看下，怎么样才能让 NPTH 的PIN 高亮起来？

85654202

大神门帮看下，怎么样才能让 NPTH 的PIN 高亮起来？ 到底是怎么表达函数呢？ 是哪里写错了呢？
axlCmdRegister( "hl_npth" 'hl_npth)

defun( hl_npth ()
let((all p)
        axlClearSelSet()
        axlVisibleDesign( nil)
        axlVisibleLayer( "PIN/TOP" t)
        axlVisibleLayer( "PIN/BOTTOM" t)
        axlVisibleUpdate(t)
        axlSetFindFilter( ?enabled list("noall" "pins") ?onButtons list("noall" "pins"))
        axlAddSelectAll()
        all= axlGetSelSet()
        foreach( p all
                axlDehighlightObject(p t)
                when(p -> Type -> name == "Through  Non-Plated" axlHighlightObject(p t))
        )
        axlClearSelSet()
))

jason_hsu

完整version
procedure(hl_npth()
    let((all p npth)
        axlClearSelSet()
        axlVisibleDesign(t)
        axlVisibleUpdate(t)
        axlSetFindFilter( ?enabled list("noall" "pins") ?onButtons list("noall" "pins"))
        axlAddSelectAll()
        all= axlGetSelSet()
        npth = setof(p, all, axlDBGetDrillPlating(p ->name) == "NON PLATED")
        axlClearSelSet()
        axlDBControl('highlightColor 4)   ;use color 4 highlight object permanent
        axlHighlightObject(npth)
        
    )  ;end let
)  ;end proc

chengcheng123

改成这样是可以的：

1. foreach( p all
   
2.                 axlDehighlightObject(p t)
   
3.                                 if(p->functionPins == nil
   
4.                                    if(p->isThrough == t
   
5.                                        axlHighlightObject(p t)
   
6.                                       )
   
7.                                   )
   
8.                 )

复制代码

jason_hsu

新注册，下载不了上面童鞋的代码，下面是偶修改你的代码。

procedure(hl_npth()
    let((all p npth)
        axlClearSelSet()
        axlVisibleDesign(t)
        axlVisibleUpdate(t)
        axlSetFindFilter( ?enabled list("noall" "pins") ?onButtons list("noall" "pins"))
        axlAddSelectAll()
        all= axlGetSelSet()
        npth = setof(p, all, axlDBGetDrillPlating(p ->name) == "NON PLATED")
        axlHighlightObject(npth)
        axlClearSelSet()
    )  ;end let
)  ;end proc

bingshuihuo

不知道为什么要这个要求

85654202

jason_hsu 发表于 2020-1-2 17:16
sorry，不用QQ的。另外新用户没法下载你的文件，不知道你的SMT焊盘定义是不是会啥问题，虽然Plating选择对S ...

已经OK 了，万分感谢， 不过高亮后，无法再取消高亮，只有关掉软件重开了， 将就用吧 ，谢谢您

jason_hsu

sorry，不用QQ的。另外新用户没法下载你的文件，不知道你的SMT焊盘定义是不是会啥问题，虽然Plating选择对SMT无影响。
要么在加个条件, 改为npth = setof(p, all, axlDBGetDrillPlating(p->name) == "NON PLATED" && p ->isThrough == t) ?

85654202

jason_hsu 发表于 2020-1-2 11:30
完整version
procedure(hl_npth()
    let((all p npth)

经过测试，NPTH 的钻孔确实能高亮，但是 不知道为什么好多贴片的焊盘也被高亮！！！不知道怎么回事

jason_hsu

85654202 发表于 2020-1-2 09:24
可以高亮了，但不同的PCB 高亮的颜色又不一样，我两PCB 高亮设置的都是黄色，可是，运行后，高亮却不是黄 ...

可以贴下chengcheng童鞋的代码吗？让偶学习下，谢谢

jason_hsu

        axlClearSelSet()
        axlHighlightObject(npth)

这两句换下顺序哈，忘记啦
        

85654202

chengcheng123 发表于 2020-1-2 08:44
我用你的板子，和附件这个修改后的skill，是可以高亮黄色那些pin 的哦

可以高亮了，但不同的PCB 高亮的颜色又不一样，我两PCB 高亮设置的都是黄色，可是，运行后，高亮却不是黄色, 怪事，不过没关系了，我再自己看看怎么回事，谢谢你了

chengcheng123

我用你的板子，和附件这个修改后的skill，是可以高亮黄色那些pin 的哦

bingshuihuo

敬业的小伙伴！！！！

jason_hsu

2号上班看看哈

85654202

jason_hsu 发表于 2019-12-31 19:46
前面的选取所有pin脚，然后不是该判断是否为non plated吗？when(p ->plated ==“NON_PLATED” axlHighlight ...

还是高亮不起来 NPTH

jason_hsu

前面的选取所有pin脚，然后不是该判断是否为non plated吗？when(p ->plated ==“NON_PLATED” axlHighlightObject(p t)) 家里没allegro环境，没法实验

85654202

chengcheng123 发表于 2019-12-31 09:54
高亮黄色这些pin,这个结果是你要的吗？

是的，我就是要这个效果