【原创】【源码】图纸大小设置工具

digitzing

allegro PCB图纸大小设置工具 ，半成品，有些问题未解决，功能未完善，目前空板时能设置，把源码码发出来，有能力的同学拿去继续开发，开发完记得分享下




SetBoard.rar (1.01 KB, 下载次数: 12)

2022-10-1 11:35 上传

点击文件名下载附件
下载积分: 贡献 -30 , 威望 -10

1. <div>
   
2. </div><div><div class="blockcode"><blockquote>axlCmdRegister("SetBoard" 'SetBoard_Form_Pro)
   
3. 
   
4. 
   
5. procedure(SetBoard_Form_Pro()
   
6.                         SetBoardForm=axlFormCreate((gensym) "SetBoard.form" nil 'SetBoard_Form_Action t nil)
   
7.                         axlFormDisplay(SetBoardForm)
   
8.                 GetSetPro()       
   
9. )
   
10. 
    
11. procedure(SetBoard_Form_Action(SetBoardForm)
    
12. case(SetBoardForm->cuRField
    
13.                 ("GetSetButton"
    
14.                         GetSetPro()       
    
15.                 )               
    
16.                 ("StandSetButton"
    
17.                         DrawingSize_mm=list(`(1189 841) `(841 594) `(594 420) `(420 297) `(297 210) `(210 148) `(148 105))
    
18.                         SelectSize = atoi(axlFormGetField(SetBoardForm "StandEnum"))                       
    
19.                         ;extents = axlExtentDB('obstacle)
    
20.                         ;extents = bBoxAdd(extents '((-5 -5) (297 210)))
    
21.                         SetSizeWidth= nth(0 nth(SelectSize DrawingSize_mm))/du
    
22.                         SetSizeHigh= nth(1 nth(SelectSize DrawingSize_mm))/du
    
23.                         extents=list( list(-SetSizeWidth/2 -SetSizeHigh/2) list(SetSizeWidth/2 SetSizeHigh/2))
    
24.                         axlDBChangeDesignExtents(extents)
    
25.                        
    
26.                         SetDrawingScriptCreate(-200 -200 2100 2200)
    
27.                         ;axlDBChangeDesignExtents(list(`(-500 -500) `(2560 1440)))
    
28.                         ;axlDBChangeDesignExtents(list(`(-500 -500) `(1920 1080)))
    
29.                         ;axlDBChangeDesignExtents(list(`(-5 -5) `(10 10)))
    
30.                 )
    
31.                 ("SizeSetButton"
    
32.                        
    
33.                 )
    
34.                 ("LocalSetButton"
    
35.                         print("LocalSetButton!")               
    
36.                 )               
    
37.                 ("AllSetButton"
    
38.                         AllSetPro()
    
39.                 )
    
40.         )
    
41. )
    
42. 
    
43. procedure(GetSetPro()
    
44.         Drawingunit = axlGetParam("paramDesign")->units
    
45.         case(Drawingunit
    
46.                 ("mils"  DRUnit = 0.0254)
    
47.                 ("millimeters" DRUnit = 1 )
    
48.         )
    
49.         print(DRUnit)       
    
50.         axlFormSetField(SetBoardForm "DrawingHigh" DRUnit*axlGetParam("paramDesign")->height)
    
51.         axlFormSetField(SetBoardForm "DrawingWidth" DRUnit*axlGetParam("paramDesign")->width)
    
52.         axlFormSetField(SetBoardForm "LeftX" -DRUnit*nth(0 axlGetParam("paramDesign") ->xy))       
    
53.         axlFormSetField(SetBoardForm "LeftY" -DRUnit*nth(1 axlGetParam("paramDesign") ->xy))       
    
54. 
    
55. )
    
56. 
    
57. procedure(AllSetPro()
    
58.         DrawingHigh=axlFormGetField(SetBoardForm "DrawingHigh")
    
59.         DrawingWidth=axlFormGetField(SetBoardForm "DrawingWidth")
    
60.         LeftX=-axlFormGetField(SetBoardForm "LeftX")
    
61.         LeftY=-axlFormGetField(SetBoardForm "LeftY")       
    
62.         SetDrawingScriptCreate(LeftX LeftY DrawingWidth DrawingHigh)       
    
63. )
    
64. 
    
65. procedure(SetDrawingScriptCreate(Draw_X Draw_Y SizeWidth SizeHigh)
    
66.                 DRScriptFile = axlTempFile()
    
67.                 DRScrPort = outfile(DRScriptFile "w")
    
68.                 fprintf(DRScrPort "scriptmode +i +n\n")
    
69.                 fprintf(DRScrPort "version 16.6\n")
    
70.                 fprintf(DRScrPort "setwindow pcb\n")
    
71.                 fprintf(DRScrPort "trapsize 24081\n")
    
72.                 fprintf(DRScrPort "generaledit\n")
    
73.                 fprintf(DRScrPort "prmed \n")
    
74.                 fprintf(DRScrPort "setwindow form.prmedit\n")
    
75.                 fprintf(DRScrPort "FORM prmedit x %n \n" Draw_X)
    
76.                 fprintf(DRScrPort "FORM prmedit y %n \n" Draw_Y)
    
77.                 fprintf(DRScrPort "FORM prmedit width %n \n" SizeWidth)
    
78.                 fprintf(DRScrPort "FORM prmedit height %n \n" SizeHigh)
    
79.                 fprintf(DRScrPort "FORM prmedit done  \n")
    
80.                 fprintf(DRScrPort "setwindow pcb\n")
    
81.                 fprintf(DRScrPort "trapsize 24081\n")
    
82.                 fprintf(DRScrPort "generaledit \n")
    
83.                 close(DRScrPort)
    
84.                 sprintf(runScript,"replay %s",DRScriptFile)
    
85.                 axlShell(strcat("replay " DRScriptFile))
    
86.                 deleteFile(DRScriptFile)
    
87. );end procedure
    
88. 
    
89. 
    

复制代码

Cadence_skill

下載,這個不錯,方便

枯木雨生花

Cadence_skill 发表于 2022-10-5 13:41
下載,這個不錯,方便

怎么使用啊
是在ilinit里面添加load("setboard")吗

小凶许

:):):):):):)