求一个在pcb里面单击某个网络然后会增加一个网络名的丝印的skill

ann_wz

单击某个网络然后会增加一个网络名的丝印的skill,,,求求求，比如单击vcc1，自动产生一个丝印vcc1

jet2001

我也寫了一個 歡迎使用
procedure(cln_addnetname()
w1=1
while(w1>0
  axlSetFindFilter(?enabled list("noall" "pins" "vias" "clinesegs") ?onButtons list("all"))
  _cl=nth(0 axlGetSelSet(axlSingleSelectPoint()) )
  _xy=axlLastPick(nil)
  _net=_cl->net->name        
  ; 預定將 net-name文字 放在 "PACKAGE GEOMETRY/NETNAME" 可以自己修改
  if(!axlIsLayer("PACKAGE GEOMETRY/NETNAME") then axlLayerCreateNonConductor("PACKAGE GEOMETRY/NETNAME"))
  axlVisibleLayer("PACKAGE GEOMETRY/NETNAME" t)   
  if(_net!=""&&_cl!=nil then
   tb2l=make_axlTextOrientation(?textBlock "2", ?justify "left")
   axlDBCreateText(_net, _xy, tb2l, "PACKAGE GEOMETRY/NETNAME", nil)
   ++w1
  ); if(_net!=""
) ;while(w1>0
)

axlCmdRegister("cln" 'cln_addnetname ?cmdType "interactive" ?doneCmd 'clnPopupDone)
procedure(clnPopupDone()
printf("*** CLN Done *** ; add %d texts\n" w1-1)
w1=-1
axlClearSelSet()
axlFinishEnterFun()
)
; Allegro.ilinit 加上 load("cln_addnetname.il")
; 輸入 CLN 然後去點 VIA PIN CLINE就可以 自動加NET-NAME 在"PACKAGE GEOMETRY/NETNAME"
; 2020/11/4 Robert Wu ; via/pin/cline auto add net-name

leilei4908

procedure(NetNameToLayer()
prog((net textLayer myorient)
        axlClearSelSet()
        axlSetFindFilter(?enabled '("noall" "nets") ?onButtons '("noall" "nets"))
        net = car(axlGetSelSet(axlSingleSelectPoint()))
        textLayer = "BOARD GEOMETRY/SILKSCREEN_TOP"
        myorient = make_axlTextOrientation(
                ?textBlock "2" ;字号
                ?rotation 0.0 ;旋转角度
                ?mirrored nil ;是否镜像
                ?justify "left" ;对齐方式 "left" "center" "right"
        )
        axlDBCreateText(net->name axlGetLastEnterPoint() myorient textLayer nil)
))

这是我写的，直接源码给你吧

Uifhjvv

帮你顶一下

BKS

帮你顶一下

ann_wz

我以前用过一次，很多年前，希望大侠们分享一下

bingshuihuo

论坛里面有 你找找 好像是付费购买的

ann_wz

bingshuihuo 发表于 2020-11-4 10:44
论坛里面有 你找找 好像是付费购买的

找了蛮久好像没用

ann_wz

leilei4908 发表于 2020-11-4 12:23
procedure(NetNameToLayer()
prog((net textLayer myorient)
        axlClearSelSet()

感激涕零

ann_wz

leilei4908 发表于 2020-11-4 12:23
procedure(NetNameToLayer()
prog((net textLayer myorient)
        axlClearSelSet()

怎么调用呢，不会哎

ann_wz

jet2001 发表于 2020-11-4 14:24
我也寫了一個 歡迎使用
procedure(cln_addnetname()
w1=1

刚刚试了，可以用，厉害

jet2001

ann_wz 发表于 2020-11-5 10:12
刚刚试了，可以用，厉害

你可以連續點via/pad/cline 一直加net-name , 最後按mouse右鍵選 Done 就可以結束

bingshuihuo

可以用，厉害

ccwwbb2013

可以用，谢谢。

melon8845

jet2001 发表于 2020-11-4 14:24
我也寫了一個 歡迎使用
procedure(cln_addnetname()
w1=1

你好，有辦法改成下拉選單，選擇層面嗎？
謝謝