allegro导出DXF源码

亦久忆旧

刚开始学习skill，一边看函数，一边写代码，写了1个导出DXF的skill，给出源码，欢迎大家试用，不过无法导出过孔孔径，因为还不会写怎么给过孔画shape，有会的人可以优化一下，分享出来

1. ;导出DXF文件
   
2. ;axlCmdRegister("dxfExport_TB" 'Export_DXF)
   
3. procedure(Export_DXF()
   
4.     let((topStatus bottomStatus topFile bottomFile)
   
5.         ; 获取设计信息
   
6.         topFile = strcat(getWorkingDir() "/" axlCurrentDesign() "_TOP.dxf")
   
7.         bottomFile = strcat(getWorkingDir() "/" axlCurrentDesign() "_BOTTOM.dxf")
   
8. 
   
9.    
   
10.         ; 导出TOP层DXF:命名规则:CLASS/SUBCLASS/DXF_DXF_LAYER
    
11.         topStatus = dxf_export_layer("TOP" topFile '("PIN/TOP/PIN_TOP"
    
12.                                                       "REF DES/SILKSCREEN_TOP/RD_SILKSCREEN_TOP"
    
13.                                                       "PACKAGE GEOMETRY/SILKSCREEN_TOP/PG_SILKSCREEN_TOP"
    
14.                                                       "BOARD GEOMETRY/SILKSCREEN_TOP/BG_SILKSCREEN_TOP"
    
15.                                                                                                           "BOARD GEOMETRY/Drillhole/BG_Drillhole"
    
16.                                                       "BOARD GEOMETRY/OUTLINE/BG_OUTLINE"
    
17.                                                       "BOARD GEOMETRY/DESIGN_OUTLINE/BG_DESIGN_OUTLINE"
    
18.                                                                               )
    
19.                                      );end dxf_export_layer
    
20.    
    
21.         ; 导出BOTTOM层DXF
    
22.         bottomStatus = dxf_export_layer("BOTTOM"   bottomFile  '("PIN/BOTTOM/PIN_BOTTOM"
    
23.                                                                   "REF DES/SILKSCREEN_BOTTOM/RD_SILKSCREEN_BOTTOM"
    
24.                                                                   "PACKAGE GEOMETRY/SILKSCREEN_BOTTOM/PG_SILKSCREEN_BOTTOM"
    
25.                                                                   "BOARD GEOMETRY/SILKSCREEN_BOTTOM/BG_SILKSCREEN_BOTTOM"
    
26.                                                                                                                                   "BOARD GEOMETRY/Drillhole/BG_Drillhole"
    
27.                                                                   "BOARD GEOMETRY/OUTLINE/BG_OUTLINE"
    
28.                                                                   "BOARD GEOMETRY/DESIGN_OUTLINE/BG_DESIGN_OUTLINE"
    
29.                                                                                          )
    
30.                                         );end dxf_export_layer
    
31.    
    
32.     ; 显示完成信息
    
33.     if(topStatus && bottomStatus
    
34.         then
    
35.         axlUIWPrint(nil "DXF export completed successfully!")
    
36.     else
    
37.         axlUIWPrint(nil "DXF export completed with warnings!")
    
38.     );end if
    
39.     ; 确保显示正确的文件路径
    
40.     axlUIWPrint(nil strcat("TOP DXF: " topFile))
    
41.     axlUIWPrint(nil strcat("BOTTOM DXF: " bottomFile))
    
42.   );end let
    
43. );end procedure
    
44. ;构建导出命令
    
