donlou 发表于 2024-3-9 19:41:51

格点设置Skill

格点设置

G                打开格点设置界面

G 1                将格点xy都设置为1

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


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

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

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

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

下面为大家附上源码


procedure( Main_SetGrids(@rest Gridlist)

        Gridlistlen = length(Gridlist)
        ;print(atof(car(list)))

        cond(;cond1
                ( Gridlistlen == 0
                        axlShell("Define Grid")
                ) ;cond1 end
               
                ;2
                ( Gridlistlen == 1
                        GridsX = atof(car(list))
                        GridsY = GridsX
                        Sub_Grids()
                )

                ;3
                ( Gridlistlen == 2
                        GridsX = atof(car(list))
                        GridsY = atof(cdr(list))
                        Sub_Grids()
                )

                ;4
                ( Gridlistlen > 2
                        tex = "Too many parameters ! at most 2 parameters ."
                        ;Sub_ERROR(tex) 错误提示的函数，axlMsgPut(tex)
                )
        ) ;cond end

)

procedure( Sub_Grids()

        grid = axlDBGridGet("TOP")
        grid->name = 'all
        grid->xGrids = GridsX
        grid->yGrids = GridsY
        axlDBGridSet(grid)

)

sj460039688 发表于 2024-4-25 13:26:26

厉害大佬

skill20240614 发表于 2024-8-15 14:01:20

666666666666666666
页: [1]
查看完整版本: 格点设置Skill