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

db-_-

根据以下帖子的框架重写了大部分函数。

https://bbs.eda365.com/forum.php?mod=viewthread&tid=134053&highlight=drill%2Bhole

并解决了上述帖子的几个问题。
1、椭圆形焊盘只有当h>=w时才可以用，h<w则不行的问题。
2、17.2及以后版本不识别椭圆的问题。
3、旋转坐标部分可读性差的问题。

旋转坐标公式基础：
x' = x*cosθ - y*sinθ
y' = x*sinθ + y*cosθ

绘制椭圆的原理：
找到两个半圆的四个顶点，依次绘制直线、曲线、直线、曲线即可。见以下示意图，慢慢理解。



源码回复后可见。

游客，如果您要查看本帖隐藏内容请回复

学无止境```

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

复制代码

db-_-

学无止境``` 发表于 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

zfd552487261

大佬出手

wpcgood

大佬威武，围观看看

fang123

围观大佬 ，感谢分享

qwertyuasdfdfa

大佬威武，围观看看

qwertyuasdfdfa

16.6调用失败

db-_-

qwertyuasdfdfa 发表于 2025-7-14 11:53
16.6调用失败

请描述一下失败现象。

• ;;独立使用，使用以下命令：
• ;;  skill dbDrawDrillHoles("BOARD GEOMETRY/DRILLHOLE")
  

运行完会在BOARD GEOMETRY/DRILLHOLE层生成钻孔的shape

vivianwu0317

大佬威武，围观看看

Richard1203

。。。。。。。。

Vegeta

厉害，学习学习

Storm_change

大佬威武，

Allen1211

大佬  学习一下

xfcy

学习学习学习学习

夜凉笙歌

太强啊

weigz

谢谢分享