一个改变钻孔表模式的程序

式试1813

1. ;NCmode钻孔模式form构建  
   
2. procedure(NCmode()
   
3.      formfile = outfile("./nc.form")
   
4.         (fprintf formfile "FILE_TYPE=FORM_DEFN VERSION=2\n")
   
5.         (fprintf formfile "FORM\n")
   
6.         (fprintf formfile "FIXED\n")
   
7.         (fprintf formfile "PORT 32 46 \n")
   
8.         (fprintf formfile "HEADER \"One Click Output Tools\"\n") (fprintf formfile "\n")
   
9.         (fprintf formfile "TILE\n")
   
10.         (fprintf formfile "TEXT  \"Click to execute\"blue_a\n")
    
11.         (fprintf formfile "TLOC 4 1\n")
    
12.         (fprintf formfile "ENDTEXT \n")
    
13. 
    
14.         (fprintf formfile "TEXT  \"Only 1:\"red_a\n")
    
15.         (fprintf formfile "TLOC 1 4\n")
    
16.         (fprintf formfile "ENDTEXT \n")
    
17. 
    
18.         (fprintf formfile "FIELD nc_mode1\n")
    
19.         (fprintf formfile "FLOC 9 4\n")
    
20.         (fprintf formfile "CHECKLIST \"NC1\" \"1\"\n")
    
21.         (fprintf formfile "ENDFIELD\n")
    
22. 
    
23.         (fprintf formfile "FIELD nc_mode2\n")
    
24.         (fprintf formfile "FLOC 17 4\n")
    
25.         (fprintf formfile "CHECKLIST \"NC2\" \"1\"\n")
    
26.         (fprintf formfile "ENDFIELD\n")
    
27. 
    
28.         (fprintf formfile "\n")
    
29.         (fprintf formfile "ENDTILE\n") ;结束TILE
    
30.         (fprintf formfile "\n")
    
31.         (fprintf formfile "ENDFORM\n")  ;结束FORM
    
32.        
    
33.         close(formfile)
    
34.         setform = axlFormCreate((gensym) "nc.form" '("C" "inner") 'func1 t)
    
35.         axlFormDisplay(setform)
    
36.         axlFormColorize(setform "blue_a" 'text 'blue)
    
37.         axlFormColorize(setform "red_a" 'text 'red)
    
38.         deleteFile("nc.form")
    
39. )
    
40. ;form功能构建
    
41. procedure( (func1 dummy)
    
42. prog(nil
    
43.     case( (getq setform cuRField)
    
44. /*       
    
45.                   ("nc_mode1" NCmode_Init())
    
46.                   ("nc_mode2" NCmode_Init())
    
47.                   
    
48. */
    
49.            ("nc_mode1"
    
50.        when(setform->curValue ;这样用when后就不会出现bug
    
51.          NCmode_Init()
    
52.             ))
    
53.      ("nc_mode2"
    
54.        when(setform->curValue ;这样用when后就不会出现bug
    
55.          NCmode_Init()
    
56.             ))
    
57. 
    
58.        
    
59.           )
    
60.                   )
    
61.                   )
    
62. ;按钮或选项功能函数
    
63. defun( NCmode_Init ()
    
64. let((command1 command2)
    
65. if(axlFormGetField(setform "nc_mode1")
    
66. then
    
67. sprintf(command1 "setwindow pcb;generaledit;ncdrill legend;
    
68.                         setwindow form.nc_drilllegend;FORM nc_drilllegend layer_pair_legends YES;
    
69.                         FORM nc_drilllegend done; setwindow pcb")
    
70. axlShellPost(command1)
    
71. axlShell("Done")
    
72.   else
    
73. sprintf(command2 "setwindow pcb;generaledit;ncdrill legend;
    
74.                         setwindow form.nc_drilllegend;FORM nc_drilllegend by_layer_legends YES;
    
75.                         FORM nc_drilllegend done; setwindow pcb")
    
76. axlShellPost(command2)
    
77. axlShell("Done")
    
78. )
    
79. )
    
80. )

复制代码

式试1813

初次进入form，两个都未选择，就可以选择模式一或者模式二。一旦选择一次，选择另一个就会软件bug住了

db-_-

涉及到脚本的SKILL，最top的函数axlCmdRegister时最好选择?cmdType为general

LiuTao166462139

学习了！！！

式试1813

db-_- 发表于 2025-5-12 18:29
涉及到脚本的SKILL，最top的函数axlCmdRegister时最好选择?cmdType为general

但是我这个是这么设置的。。。

db-_-

可能你还少了一个点击坐标放下来的操作吧。

式试1813

db-_- 发表于 2025-5-13 18:25
可能你还少了一个点击坐标放下来的操作吧。

钻孔表是手动放的，我感觉这个bug是最开始模式一和模式二都是nil，所以不执行。选择其中一个，那么有个模式会变为t。但是再选择另一个的时候，前面选择的那个模式虽然会变成nil，但是在切换的瞬间，其实都是t，所以就卡住了

db-_-

你可以放个全码，帮你看看。

式试1813

db-_- 发表于 2025-5-14 09:31
你可以放个全码，帮你看看。

已贴到1L了，帮忙看看，谢谢

db-_-

改好了。

1.                 ("nc_mode1"
   
2.                     when(setform->curValue
   
3.                         NCmode_Init()
   
4.                     )
   
5.                 )
   
6.                 ("nc_mode2"
   
7.                     when(setform->curValue
   
8.                         NCmode_Init()
   
9.                     )
   
10.                 )

复制代码

式试1813

db-_- 发表于 2025-5-14 14:05
改好了。

感谢，真的可以