大佬，请教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       

复制代码

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

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

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

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

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

正好需要

学习学习,感谢分享

学习一下。。。。。。。。。

感谢大佬 分享

axlUIWExpose(axlUIViewFileCreate("fullPath" "None Drill Type" t))

学习中，感谢

向大佬学习

xxfx

流弊，看看

.。。。。。。。。。。。。。。。。。。。

大佬威武，围观看看

厉害，学习学习

大佬威武，围观看看

好东西感谢分享

学习学习学习