设置原点的源码分享

jordanli22

axlCmdRegister( "setgr" `setgr)
axlCmdRegister( "g" `setgr)

procedure( setgr(@rest point)
        if(length(point) == 1
                then
                        x = nth(0 point)
                        y =x
                else
                        x = nth(0 point)
                        y = nth(1 point)
        )
        sprintf(cmd  
        "define grid;setwindow form.grid;
        FORM grid non_etch non_etch_x_grids %s;
        FORM grid non_etch non_etch_y_grids %s;
        FORM grid all_etch all_etch_x_grids %s;
        FORM grid all_etch all_etch_y_grids %s;
        FORM grid done;"
        x y x y
        )
       
        axlShell(cmd)       
)




g 5  表示 xy都设置成5 的网格

g 5 1 表示 x设置成5  y设置成1  

以此类推

有私单请扫我微信。谢谢。