本帖最后由 Gu_xl 于 2012-7-28 09:49 编辑
zwqgdhl 发表于 2012-7-28 00:26 
不用输入数字,只用鼠标点击,可以作出多种选择,直观快捷!
源程序如下:
想法挺好,不过没太大实际意义!用Initget + getkword 就可以很简单的实现鼠标选择关键字:
 - (initget "1.中国 2.美国 3.英国 4.法国 5.德国 6.越南 7.荷兰 8.缅甸 9.加拿大 10.香港 11.台湾 12.印度")
- (setq kd (cond
- ((getkword "\n[1.中国/2.美国/3.英国/4.法国/5.德国/6.越南/7.荷兰/8.缅甸/9.加拿大/10.香港/11.台湾/12.印度]<1.中国>:"))
- ("1.中国")
- )
- )
|