大佬们，如何等间距复制过孔

15835255738

目前写了1个代码，无法实现功能，我想要运行skil以后，选择1个过孔，然后上下左右可以等间距复制过孔

1. /*********************************************************************
   
2. 源码
   
3. 作者：KLJ
   
4. 功能：等间距拷贝过孔
   
5. 优化：KLJ   
   
6. 更新：
   
7.     2025年07月10日
   
8. 
   
9. 思路，1、选择过孔
   
10.     2、axlDBGetPad()获取选择的过孔的DBID，根据DBID获取坐标、网络名称
    
11.         3、axlDBCreateVia创建过孔  
    
12.        
    
13.     axlSetFindFilter支持的参数：
    
14.         "PINS","VIAS","CLINES","CLINESEGS","LINES","LINESEGS","DRCS","TEXT","SHAPES",
    
15.         "SHAPESEGS","BOUNDARY_SHAPES","VOIDS","VOIDSEGS","SYMBOLS","FIGURES","COMPONENTS",
    
16.         "FUNCTIONS","NETS","INVISIBLE","NAMEFORM","ALLTYPES","ALL","DYnthEMALS","GROUPS",
    
17.         "GROUPmemberS""DYNTHEMALS","GROUPS","GROUPMEMBERS"
    
18.        
    
19. **********************************************************************/
    
