生成录制文件SCR，运行并删除录制文件SCR

xieeyawen

1. (setq out (outfile "./update_nclegend.scr")) ;打开端口，创建一个更新钻孔表的scr文件在当前的工作目录，令这个文件赋给out
   
2.                   ;配置钻孔表
   
3. 
   
4.                 (fprintf out strcat("version " substring((axlGetVariable "cdsversion") 1 4) "\n")) ;得到结果"version 16.6\n"字符串赋给scr。
   
5.                 ;axlGetVariable "cdsversion" => 16.6-2015
   
6.                 ;substring((axlGetVariable "cdsversion") 1 4) => 16.6
   
7.                 ;strcat("version " substring((axlGetVariable "cdsversion") 1 4) "\n") =>"version 16.6\n"
   
8.                 (fprintf out "ncdrill customization\n") ;打开软件上的Manufacture里的NC里的Drill Customization...
   
9.                 (fprintf out "setwindow form.nc_drillcustomization\n") ;打开了Drill Customization的界面
   
10.                 (fprintf out "FORM nc_drillcustomization auto_symbols\n") ;点开了Auto generate symbols按钮
    
11.                 (fprintf out "fillin yes\n") ;选择了yes(您真的想自动生成钻孔/槽孔符号吗)
    
12.                 (fprintf out "FORM nc_drillcustomization done\n") ;Drill Customization的界面配置确认
    
13.                 (fprintf out "fillin yes\n") ;选择yes完成配置
    
14.                 (fprintf out "setwindow pcb\n") ;自动进入PCB界面
    
15.                 (fprintf out "ncdrill legend \n") ;打开软件上的Manufacture里的NC里的Drill Legend...
    
16.                 (fprintf out "setwindow form.nc_drilllegend\n")  ;打开了Drill Customization的界面
    
17.                 (fprintf out "FORM nc_drilllegend backdrill_legends YES \n") ;在Drill Legend界面里选择勾选Include backdrill
    
18.                 ;FORM nc_drilllegend library 是打开library
    
19.                 ;fillin "default-mm" 选择输出按照mm单位，可以和后面的单位判断进行升级修改
    
20.                 (fprintf out "FORM nc_drilllegend done\n") ;点击ok配置完成
    
21.                         (case (car (axlDBGetDesignUnits))
    
22.                         ("mils" (fprintf out (sprintf nil "pick %L %L\n" (plus x_coordinates 600) y_coordinates)))
    
23.                         ("millimeters" (fprintf out (sprintf nil "pick %L %L\n" (plus x_coordinates 15) y_coordinates)))
    
24.                         );根据设计单位，输出
    
25. 
    
26.                         ;配置xsectionChart
    
27.                 (fprintf out "xsection_chart\n");
    
28.                 (fprintf out "setwindow form.xsectionChart\n");
    
29.                 (fprintf out "FORM xsectionChart layer_name YES\n");
    
30.                 (fprintf out "FORM xsectionChart layer_name YES\n");
    
31.                 (fprintf out "FORM xsectionChart drill_label YES\n");
    
32.                 (fprintf out "FORM xsectionChart layer_thickness YES\n");
    
33.                 (fprintf out "FORM xsectionChart xsectionchart_ok\n");
    
34.                   (case (car (axlDBGetDesignUnits))
    
35.                         ("mils" (fprintf out (sprintf nil "pick %L %L\n" (plus x_coordinates 1200) y_coordinates)))
    
36.                         ("millimeters" (fprintf out (sprintf nil "pick %L %L\n" (plus x_coordinates 30) y_coordinates)))
    
37.                         );根据设计单位，输出
    
38. 
    
39.                  (close out)  ;关闭端口
    
40.                  (axlShell "scriptmode +invisible +noinfo;replay update_nclegend.scr")
    
41.                  ;脚本文件的运行模式(scriptmode)不提示错误信息(+noerrors)，不弹出确认对画框(+invisible),不提示信息(+noinfo)
    
42.                  ;运行update_nclegend.scr
    
43.                  (deleteFile "update_nclegend.scr") ;删除生成的scr文件
    
44.                  (axlUIConfirm "NC-Legend\322\321\270\374\320\302\243\241")  ;弹窗出：NC-Legend已生成！

复制代码

xieeyawen

请教一下高手，如何每次生成scr放置钻孔表和xsectionChart不要改变位置呢

xieeyawen

另外SCR代码有个简单的方法获取，就是自己录制需要的SCR文件，并用记事本打开这个SCR文件，这些就是代码，按照上面模式就能得到任意的SCR文件

xieeyawen

环境变量的获取：axlGetVariable(nil)