格点设置Skill

donlou

格点设置

G                打开格点设置界面

G 1                将格点xy都设置为1

G 1 2        将格点x设置为1 y都设置为2


没有加提示，大家可以自己加一下

去年都没时间学习 skill 今年不知道能不能有空学习一下，我英语有点不太好，但是用Doc里的网页文档可以直接用谷歌翻译看，对学习有很大帮助

之前看到论坛有位前辈也发了这个，遂自己想着按照他的思路也搞一个

因为漏看参数传递这一章，后面又太忙就一直没搞，最近有空看看想起来写一个

下面为大家附上源码

1. procedure( Main_SetGrids(@rest Gridlist)
   
2. 
   
3.         Gridlistlen = length(Gridlist)
   
4.         ;print(atof(car(list)))
   
5. 
   
6.         cond(;cond1
   
7.                 ( Gridlistlen == 0
   
8.                         axlShell("Define Grid")
   
9.                 ) ;cond1 end
   
10.                
    
11.                 ;2
    
12.                 ( Gridlistlen == 1
    
13.                         GridsX = atof(car(list))
    
14.                         GridsY = GridsX
    
15.                         Sub_Grids()
    
16.                 )
    
17. 
    
18.                 ;3
    
19.                 ( Gridlistlen == 2
    
20.                         GridsX = atof(car(list))
    
21.                         GridsY = atof(cdr(list))
    
22.                         Sub_Grids()
    
23.                 )
    
24. 
    
25.                 ;4
    
26.                 ( Gridlistlen > 2
    
27.                         tex = "Too many parameters ! at most 2 parameters ."
    
28.                         ;Sub_ERROR(tex) 错误提示的函数，axlMsgPut(tex)
    
29.                 )
    
30.         ) ;cond end
    
31. 
    
32. )
    
33. 
    
34. procedure( Sub_Grids()
    
35. 
    
36.         grid = axlDBGridGet("TOP")
    
37.         grid->name = 'all
    
38.         grid->xGrids = GridsX
    
39.         grid->yGrids = GridsY
    
40.         axlDBGridSet(grid)
    
41. 
    
42. )

复制代码

sj460039688

厉害大佬