20. axlCmdRegister("COpyViaBySameDistance" 'CreateCOpyViaForm_KLJ)
    
21. defun(CreateCOpyViaForm_KLJ ()
    
22.                 time = getCurrentTime()
    
23.                 time = parseString(time)
    
24.                 day = nth(1 time)
    
25.                 month = car(time)
    
26.                 month = upperCase(month)
    
27.                 year = nth(3 time)
    
28.                 date = strcat(" Date: " day " " month " " year)               
    
29.                 CreateCOpyViaForm()
    
30.                 COpyViaForm_KLJ=axlFormCreate( (gensym) form_file nil 'CopyVia_CallBack t)
    
31.                 axlFormDisplay(COpyViaForm_KLJ)
    
32.                 axlUIWPrint(COpyViaForm_KLJ date)
    
33.                 axlFormSetField(COpyViaForm_KLJ "Radio2" "true") ;默认勾选SMD
    
34.                 axlFormSetField(COpyViaForm_KLJ "Units_value" car(axlDBGetDesignUnits()))
    
35.                
    
36. 
    
37.                
    
38. );end defun
    
39. 
    
40. 
    
41. defun(CreateCOpyViaForm ()
    
42. drain()
    
43. form_file = "CopyViaBySameDistance_form.form"
    
44. COpyViaForm = outfile(form_file "w")
    
45. fprintf(COpyViaForm "#Created by xml2bnf  perl utility\n")
    
46. fprintf(COpyViaForm "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
    
47. fprintf(COpyViaForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
48. fprintf(COpyViaForm "FORM AUTOGREYTEXT\n")
    
49. fprintf(COpyViaForm "FIXED\n")
    
50. fprintf(COpyViaForm "PORT 36 28\n")
    
51. fprintf(COpyViaForm "HEADER "Form Field Type Demo"\n\n")
    
52. fprintf(COpyViaForm "TILE\n\n")
    
53. 
    
54. fprintf(COpyViaForm "TEXT Current_Units:\n")
    
55. fprintf(COpyViaForm "FLOC 7 0\n")
    
56. fprintf(COpyViaForm "TGROUP "Form1"\n")
    
57. fprintf(COpyViaForm "ENDTEXT\n\n")
    
58. 
    
59. fprintf(COpyViaForm "TEXT \n")
    
60. fprintf(COpyViaForm "FLOC 17 0\n")   
    
61. fprintf(COpyViaForm "INFO Units_value 16 1\n") ;
    
62. fprintf(COpyViaForm "TGROUP "Form1"\n")
    
63. fprintf(COpyViaForm "ENDTEXT \n\n")
    
64. 
    
65. when(car(axlDBGetDesignUnits())=="mils"
    
66.     fprintf(COpyViaForm "FIELD Radio1\n")
    
67.     fprintf(COpyViaForm "FLOC 8 2\n")
    
68.     fprintf(COpyViaForm "CHECKLIST "19.69"  "rg"\n")
    
69.     fprintf(COpyViaForm "FGROUP "Form1"\n")
    
70.     fprintf(COpyViaForm "ENDFIELD \n\n")
    
71.    
    
72.     fprintf(COpyViaForm "FIELD Radio2\n")
    
73.     fprintf(COpyViaForm "FLOC 18 2\n")
    
74.     fprintf(COpyViaForm "CHECKLIST "31.5"  "rg"\n")
    
75.     fprintf(COpyViaForm "FGROUP "Form1"\n")
    
76.     fprintf(COpyViaForm "ENDFIELD \n\n")
    
77.    
    
78.     fprintf(COpyViaForm "FIELD Radio3\n")
    
79.     fprintf(COpyViaForm "FLOC 8 4\n")
    
80.     fprintf(COpyViaForm "CHECKLIST "39.37"  "rg"\n")
    
81.     fprintf(COpyViaForm "FGROUP "Form1"\n")
    
82.     fprintf(COpyViaForm "ENDFIELD \n\n")
    
83.    
    
84.     fprintf(COpyViaForm "FIELD Radio4\n")
    
85.     fprintf(COpyViaForm "FLOC 18 4\n")
    
86.     fprintf(COpyViaForm "CHECKLIST "50"  "rg"\n")
    
87.     fprintf(COpyViaForm "FGROUP "Form1"\n")
    
88.     fprintf(COpyViaForm "ENDFIELD \n\n")
    
89. );end when
    
90. 
    
91. when(car(axlDBGetDesignUnits())=="millimeters"
    
92.     fprintf(COpyViaForm "FIELD Radio1\n")
    
93.     fprintf(COpyViaForm "FLOC 8 2\n")
    
94.     fprintf(COpyViaForm "CHECKLIST "0.5"  "rg"\n")
    
95.     fprintf(COpyViaForm "FGROUP "Form1"\n")
    
96.     fprintf(COpyViaForm "ENDFIELD \n\n")
    
97.    
    
98.     fprintf(COpyViaForm "FIELD Radio2\n")
    
99.     fprintf(COpyViaForm "FLOC 18 2\n")
    
100.     fprintf(COpyViaForm "CHECKLIST "0.8"  "rg"\n")
     
101.     fprintf(COpyViaForm "FGROUP "Form1"\n")
     
102.     fprintf(COpyViaForm "ENDFIELD \n\n")
     
103.    
     
104.     fprintf(COpyViaForm "FIELD Radio3\n")
     
105.     fprintf(COpyViaForm "FLOC 8 4\n")
     
106.     fprintf(COpyViaForm "CHECKLIST "1.0"  "rg"\n")
     
107.     fprintf(COpyViaForm "FGROUP "Form1"\n")
     
108.     fprintf(COpyViaForm "ENDFIELD \n\n")
     
109.    
     
110.     fprintf(COpyViaForm "FIELD Radio4\n")
     
111.     fprintf(COpyViaForm "FLOC 18 4\n")
     
112.     fprintf(COpyViaForm "CHECKLIST "1.27"  "rg"\n")
     
113.     fprintf(COpyViaForm "FGROUP "Form1"\n")
     
114.     fprintf(COpyViaForm "ENDFIELD \n\n")
     
115. );end when
     
116. 
     
117. fprintf(COpyViaForm "FIELD Radio5\n")
     
118. fprintf(COpyViaForm "FLOC 8 6\n")
     
119. fprintf(COpyViaForm "CHECKLIST "Renew:"  "rg"\n")
     
120. fprintf(COpyViaForm "FGROUP "Form1"\n")
     
121. fprintf(COpyViaForm "ENDFIELD \n\n")
     
122. 
     
123. fprintf(COpyViaForm "FIELD Input\n")
     
124. fprintf(COpyViaForm "FLOC 16 6\n")
     
125. fprintf(COpyViaForm "FSIZE 4 2\n")
     
126. fprintf(COpyViaForm "STRFILLIN 6 32\n")
     
127. fprintf(COpyViaForm "FGROUP "Form1"\n")
     
128. fprintf(COpyViaForm "ENDFIELD \n\n\n")
     
129. 
     
130. curdesignunit = axlGetParam("paramDesign")->units
     
131. fprintf(COpyViaForm "TEXT %L\n" curdesignunit) ;curdesignunit是1个变量
     
132. fprintf(COpyViaForm "FLOC 24 6\n")
     
133. fprintf(COpyViaForm "TGROUP "Form1"\n")
     
134. fprintf(COpyViaForm "ENDTEXT\n\n")
     
135. 
     
136. fprintf(COpyViaForm "FIELD Button_Up\n")
     
137. fprintf(COpyViaForm "FLOC 11 11\n")
     
138. fprintf(COpyViaForm "MENUBUTTON "Up" 11 3\n")
     
139. fprintf(COpyViaForm "FGROUP "Form1"\n")
     
140. fprintf(COpyViaForm "ENDFIELD \n\n")
     
141. 
     
142. fprintf(COpyViaForm "FIELD Button_Down\n")
     
143. fprintf(COpyViaForm "FLOC 11 17\n")
     
144. fprintf(COpyViaForm "MENUBUTTON "Down" 11 3\n")
     
145. fprintf(COpyViaForm "FGROUP "Form1"\n")
     
146. fprintf(COpyViaForm "ENDFIELD \n\n")
     
147. 
     
148. fprintf(COpyViaForm "FIELD Button_Left\n")
     
149. fprintf(COpyViaForm "FLOC 1 14\n")
     
150. fprintf(COpyViaForm "MENUBUTTON "Left" 11 3\n")
     
151. fprintf(COpyViaForm "FGROUP "Form1"\n")
     
152. fprintf(COpyViaForm "ENDFIELD \n\n")
     
153. 
     
154. fprintf(COpyViaForm "FIELD Button_Right\n")
     
155. fprintf(COpyViaForm "FLOC 22 14\n")
     
156. fprintf(COpyViaForm "MENUBUTTON "Right" 11 3\n")
     
157. fprintf(COpyViaForm "FGROUP "Form1"\n")
     
158. fprintf(COpyViaForm "ENDFIELD \n\n")
     
159. 
     
160. fprintf(COpyViaForm "ENDTILE\n\n")
     
161. fprintf(COpyViaForm "ENDFORM\n\n")
     
162. 
     
163. close(COpyViaForm)
     
164. )
     
165. 
     
166. 
     
167. defun(CopyVia_CallBack (COpyViaForm_KLJ)
     
168.     let( (dist field cnt)
     
169.             printf("field/value %L = %L (int %L\n)" COpyViaForm_KLJ->curField, COpyViaForm_KLJ->curValue, COpyViaForm_KLJ->curValueInt )
     
170.         printf("doneState %L\n" COpyViaForm_KLJ->doneState )
     
171.         case(COpyViaForm_KLJ->curField
     
172.                     ("Button_Up"
     
173.                 dist = getDistanceValue(COpyViaForm_KLJ)
     
174.                 when(dist
     
175.                                  CopyViaBySameDimension(0 dist)
     
176.                             );end when
     
177. 
     
178.                     )
     
179.                     ("Button_Down"               
     
180.                 dist = getDistanceValue(COpyViaForm_KLJ)
     
181.                 when(dist
     
182.                                  CopyViaBySameDimension(0 -dist)
     
183.                             );end when
     
184.                     )
     
185.                     ("Button_Left"
     
186.                 dist = getDistanceValue(COpyViaForm_KLJ)
     
187.                 when(dist
     
188.                                  CopyViaBySameDimension(-dist 0)
     
189.                             );end when
     
190.                     )
     
191.                     ("Button_Right"   
     
192.                 dist = getDistanceValue(COpyViaForm_KLJ)
     
193.                 when(dist
     
194.                                  CopyViaBySameDimension(dist 0)
     
195.                             );end when       
     
196.                     )
     
197.                     ("Radio1"   
     
198.                     )
     
199.                     ("Radio2"            
     
200.                     )
     
201.                     ("Radio3"            
     
202.                     
     
203.                     )
     
204.                     ("Radio4"                    
     
205.                     
     
206.                     )
     
207.                     ("Input"
     
208. 
     
209.                     )
     
210.         );end let
     
211. );end procedure
     
212. 
     
213. if((nequal COpyViaForm_KLJ->doneState 0)
     
214. axlFormClose(COpyViaForm_KLJ))
     
215. )
     
216. 
     
217. 
     
218. ; 辅助函数：获取距离值
     
219. defun(getDistanceValue (form)
     
220.     let((dist)
     
221.         Radio_num1 = axlFormGetField(form "Radio1")
     
222.         Radio_num2 = axlFormGetField(form "Radio2")
     
223.         Radio_num3 = axlFormGetField(form "Radio3")
     
224.         Radio_num4 = axlFormGetField(form "Radio4")
     
225.         Radio_num5 = axlFormGetField(form "Radio5")
     
226.         when(Radio_num1
     
227.             when(car(axlDBGetDesignUnits()) == "mils"         dist = float(19.69))
     
228.             when(car(axlDBGetDesignUnits()) == "millimeters"  dist = float(0.5))
     
229.         )
     
230.         when(Radio_num2
     
231.             when(car(axlDBGetDesignUnits()) == "mils"         dist = float(31.5))
     
232.             when(car(axlDBGetDesignUnits()) == "millimeters"  dist = float(0.8))
     
233.         )
     
234.         when(Radio_num3
     
235.             when(car(axlDBGetDesignUnits()) == "mils"         dist = float(39.37))
     
236.             when(car(axlDBGetDesignUnits()) == "millimeters"  dist = float(1.0))
     
237.         )
     
238.         when(Radio_num4
     
239.             when(car(axlDBGetDesignUnits()) == "mils"         dist = float(50))
     
240.             when(car(axlDBGetDesignUnits()) == "millimeters"  dist = float(1.27))
     
241.         )
     
242.         when(Radio_num5
     
243.             dist = atof(axlFormGetField(form "Input"))
     
244.         )
     
245.                 dist
     
246.     );end let
     
247. );end defun
     
248. 
     
249. 
     
250. defun( CopyViaBySameDimension (x_offset y_offset)
     
251.     let((ViaDbid)
     
252.         axlSetFindFilter(?enabled (list "noall" "VIAS") ?onButtons (list "VIAS"))
     
253.         ;axlClearSelSet()
     
254.         axlMsgPut("Select a via as reference...")
     
255.         selectedVia = axlSingleSelectPoint()
     
256.         ViaDbid = axlGetSelSet(selectedVia)                        ;获取选择对象的DBID
     
257.                 ;unless(axlOKToProceed() axlShell("done"))
     
258.                 when(ViaDbid
     
259.                 padstackName = car(ViaDbid)->name      ;获取焊盘名称
     
260.             ViaNet = car(ViaDbid)->net->name       ;获取当前选择过孔的网络名称
     
261.                 ViaXY  = car(ViaDbid)->xy              ;获取当前选择过孔的坐标
     
262.                 ViaRotation  = car(ViaDbid)->via->rotation  ;获取旋转角度
     
263.                 ViaMirror  = car(ViaDbid)->via->mirrored  ;获取旋转角度
     
264.         );end when
     
265.             x = xCoord(ViaXY)  ; 获取x坐标
     
266.             y = yCoord(ViaXY)  ; 获取y坐标
     
267.                 ;点击左右则x变化，y不变
     
268.             x = x + x_offset
     
269.             ;点击上下则y变化，X不变
     
270.             y = y + y_offset
     
271.                 ;unless(axlOKToProceed() axlShell("done"))
     
272.             newVia = axlDBCreateVia(padstackName , x:y , ViaNet, ViaMirror , ViaRotation , nil) ;创建过孔
     
273.             when(newVia
     
274.                     NewViaDbid = list(car(newVia))
     
275.                 axlHighlightObject(NewViaDbid)
     
276.             );end when
     
277.                     
     
278.     );end let   
     
279. );end defun       
     
280.        
     
281.        
     
282.        
     
283.        
     
284.        

复制代码

bingshuihuo

赞！！！！！！！！！！！！！！！！！！！！！！