导出过孔的padstack的方法，有两种，但是scr方式可能会报错，还不知道原因

式试1813

1. procedure(exportvpad()
   
2. prog(()
   
3.                 ;FormPathXX=strcat((axlGetVariable "cdsroot") "\\share\\pcb\\text\\forms")
   
4.                 ;FormPathXX=buildString(parseString(FormPathXX "\\") "/")
   
5.                 ;dlib_form_file=sprintf(nil "%s\\dlib.form" FormPathXX)
   
6.                 ;dlib_form=axlMiniStatusLoad( (gensym) dlib_form_file 'dlib t)
   
7.                 out = outfile("./export_padstack.scr") ;打开端口，创建一个scr文件在当前的工作目录，令这个文件赋给out
   
8.                 fprintf(out "setwindow pcb\n")
   
9.                 fprintf(out "generaledit\n")
   
10.                 fprintf(out "dlib\n")
    
11.                 fprintf(out "setwindow form.dlib\n")
    
12.                 fprintf(out "FORM dlib none\n") ;
    
13.                 fprintf(out "FORM dlib pad YES\n") ;
    
14.                 fprintf(out "FORM dlib browse_export\n") ;
    
15.    ;fprintf(out "fillin VIA\n")  ;放在根目录的VIA文件夹下
    
16.           fprintf(out "fillin ./\n")  ;放在根目录文件夹下
    
17.                 fprintf(out "FORM dlib execute\n") ;
    
18.                 fprintf(out "FORM dlib cancel\n") ;
    
19.                 fprintf(out "setwindow pcb\n") ;
    
20.                 fprintf(out "generaledit\n") ;配置完成
    
21.                 close(out)  ;关闭端口
    
22.                 axlShell("replay ./export_padstack.scr")       
    
23. );endprog
    
24. );endprocedure

复制代码

方式1为scr方式，会提示找不到dlib

1. procedure(ccc()
   
2. prog(()
   
3. 
   
4.         paddbid_lista=axlDBGetDesign()->padstacks ;定义paddbid_lista获得设计用的过孔dbid列表
   
5.        
   
6.           
   
7.         paddbid_listb=nil
   
8.   ;foreach(a paddbid_lista if( nindex(upperCase(a->name) "V")!=nil then  paddbid_listb=append1(paddbid_listb a->name)))
   
9.   ;列表a里挑选pad名字带V的，即把过孔都找出来并增加到列表b中。列表信息里还是dbid
   
10.         foreach(a paddbid_lista
    
11.                                 if( nindex(upperCase(a->name) "V")!=nil then  
    
12.                                         paddbid_listb=append1(paddbid_listb a->name)
    
13.                                         );endif
    
14.                                         );endforeach
    
15.                
    
16.                                        
    
17.   ;if( paddbid_listb!=nil then paddbid_listb=sort(paddbid_listb nil))
    
18.   ;paddbid_listb进行由小到大的排序，此时得到的就不是dbid了，而是焊盘名字列表
    
19.         if( paddbid_listb!=nil then
    
20.                 paddbid_listb=sort(paddbid_listb nil)
    
21.                 );endif
    
22.                
    
23.                
    
24.         ;foreach( viapadName paddbid_listb  axlPadstackToDisk(viapadName))
    
25.         ;保存过孔pad       
    
26.         foreach( viapadName paddbid_listb  
    
27.                                         axlPadstackToDisk(viapadName)
    
28.                                         );endforeach
    
29.                                        
    
30. );endprog
    
31. );endprocedure

复制代码

这个画了一些时间才学会写的。skill的函数不熟。

式试1813

第二种是输出的VIA的padstacks，第一种是输出所有PCB的pad封装，第二种删除一下挑选V的代码即可都输出

式试1813

aarom 发表于 2025-3-20 13:57
請自己加 axlCmdRegister 和 defun, 不要這樣懶.

秀最後一手, 以後不再貼程式碼了. 因為我最多只會到 ...

根据你在另一个帖子的回复，把scr模式改成这样也是只能调试时候能输出，加入代码里不能够输出
procedure(ccc()
                        prog(()
                        sprintf(command "setwindow pcb;generaledit;dlib ;
                        setwindow form.dlib;FORM dlib none  ;FORM dlib pad YES ;FORM dlib browse_export  ;
                        fillin ./;FORM dlib execute ; FORM dlib cancel;  setwindow pcb;generaledit ")
                        axlShellPost(command)
                        axlShell("Done")
                        );endprog
                        );endprocedure


报错：
E- Can't find window; form.dlib
E- Form not found
E- Command not found: fillin ./

E- Form not found

式试1813

式试1813 发表于 2025-3-20 14:03
根据你在另一个帖子的回复，把scr模式改成这样也是只能调试时候能输出，加入代码里不能够输出
procedure ...

单独在skill窗口可以调出来，不报错，我的意思是加入其他的有form的il文件里就不行了

chouqiu

学习了

式试1813

1. 输出所有设计文件的封装

复制代码

lista=axlDBGetDesign()->components                     
foreach(a lista symDef=car(list(a->symbol->definition)) axlWritePackageFile(symDef))