45. procedure(dxf_export_layer(layerName dxfFileName layerList)
    
46.     let(()
    
47.         ; 创建临时CNV文件
    
48.         cnvFile = strcat(layerName ".cnv")
    
49.         P = outfile(cnvFile "w")
    
50.         
    
51.         ; 写入CNV文件头
    
52.                 fprintf(P "#This is the Layer Conversion File used for\n")
    
53.             fprintf(P "#importing DXF data into allegro/APD.\n\n")
    
54.         fprintf(P "#CLASS!            SUBCLASS!                DXF_LAYER!\n\n")
    
55.         
    
56.         ; 按层分类输出
    
57.                 fprintf(P "PIN!\n")
    
58.         foreach(subclass layerList
    
59.             when(rexMatchp("^PIN/" subclass)
    
60.                 subclassName = cadr(parseString(subclass "/"))
    
61.                                 dxf_layer_name = caddr(parseString(subclass "/"))
    
62.                 fprintf(P "                         %s!                        %s!\n\n" subclassName dxf_layer_name)
    
63.             );end when
    
64.         );end foreach
    
65.         fprintf(P "REF DES!\n")
    
66.         foreach(subclass layerList
    
67.             when(rexMatchp("^REF DES/" subclass)
    
68.                 subclassName = cadr(parseString(subclass "/"))
    
69.                                 dxf_layer_name = caddr(parseString(subclass "/"))
    
70.                 fprintf(P "                   %s!         %s!\n\n" subclassName dxf_layer_name)
    
71.             );end when
    
72.         );end foreach
    
73.         fprintf(P "PACKAGE GEOMETRY!\n")
    
74.         foreach(subclass layerList
    
75.             when(rexMatchp("^PACKAGE GEOMETRY/" subclass)
    
76.                 subclassName = cadr(parseString(subclass "/"))
    
77.                                 dxf_layer_name = caddr(parseString(subclass "/"))
    
78.                 fprintf(P "                   %s!           %s!\n\n" subclassName dxf_layer_name)
    
79.             );end when
    
80.         );end foreach
    
81.         fprintf(P "BOARD GEOMETRY!\n")   
    
82.         foreach(subclass layerList
    
83.             when(rexMatchp("^BOARD GEOMETRY/" subclass)
    
84.                 subclassName = cadr(parseString(subclass "/"))
    
85.                                 dxf_layer_name = caddr(parseString(subclass "/"))
    
86.                 fprintf(P "                   %s!          %s!\n\n" subclassName dxf_layer_name)
    
87.             );end when
    
88.         );end foreach
    
89.                 fprintf(P "#END\n")
    
90.         close(P)
    
91.         ;临时CNV文件创建结束
    
92.        
    
93.        
    
94. ;**********************构建命令，调用a2dxf.exe导出函数****************************************
    
95. 
    
96.     ; 创建日志文件名
    
97.     logFile = strcat(layerName "_Drc.log")
    
98.     ; 构建a2dxf.exe的命令
    
99.     cmdGet = sprintf(nil "a2dxf.exe -u %s -a 5 -c l %s %s %s" car(axlDBGetDesignUnits()) cnvFile dxfFileName axlCurrentDesign())
    
100.         DXFstatus = ipcBatchProcess(cmdGet "" logFile)
     
101. 
     
102.     sleep(1) ; 等待1秒让文件系统完成写入,在删除临时文件
     
103.         when(isFile(dxfFileName) errset(deleteFile(cnvFile)))
     
104.         when(isFile(dxfFileName) errset(deleteFile(logFile)))
     
105. 
     
106. /************************************************************************
     
107.     ; 检查文件是否创建 - 添加延迟确保文件系统更新
     
108.     sleep(2) ; 等待1秒让文件系统完成写入
     
109.     success = isFile(dxfFileName)
     
110.    
     
111.     if(success then
     
112.         ; 清理临时文件
     
113.         when(isFile(cnvFile) deleteFile(cnvFile));end when
     
114.         when(isFile(logFile) deleteFile(logFile));end when
     
115.         t ; 返回成功状态
     
116.     else
     
117.         ; 导出失败：保留临时文件并打印日志内容
     
118.         axlUIWPrint(nil sprintf(nil "ERROR: Failed to create %s" dxfFileName))
     
119.         axlUIWPrint(nil "Temporary files preserved for debugging:")
     
120.         axlUIWPrint(nil sprintf(nil "  Config file: %s" cnvFile))
     
121.         axlUIWPrint(nil sprintf(nil "  Log file: %s" logFile))
     
122.         
     
123.         ; 读取并显示日志文件内容
     
124.         if(isFile(logFile) then
     
125.             axlUIWPrint(nil "Log file contents:")
     
126.             logContent = infile(logFile)
     
127.             while(gets(line logContent)
     
128.                 axlUIWPrint(nil line)
     
129.             );end while
     
130.             close(logContent)
     
131.         );end if
     
132.         nil ; 返回失败状态
     
133.     );end if
     
134. ************************************************************************/
     
135.   );end let
     
136. );end procedure

复制代码

亦久忆旧

希望有大佬可以加上如何画过孔孔径，我现在正在学习，没有思路，现在只会看函数，用一些基本的函数，大部分函数都还没用到，连最基本的dbid也不了解

亦久忆旧

这个代码不知道为啥在365上面比较乱

zc333

把文件包发上来

w_w

能写出来给自己用  就已经很不错了  继续加油
钻孔的画法我记得论坛里面也有，大概方法是获取焊盘钻孔的大小和中心坐标，然后创建一个专用层，在每个焊盘
上画等大的圆圈。出dxf的时候把这层也显示一起出就行了

学无止境```

w_w 发表于 2025-6-27 09:14
能写出来给自己用  就已经很不错了  继续加油
钻孔的画法我记得论坛里面也有，大概方法是获取焊盘钻孔的大 ...

听着很简单，但是我不会啊，论坛上有1个开源的代码，但是我运行后有错误