求助：initget动态做法？

zhangcan0515

看到别人的做法了，自己只会普通initget的做法。麻烦请会的老师给讲解一下。在此说声谢谢

xsso

刚好前段时间研究了一下

2. (tt '("1" "kw" "w1"))
   
3. (defun tt (ls / aa nn nt st st1)
   
4.   (setq  nn (length ls))
   
5.   (setq nt 1)
   
6.   (setq st "")
   
7.   (setq st1 "[")
   
8.   (repeat nn
   
9.     (setq st (strcat st " " (itoa nt)))
   
10.     (setq st1 (strcat st1 (nth (1- nt) ls)"("(itoa nt) ")/"))
    
11.     (setq nt (1+ nt))
    
12.   )
    
13.   (setq st1 (strcat  st1"]"));此处最好判断一下 st1 是否为"/"结尾
    
14.   (initget st)
    
15.   (setq aa(getkword st1))
    
16. )

(tt '("1" "kw" "w1"))<br /> (defun tt (ls / aa nn nt st st1)<br />   (setq  nn (length ls))<br />   (setq nt 1)<br />   (setq st "")<br />   (setq st1 "[")<br />   (repeat nn<br />     (setq st (strcat st " " (itoa nt)))<br />     (setq st1 (strcat st1 (nth (1- nt) ls)"("(itoa nt) ")/"))<br />     (setq nt (1+ nt))<br />   )<br />   (setq st1 (strcat  st1"]"));此处最好判断一下 st1 是否为"/"结尾<br />   (initget st)<br />   (setq aa(getkword st1))<br /> )

zhangcan0515

xsso 发表于 2022-9-1 09:22
刚好前段时间研究了一下

谢谢老师指点 ，老师我试试。有问题了在回复

Dani1988

第一个是initget出来的菜单，第二个显示的是右键出来的菜单吧

zhangcan0515

Dani1988 发表于 2022-9-1 09:48
第一个是initget出来的菜单，第二个显示的是右键出来的菜单吧

第一个是我自己做的，第二个是别人做的

Dani1988

zhangcan0515 发表于 2022-9-1 10:00
第一个是我自己做的，第二个是别人做的

不是同样的方法出来的

zhangcan0515

xsso 发表于 2022-8-31 16:56
刚好前段时间研究了一下

请问老师，'("1" "kw" "w1")里边的数字能不能是一个链接txt下自己定义的数字

xsso

zhangcan0515 发表于 2022-9-11 16:05
请问老师，'("1" "kw" "w1")里边的数字能不能是一个链接txt下自己定义的数字

可以，你将TXT的内容读出来

zhangcan0515

xsso 发表于 2022-9-13 16:39
可以，你将TXT的内容读出来

谢谢老师的帮助，已经搞明白了

13816600495

为啥我这边不弹出这个菜单，只能键盘输入关键字。