[SKILL分享]Draw Drill Hole钻孔内径绘制工具（源码）

alexflying

学习一下，感谢大佬。

pwj115

看看

学无止境```

666666666666666666666666666666666666666666666666666

学无止境```

大佬，请教1个问题，我想要写1个等距离创建过孔的skill，如何点选1个过孔，然后按上下左右以等距离创建过孔？下面是我的代码，但是这个代码只能运行后再点选才能创建过孔，而且无法连续创建，怎么样先点选过孔，再创建

1. defun( CopyViaBySameDimension (x_offset y_offset)
   
2.     let((ViaDbid)
   
3.         axlSetFindFilter(?enabled (list "noall" "VIAS") ?onButtons (list "VIAS"))
   
4.         axlClearSelSet()
   
5.         axlMsgPut("Select a via as reference...")
   
6.         selectedVia = axlSingleSelectPoint()
   
7.         ViaDbid = axlGetSelSet(selectedVia)                        ;获取选择对象的DBID
   
8.                 ;unless(axlOKToProceed() axlShell("done"))
   
9.                 when(ViaDbid
   
10.                 padstackName = car(ViaDbid)->name      ;获取焊盘名称
    
11.             ViaNet = car(ViaDbid)->net->name       ;获取当前选择过孔的网络名称
    
12.                 ViaXY  = car(ViaDbid)->xy              ;获取当前选择过孔的坐标
    
13.                 ViaRotation  = car(ViaDbid)->via->rotation  ;获取旋转角度
    
14.                 ViaMirror  = car(ViaDbid)->via->mirrored  ;获取旋转角度
    
15. 
    
16.                 x = xCoord(ViaXY)  ; 获取x坐标
    
17.                 y = yCoord(ViaXY)  ; 获取y坐标
    
18.                         ;点击左右则x变化，y不变
    
19.                 x = x + x_offset
    
20.                 ;点击上下则y变化，X不变
    
21.                 y = y + y_offset
    
22.                         ;unless(axlOKToProceed() axlShell("done"))
    
23.                 newVia = axlDBCreateVia(padstackName , x:y , ViaNet, ViaMirror , ViaRotation , nil) ;创建过孔
    
24.                         );end while
    
25.                 when(newVia
    
26.                         NewViaDbid = list(car(newVia))
    
27.                     axlHighlightObject(NewViaDbid t)
    
28.                 );end when
    
29.                     
    
30.     );end let   
    
31. );end defun       

复制代码

zc333

学习一下:):):)

antoni2011

学习一下了,感谢分享了

selena19730105

謝謝您~學習學習~

zfd552487261

oh 不小心点错评分 再次感谢db大佬的开源

WFY2008

大佬  学习一下

db-_-

学无止境``` 发表于 2025-7-14 15:32
大佬，请教1个问题，我想要写1个等距离创建过孔的skill，如何点选1个过孔，然后按上下左右以等距离创建过孔 ...

Q:但是这个代码只能运行后再点选才能创建过孔
A:没明白你的意思，代码不都是运行后点选再创建过孔的吗？

Q:而且无法连续创建
A:连续创建需要加一个while循环函数。随便找一个类似的支持循环点击的功能源码看看就知道了

我是DJ

强******1111111

学无止境```

db-_- 发表于 2025-7-14 17:39
Q:但是这个代码只能运行后再点选才能创建过孔
A:没明白你的意思，代码不都是运行后点选再创建过孔的吗？ ...

这部分代码在form中Up Down Left Right这几个按钮的field下面调用的，是上下左右，点击Up按钮以后，才能点选VIA，创建过孔；无法先点选via，再点击Up按钮，创建VIA

db-_-

学无止境``` 发表于 2025-7-14 18:07
这部分代码在form中Up Down Left Right这几个按钮的field下面调用的，是上下左右，点击Up按钮以后，才能 ...

你把获取器件信息放到主函数里，把创建via的函数放到上下左右按钮对应的回调函数里就行了。

学无止境```

db-_- 发表于 2025-7-14 18:20
你把获取器件信息放到主函数里，把创建via的函数放到上下左右按钮对应的回调函数里就行了。

我没找到循环点击按钮的代码，大佬有没有，可以分享1个吗

Abracadabra

6666666666666666