【Skill分享】快速生成差分孔反焊盘skill-改

ashnoer

由@ChinaLian分享的skill源码改的

改动：现在可以单选、框选2个过孔或者Pin创建反焊盘

1. ; --------------------------------------------------
   
2. ; allegro version: 16.6
   
3. ; Written by: Lianora
   
4. ; date: 2021.09.11
   
5. ; --------------------------------------------------
   
6. ; 功能说明：单击选择两个差分信号过孔，生成过孔反焊盘
   
7. ;           有助于减小差分阻抗在过孔处的突变程度
   
8. ; --------------------------------------------------
   
9. 
   
10. axlCmdRegister(
    
11.   "DVAP"
    
12.   'lnDiffViaAntiPad
    
13.   ?cmdType "interactive"
    
14.   ?doneCmd 'lnDone
    
15.   ?cancelCmd 'lnCancel
    
16. )
    
17. 
    
18. ; --------------------------------------------------
    
19. ; 主程序入口函数
    
20. ; --------------------------------------------------
    
21. procedure(lnDiffViaAntiPad(@optional (expandValue_via 0))
    
22.   let(()
    
23.   ; 设置 find 栏参数，仅勾选 "vias"
    
24.     axlSetFindFilter(
    
25.       ?enabled list("noall" "Pins" "vias")
    
26.       ?onButtons list("noall" "Pins" "vias")
    
27.     )
    
28.   ; 设置右键弹出功能项
    
29.     ln_popup = axlUIPopupDefine(nil (list
    
30.             (list "Done" 'lnDone)
    
31.             (list "Oops" 'lnOops)
    
32.             (list "Cancel" 'lnCancel))
    
33.           )
    
34.     axlUIPopupSet(ln_popup)
    
35.   
    
36.   ; 创建一个表单，在 options 栏中显示需要设置的参数
    
37.     lnCreateParamForm()
    
38.    
    
39.   ; 定义一个循环标记
    
40.     notdone = t
    
41.   
    
42.   ;获取 class/subclass 信息
    
43.     t_activelayer = axlGetActiveLayer()
    
44.   
    
45.     ln_mark = axlDBTransactionStart()
    
46.    
    
47.     while(notdone
    
48. 
    
49.       l_via1 = nil
    
50.       l_via2 = nil
    
51. 
    
52.       P = axlGetSelSet(axlSelect(?prompt "Please select the first via...\n"))
    
53.       (case length(P)
    
54.         (1 ;继续选择第二个过孔
    
55.           l_via1 = car(P)
    
56.           printf("Please select the second via...\n")
    
57.           l_via2 = car(axlGetSelSet(axlSingleSelectPoint()))
    
58.           CreateShape(l_via1 l_via2)
    
59.         )
    
60.         (2 ;直接创建
    
61.           CreateShape(car(P) cadr(P))
    
62.         )
    
63.       )
    
64.     )
    
65.   )
    
66. )
    
67. 
    
68. (procedure CreateShape(l_via1 l_via2)
    
69.       if(l_via2 then
    
70.         axlDBTransactionMark(ln_mark)
    
71.         pad1 = axlDBGetPad(l_via1 "ETCH/TOP" "REGULAR")
    
72.         pad2 = axlDBGetPad(l_via2 "ETCH/TOP" "REGULAR")
    
73.   ; 计算出外扩相应尺寸后的线宽     
    
74.         cline_width = caadr(pad1->bBox) - caar(pad1->bBox) + expandValue_via
    
75.         
    
76.         printf("cline_width is %-.2f \n" cline_width)
    
77.   ; 在TOP层创建一根线段     
    
78.         l_cline = axlDBCreateLine(
    
79.                 list(l_via1->xy l_via2->xy)
    
80.                 cline_width
    
81.                 "ANTI ETCH/TOP"
    
82.                 nil
    
83.                 nil
    
84.               )
    
85.   ; 通过 cline2shape 将 cline 转换成相应层面的 shape
    
86.         if(l_cline then
    
87.           l_poly = axlPolyFromDB(caar(l_cline) ?endCapType "ROUND")
    
88.           l_shape = axlDBCreateShape(car(l_poly) t t_activelayer)
    
89.   ; 如果所在层面是 ROUTE KEEPOUT ， 需给 shpae 增加如下两个属性，可以消除走线和过孔的DRC
    
90.   ; 并保留避让铜皮属性
    
91.           if(car(parseString(t_activelayer "/")) == "ROUTE KEEPOUT" then
    
92.             axlDBAddProp(car(l_shape) list("vias_allowed" t))
    
93.             axlDBAddProp(car(l_shape) list("routes_allowed" t))
    
94.           )
    
95.   ; 删除辅助 cline
    
96.           axlDeleteObject(caar(l_cline))
    
97.         )
    
98.       )
    
99. )
    
100. 
     
101. ; --------------------------------------------------
     
102. ; 创建参数设置 form 函数
     
103. ; --------------------------------------------------
     
104. procedure(lnCreateParamForm()
     
105.   let((FileName FilePort)
     
106.     FileName = "create_pARM_form.form"
     
107.     FilePort = outfile(FileName "w")
     
108.    
     
109.     fprintf(FilePort "FILE_TYPE=FORM_DEFN VERSION=2\n")
     
110.     fprintf(FilePort "FORM\n")
     
111.     fprintf(FilePort "FIXED\n")
     
112.     fprintf(FilePort "PORT 24 50\n")
     
113.     fprintf(FilePort "HEADER \"Diff Via Anti Pad\"\n\n")
     
114.    
     
115.     fprintf(FilePort "POPUP <class>\"class\"\n")
     
116.     fprintf(FilePort "POPUP <subclass>\"subclass\"\n")
     
117.    
     
118.     fprintf(FilePort "TILE\n\n")
     
119.    
     
120.     fprintf(FilePort "TEXT \"Active Class and Subclass:\"\n\n")
     
121.     fprintf(FilePort "TLOC 1 1\n")
     
122.     fprintf(FilePort "ENDTEXT\n\n")
     
123.   ; class enumeration drop-dowm box
     
124.     fprintf(FilePort "FIELD class\n")
     
125.     fprintf(FilePort "FLOC 5 4\n")
     
126.     fprintf(FilePort "ENUMSET 19\n")
     
127.     fprintf(FilePort "OPTIONS prettyprint\n")   
     
128.     fprintf(FilePort "POP \"class\"\n")
     
129.     fprintf(FilePort "ENDFIELD\n\n")
     
130.   ; subclass color check box  
     
131.     fprintf(FilePort "FIELD subcolor\n")
     
132.     fprintf(FilePort "FLOC 2 7\n")
     
133.     fprintf(FilePort "COLOR 2 1\n")
     
134.     fprintf(FilePort "OPTIONS colcrchooser\n")
     
135.     fprintf(FilePort "ENDFIELD\n\n")
     
136.   ; subclass enumeration drop-dowm box  
     
137.     fprintf(FilePort "FIELD subclass\n")
     
138.     fprintf(FilePort "FLOC 5 7\n")
     
139.     fprintf(FilePort "ENUMSET 19\n")
     
140.     fprintf(FilePort "OPTIONS prettyprint ownerdrawn\n")
     
141.     fprintf(FilePort "POP \"subclass\"\n")
     
142.     fprintf(FilePort "ENDFIELD\n\n")
     
143.   ; enter the expand size of via
     
144.     fprintf(FilePort "TEXT \"Expand size of vias (mils):\"\n\n")
     
145.     fprintf(FilePort "TLOC 1 11\n")
     
146.     fprintf(FilePort "ENDTEXT\n\n")
     
147.    
     
148.     fprintf(FilePort "FIELD expandValue_via\n\n")
     
149.     fprintf(FilePort "FLOC 19 11\n\n")
     
150.     fprintf(FilePort "REALFILLIN 6 6\n\n")
     
151.     fprintf(FilePort "MIN 0\n\n")
     
152.     fprintf(FilePort "ENDFIELD\n\n")
     
153.    
     
154.     fprintf(FilePort "ENDTILE\n\n")
     
155.     fprintf(FilePort "ENDFORM\n")
     
156.    
     
157.     close(FilePort)
     
158.    
     
159.     createparmform = axlMiniStatusLoad(gensym() FileName 'lnCreateParmFormCB nil "NONE")
     
160.   )
     
161. )
     
162. ; --------------------------------------------------
     
163. ; 参数设置 form 回调函数
     
164. ; --------------------------------------------------
     
165. procedure(lnCreateParmFormCB(form)
     
166.   case(form->cuRField
     
167.     ("class"
     
168.       t_activelayer = axlGetActiveLayer()
     
169.     )
     
170.     ("subclass"
     
171.       t_activelayer = axlGetActiveLayer()
     
172.     )
     
173.     ("subcolor"
     
174.       if(axlFormGetField(form "subcolor") then
     
175.         axlVisibleLayer(axlGetActiveLayer() t)
     
176.       else
     
177.         axlVisibleLayer(axlGetActiveLayer() t)
     
178.       )
     
179.     )
     
180.     ("expandValue_via"
     
181.       expandValue_via= axlFormGetField(form "expandValue_via")
     
182.       printf("expandValue_via is %-.2f" expandValue_via)  
     
183.         
     
184.     )
     
185.   )
     
186. )
     
187. 
     
188. ; --------------------------------------------------
     
189. ; 结束命令回调函数
     
190. ; --------------------------------------------------
     
191. procedure(lnDone()
     
192.   let(()
     
193.     axlDBTransactionCommit(ln_mark)
     
194.     notdone = nil
     
195.     axlCancelEnterFun()
     
196.   )
     
197. )
     
198. 
     
199. ; --------------------------------------------------
     
200. ; 回撤命令回调函数
     
201. ; --------------------------------------------------
     
202. procedure(lnOops()
     
203.   let(()
     
204.     axlDBTransactionOops(ln_mark)
     
205.     axlCancelEnterFun()
     
206.   )
     
207. )
     
208. 
     
209. ; --------------------------------------------------
     
210. ; 取消命令回调函数
     
211. ; --------------------------------------------------
     
212. procedure(lnCancel()
     
213.   let(()
     
214.     axlDBTransactionCommit(ln_mark)
     
215.     notdone = nil
     
216.     axlCancelEnterFun()
     
217.   )
     
218. )
     

复制代码

补充内容 (2025-6-19 12:50):
2025.06.19更新 详见#19

ashnoer

原来的可能是拿错文件了，这是正确的代码

1. ; --------------------------------------------------
   
2. ; Allegro version: 16.6
   
3. ; Written by: Lianora
   
4. ; date: 2021.09.11
   
5. ; --------------------------------------------------
   
6. ; 功能说明：单击选择两个差分信号过孔，生成过孔反焊盘
   
7. ;           有助于减小差分阻抗在过孔处的突变程度
   
8. ; --------------------------------------------------
   
9. 
   
10. axlCmdRegister(
    
11.   "DVAP"
    
12.   'lnDiffViaAntiPad
    
13.   ?cmdType "interactive"
    
14.   ?doneCmd 'lnDone
    
15.   ?cancelCmd 'lnCancel
    
16. )
    
17. 
    
18. ; --------------------------------------------------
    
19. ; 主程序入口函数
    
20. ; --------------------------------------------------
    
21. procedure(lnDiffViaAntiPad(@optional (expandValue_via 16))
    
22.   let(()
    
23.   ; 设置 find 栏参数，仅勾选 "vias"
    
24.     axlSetFindFilter(
    
25.       ?enabled list("noall" "Pins" "vias")
    
26.       ?onButtons list("noall" "Pins" "vias")
    
27.     )
    
28.   ; 设置右键弹出功能项
    
29.     ln_popup = axlUIPopupDefine(nil (list
    
30.             (list "Done" 'lnDone)
    
31.             (list "Oops" 'lnOops)
    
32.             (list "Cancel" 'lnCancel))
    
33.           )
    
34.     axlUIPopupSet(ln_popup)
    
35.   
    
36.   ; 创建一个表单，在 options 栏中显示需要设置的参数
    
37.     lnCreateParamForm()
    
38.     axlDBControl('activeLayer "ROUTE KEEPOUT/ALL")
    
39.     axlFormSetField(createparmform "expandValue_via" expandValue_via)
    
40.    
    
41.   ; 定义一个循环标记
    
42.     notdone = t
    
43.   
    
44.   ;获取 class/subclass 信息
    
45.     t_activelayer = axlGetActiveLayer()
    
46.   
    
47.     ln_mark = axlDBTransactionStart()
    
48.    
    
49.     while(notdone
    
50. 
    
51.       l_via1 = nil
    
52.       l_via2 = nil
    
53. 
    
54.       P = axlGetSelSet(axlSelect(?prompt "Please select the first via...\n"))
    
55.       (case length(P)
    
56.         (1 ;继续选择第二个过孔
    
57.           l_via1 = car(P)
    
58.           printf("Please select the second via...\n")
    
59.           l_via2 = car(axlGetSelSet(axlSingleSelectPoint()))
    
60.           CreateShape(l_via1 l_via2)
    
61.         )
    
62.         (2 ;直接创建
    
63.           CreateShape(car(P) cadr(P))
    
64.         )
    
65.       )
    
66.     )
    
67.   )
    
68. )
    
69. 
    
70. (procedure CreateShape(l_via1 l_via2)
    
71.       if(l_via2 then
    
72.         axlDBTransactionMark(ln_mark)
    
73.         pad1 = axlDBGetPad(l_via1 "ETCH/TOP" "REGULAR")
    
74.         pad2 = axlDBGetPad(l_via2 "ETCH/TOP" "REGULAR")
    
75.   ; 计算出外扩相应尺寸后的线宽     
    
76.         cline_width = caadr(pad1->bBox) - caar(pad1->bBox) + expandValue_via
    
77.         
    
78.         printf("cline_width is %-.2f \n" cline_width)
    
79.   ; 在TOP层创建一根线段     
    
80.         l_cline = axlDBCreateLine(
    
81.                 list(l_via1->xy l_via2->xy)
    
82.                 cline_width
    
83.                 "ANTI ETCH/TOP"
    
84.                 nil
    
85.                 nil
    
86.               )
    
87.   ; 通过 cline2shape 将 cline 转换成相应层面的 shape
    
88.         if(l_cline then
    
89.           l_poly = axlPolyFromDB(caar(l_cline) ?endCapType "ROUND")
    
90.           l_shape = axlDBCreateShape(car(l_poly) t t_activelayer)
    
91.   ; 如果所在层面是 ROUTE KEEPOUT ， 需给 shpae 增加如下两个属性，可以消除走线和过孔的DRC
    
92.   ; 并保留避让铜皮属性
    
93.           if(car(parseString(t_activelayer "/")) == "ROUTE KEEPOUT" then
    
94.             axlDBAddProp(car(l_shape) list("vias_allowed" t))
    
95.             axlDBAddProp(car(l_shape) list("routes_allowed" t))
    
96.           )
    
97.   ; 删除辅助 cline
    
98.           axlDeleteObject(caar(l_cline))
    
99.         )
    
100.       )
     
101. )
     
102. 
     
103. ; --------------------------------------------------
     
104. ; 创建参数设置 form 函数
     
105. ; --------------------------------------------------
     
106. procedure(lnCreateParamForm()
     
107.   let((FileName FilePort)
     
108.     FileName = "create_parm_form.form"
     
109.     FilePort = outfile(FileName "w")
     
110.    
     
111.     fprintf(FilePort "FILE_TYPE=FORM_DEFN VERSION=2\n")
     
112.     fprintf(FilePort "FORM\n")
     
113.     fprintf(FilePort "FIXED\n")
     
114.     fprintf(FilePort "PORT 24 50\n")
     
115.     fprintf(FilePort "HEADER \"Diff Via Anti Pad\"\n\n")
     
116.    
     
117.     fprintf(FilePort "POPUP <class>\"class\"\n")
     
118.     fprintf(FilePort "POPUP <subclass>\"subclass\"\n")
     
119.    
     
120.     fprintf(FilePort "TILE\n\n")
     
121.    
     
122.     fprintf(FilePort "TEXT \"Active Class and Subclass:\"\n\n")
     
123.     fprintf(FilePort "TLOC 1 1\n")
     
124.     fprintf(FilePort "ENDTEXT\n\n")
     
125.   ; class enumeration drop-dowm box
     
126.     fprintf(FilePort "FIELD class\n")
     
127.     fprintf(FilePort "FLOC 5 4\n")
     
128.     fprintf(FilePort "ENUMSET 19\n")
     
129.     fprintf(FilePort "OPTIONS prettyprint\n")   
     
130.     fprintf(FilePort "POP \"class\"\n")
     
131.     fprintf(FilePort "ENDFIELD\n\n")
     
132.   ; subclass color check box  
     
133.     fprintf(FilePort "FIELD subcolor\n")
     
134.     fprintf(FilePort "FLOC 2 7\n")
     
135.     fprintf(FilePort "COLOR 2 1\n")
     
136.     fprintf(FilePort "OPTIONS colcrchooser\n")
     
137.     fprintf(FilePort "ENDFIELD\n\n")
     
138.   ; subclass enumeration drop-dowm box  
     
139.     fprintf(FilePort "FIELD subclass\n")
     
140.     fprintf(FilePort "FLOC 5 7\n")
     
141.     fprintf(FilePort "ENUMSET 19\n")
     
142.     fprintf(FilePort "OPTIONS prettyprint ownerdrawn\n")
     
143.     fprintf(FilePort "POP \"subclass\"\n")
     
144.     fprintf(FilePort "ENDFIELD\n\n")
     
145.   ; enter the expand size of via
     
146.     fprintf(FilePort "TEXT \"Expand size of vias (mils):\"\n\n")
     
147.     fprintf(FilePort "TLOC 1 11\n")
     
148.     fprintf(FilePort "ENDTEXT\n\n")
     
149.    
     
150.     fprintf(FilePort "FIELD expandValue_via\n\n")
     
151.     fprintf(FilePort "FLOC 19 11\n\n")
     
152.     fprintf(FilePort "REALFILLIN 6 6\n\n")
     
153.     fprintf(FilePort "MIN 0\n\n")
     
154.     fprintf(FilePort "ENDFIELD\n\n")
     
155.    
     
156.     fprintf(FilePort "ENDTILE\n\n")
     
157.     fprintf(FilePort "ENDFORM\n")
     
158.    
     
159.     close(FilePort)
     
160.    
     
161.     createparmform = axlMiniStatusLoad(gensym() FileName 'lnCreateParmFormCB nil "NONE")
     
162.   )
     
163. )
     
164. ; --------------------------------------------------
     
165. ; 参数设置 form 回调函数
     
166. ; --------------------------------------------------
     
167. procedure(lnCreateParmFormCB(form)
     
168.   case(form->curField
     
169.     ("class"
     
170.       t_activelayer = axlGetActiveLayer()
     
171.     )
     
172.     ("subclass"
     
173.       t_activelayer = axlGetActiveLayer()
     
174.     )
     
175.     ("subcolor"
     
176.       if(axlFormGetField(form "subcolor") then
     
177.         axlVisibleLayer(axlGetActiveLayer() t)
     
178.       else
     
179.         axlVisibleLayer(axlGetActiveLayer() t)
     
180.       )
     
181.     )
     
182.     ("expandValue_via"
     
183.       expandValue_via= axlFormGetField(form "expandValue_via")
     
184.       printf("expandValue_via is %-.2f" expandValue_via)  
     
185.         
     
186.     )
     
187.   )
     
188. )
     
189. 
     
190. ; --------------------------------------------------
     
191. ; 结束命令回调函数
     
192. ; --------------------------------------------------
     
193. procedure(lnDone()
     
194.   let(()
     
195.     axlDBTransactionCommit(ln_mark)
     
196.     notdone = nil
     
197.     axlCancelEnterFun()
     
198.   )
     
199. )
     
200. 
     
201. ; --------------------------------------------------
     
202. ; 回撤命令回调函数
     
203. ; --------------------------------------------------
     
204. procedure(lnOops()
     
205.   let(()
     
206.     axlDBTransactionOops(ln_mark)
     
207.     axlCancelEnterFun()
     
208.   )
     
209. )
     
210. 
     
211. ; --------------------------------------------------
     
212. ; 取消命令回调函数
     
213. ; --------------------------------------------------
     
214. procedure(lnCancel()
     
215.   let(()
     
216.     axlDBTransactionCommit(ln_mark)
     
217.     notdone = nil
     
218.     axlCancelEnterFun()
     
219.   )
     
220. )
     

复制代码

式试1813

zzbbao 发表于 2025-5-19 17:55
expandValue_via这个参数值没有回传到procedure CreateShape(l_via1 l_via2）这个函数，麻烦楼主再查看一下 ...

    ("expandValue_via"
      expandValue_via_mil = axlFormGetField(form "expandValue_via")
      expandValue_via = axlMKS2UU(sprintf(nil "%-.2f mil" expandValue_via_mil))   
    )

把代码改成这样，因为你填的是mil的，但是设计用的是mm的话，这个值就不对劲了。

Allegro_wang

ashnoer 发表于 2025-6-16 16:35
默认使用mil，是不是单位不对？

单位是mil没问题，分别在16.6/17.4版本测试都是一样的问题，输入10mil,如果正常外扩，禁布区与铜自动避让范围重合，而实际无论将数值改为多少，外扩范围都没有变化。

Dc202502202a

可以私信我一下吗

韶年shawn

这个输入值单位好像是根据板子单位来，并不一定是mil

loveluo

谢谢分享666

db-_-

ashnoer 发表于 2025-6-23 17:44
我发不了文件和图片，只能上代码

代码挺好，省得下载扣分了。就是系统BUG多多。

ashnoer

db-_- 发表于 2025-6-23 11:45
我就发了一张图片，为啥3个附件的图片都出来了呢！ =。=！！！！！

我发不了文件和图片，只能上代码

db-_-

我就发了一张图片，为啥3个附件的图片都出来了呢！ =。=！！！！！

Allegro_wang

ashnoer 发表于 2025-6-19 12:49
我发不了文件，刚重新发了一下，你再看看

可以了！问题解决了！赞！

ashnoer

Allegro_wang 发表于 2025-6-17 15:49
难道是复制粘贴有问题？能否直接上传一个.il文件的附件？再出问题那就是可能是allegro补丁版本？目前使用 ...

我发不了文件，刚重新发了一下，你再看看

Allegro_wang

ashnoer 发表于 2025-6-17 14:17
我这边是正常的

难道是复制粘贴有问题？能否直接上传一个.il文件的附件？再出问题那就是可能是allegro补丁版本？目前使用的16.6补丁S115

ashnoer

Allegro_wang 发表于 2025-6-16 17:16
单位是mil没问题，分别在16.6/17.4版本测试都是一样的问题，输入10mil,如果正常外扩，禁布区与铜自动避让 ...

我这边是正常的

Allegro_wang

Allegro_wang 发表于 2025-6-16 17:16
单位是mil没问题，分别在16.6/17.4版本测试都是一样的问题，输入10mil,如果正常外扩，禁布区与铜自动避让 ...

参数设置无效，始终为默认值！见图

ashnoer

Allegro_wang 发表于 2025-6-16 08:48
expand Sizw of vias（mils）参数设置无效

默认使用mil，是不是单位不对？

Allegro_wang

expand Sizw of vias（mils）参数设置无效