解决放置BGA去耦电容的烦恼

丫丫的灰机

运行命令后不能缩放界面，希望能改进一下

markgoob

; 帮版主修正了部分码源，怕有人有设自己的env快捷键 这边就移除了相关代码 (快捷键qp)

1. axlCmdRegister("qp" 'Quick_place ?cmdType "general")
   
2. 
   
3. procedure(Quick_place()
   
4. 
   
5. formPath = "./snap.form"
   
6. pform = outfile( formPath "w")
   
7. 
   
8. fprintf(pform "FILE_TYPE=FORM_DEFN VERSION=2\n")
   
9. fprintf(pform "FORM AUTOGREYTEXT\n")
   
10. fprintf(pform "FIXED\n")
    
11. fprintf(pform "PORT 35 10\n")
    
12. fprintf(pform strcat("HEADER " """ "Quick Place" ""\n"))
    
13. fprintf(pform "TILE\n")
    
14. 
    
15. fprintf(pform "FIELD sel\n")
    
16. fprintf(pform "FLOC 2 1\n")
    
17. fprintf(pform strcat("MENUBUTTON " """ "1.Select Area" """ " 14 4\n"))
    
18. fprintf(pform "ENDFIELD\n")
    
19. 
    
20. fprintf(pform "FIELD pic\n")
    
21. fprintf(pform "FLOC 18 1\n")
    
22. fprintf(pform strcat("MENUBUTTON " """ "2.Place each" """ " 14 4\n"))
    
23. fprintf(pform "ENDFIELD\n")
    
24. 
    
25. ; fprintf(pform strcat("TEXT " """ "Snap to Pin: " ""\n"))
    
26. ; fprintf(pform "TLOC 2 5\n")
    
27. ; fprintf(pform "ENDTEXT\n")
    
28. 
    
29. ; fprintf(pform strcat("TEXT " """ "Pick symbols:  " ""\n"))
    
30. ; fprintf(pform "TLOC 2 7\n")
    
31. ; fprintf(pform "ENDTEXT\n")
    
32. 
    
33. fprintf(pform "ENDTILE\n")
    
34. fprintf(pform "ENDFORM\n")  
    
35. close(pform)
    
36. 
    
37. snp = axlFormCreate( (gensym) "snap.form" '(e inner) 'snpCB t nil)
    
38. axlFormDisplay(snp)
    
39. deleteFile(formPath)
    
40. 
    
41. formove = nil
    
42. 
    
43. );defun
    
44. 
    
45. defun(snpCB (snp)
    
46.   func_list = axlGetFunckey(nil)
    
47.   func_list = append( axlGetAlias(nil) func_list)
    
48.   case(snp->curField
    
49. ("sel" axlUIWPrint(snp "select box") SelectSym());case 1
    
50. ("pic" if(!formove then
    
51. 
    
52.    axlUIWPrint(snp "Select symbols by box")
    
53.    
    
54.     else
    
55.        
    
56.    if(I != 0 then
    
57.    
    
58.    box = axlLastPick(nil)
    
59.    lastbox = axlWindowBoxGet()
    
60.    
    
61.    )
    
62.    place_each()
    
63.   );if
    
64. );case 2
    
65.   );case
    
66.   
    
67.    ;when(snp->doneState == 3
    
68. ;axlSetFunckey("F11" "zoom in" t);吸附命令
    
69. ;axlSetFunckey("F12" "zoom out" t);放置命令
    
70.   ;);when
    
71. 
    
72. );defun
    
73. 
    
74. defun(SelectSym ()
    
75.   I = 0;
    
76.   axlClearSelSet()
    
77.   axlSetFindFilter(?enabled list( "noall" "symbols" ) ?onButtons list( "noall" "symbols"))
    
78. 
    
79.   ;axlSelect(?groupMode nil ?prompt nil)
    
80.   axlAddSelectBox()
    
81.   syms = axlGetSelSet()
    
82.   formove = nil
    
83.   foreach(db syms
    
84. formove = append1(formove db->refdes)
    
85.   );foreach
    
86.   axlUIWPrint(snp sprintf(nil "%d symbols are ready for placing!" length(syms)))
    
87. );defun
    
88. 
    
89. 
    
90. defun(place_each ()
    
91. prog(()
    
92.   unless(formove return("select box first"))
    
93.   if(I != 0 then
    
94.   
    
95.   box = axlLastPick(nil)
    
96.   lastbox = axlWindowBoxGet()
    
97.   
    
98.   )
    
99.   active = car(formove)
    
100.   formove = cdr(formove)
     
101.   if(active then
     
102.    axlShell("move")
     
103.    axlShell("setwindow form.mini")
     
104.    axlShell("FORM mini rotate_point Sym Pin # ")
     
105.    axlShell("setwindow form.find")
     
106.    axlShell("FORM find name_type Symbol (or Pin)")
     
107.    axlShell(sprintf(nil "FORM find find_name %s" active))
     
108.    axlShell("setwindow pcb")
     
109.    
     
110.    when(I != 0  
     
111.   axlWindowBoxSet(lastbox)  
     
112.    );when  
     
113.   
     
114.    I++;
     
115.    axlUIWPrint(snp sprintf(nil "%d/%d symbols statue!" I ,length(syms)))
     
116.   );if
     
117. );prog
     
118. );  defun
     
119. 
     
120. defun(snap ()
     
121.   cursor = axlCursorGet(nil)
     
122.   axlShell(sprintf(nil "prepopup %L" cursor))
     
123.   axlShell("pop dyn_option_select 'Snap pick to@:@Pin'")
     
124.   
     
125. );defun

复制代码