[求助]：tch.mnu的修改问题

mrbean13

tch.mnu中有如下命令行
[o右　下o]^P^C^C(damnu3) ^P
反映到屏幕菜单上点击可循环变换“右下”、“右上”等
其原理是什么？
为什么我修改tch.mnu时一旦移动了该命令行位置就菜单中该命令就失效了，菜单也错位了？

XDSoft

最初由 mrbean13 发布
[B]tch.mnu中有如下命令行
[o右　下o]^P^C^C(damnu3) ^P
反映到屏幕菜单上点击可循环变换“右下”、“右上”等
其原理是什么？
为什么我修改tch.mnu时一旦移动了该命令行位置就菜单中该命令就失效了，菜单也错位了?.. [/B]

上面这个菜单项每点一次，运行下函数damnu3，所以关键都在那里了。
下面是DAMNU3的代码：

2. 
   
3. [FONT=courier new]
   
4. (defun damnu3 ()
   
5.   (grtext 21
   
6.           (cond ((= 8 _dimzbfx) (setq _dimzbfx 1) "o右XY下o")
   
7.                 ((= 1 _dimzbfx) (setq _dimzbfx 2) "o左XY下o")
   
8.                 ((= 2 _dimzbfx) (setq _dimzbfx 3) "o右XY上o")
   
9.                 ((= 3 _dimzbfx) (setq _dimzbfx 4) "o左XY上o")
   
10.                 ((= 4 _dimzbfx) (setq _dimzbfx 5) "o右AB下o")
    
11.                 ((= 5 _dimzbfx) (setq _dimzbfx 6) "o左AB下o")
    
12.                 ((= 6 _dimzbfx) (setq _dimzbfx 7) "o右AB上o")
    
13.                 ((= 7 _dimzbfx) (setq _dimzbfx 8) "o左AB上o")
    
14.           )
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    
19. (defun damnu4 ()
    
20.   (grtext 21
    
21.           (cond ((= 1 _dimzbfx) "o右XY下o")
    
22.                 ((= 2 _dimzbfx) "o左XY下o")
    
23.                 ((= 3 _dimzbfx) "o右XY上o")
    
24.                 ((= 4 _dimzbfx) "o左XY上o")
    
25.                 ((= 5 _dimzbfx) "o右AB下o")
    
26.                 ((= 6 _dimzbfx) "o左AB下o")
    
27.                 ((= 7 _dimzbfx) "o右AB上o")
    
28.                 ((= 8 _dimzbfx) "o左AB上o")
    
29.           )
    
30.   )
    
31.   (princ)
    
32. )
    
33. [/FONT]

<br /> [FONT=courier new]<br /> (defun damnu3 ()<br />   (grtext 21<br />           (cond ((= 8 _dimzbfx) (setq _dimzbfx 1) "o右XY下o")<br />                 ((= 1 _dimzbfx) (setq _dimzbfx 2) "o左XY下o")<br />                 ((= 2 _dimzbfx) (setq _dimzbfx 3) "o右XY上o")<br />                 ((= 3 _dimzbfx) (setq _dimzbfx 4) "o左XY上o")<br />                 ((= 4 _dimzbfx) (setq _dimzbfx 5) "o右AB下o")<br />                 ((= 5 _dimzbfx) (setq _dimzbfx 6) "o左AB下o")<br />                 ((= 6 _dimzbfx) (setq _dimzbfx 7) "o右AB上o")<br />                 ((= 7 _dimzbfx) (setq _dimzbfx 8) "o左AB上o")<br />           )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun damnu4 ()<br />   (grtext 21<br />           (cond ((= 1 _dimzbfx) "o右XY下o")<br />                 ((= 2 _dimzbfx) "o左XY下o")<br />                 ((= 3 _dimzbfx) "o右XY上o")<br />                 ((= 4 _dimzbfx) "o左XY上o")<br />                 ((= 5 _dimzbfx) "o右AB下o")<br />                 ((= 6 _dimzbfx) "o左AB下o")<br />                 ((= 7 _dimzbfx) "o右AB上o")<br />                 ((= 8 _dimzbfx) "o左AB上o")<br />           )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

上面函数是用grtext往菜单上动态写文字的，根据你每次点的不同，变量的_dimzbfx会变，因此菜单内容也变了，上面grtext函数是往菜单第21个位置写，所以，如果你移动了菜单，那么位置肯定就窜了。

朋友们也可以用上面的函数技巧，应用到自己的程序中去。