getstring和getpoint整合到一起

lanjqka

主要参考文献： 风之影--GRREAD函数之大杀器.
地址：[风之影][源码]grread函数之大杀器
http://bbs.mjtd.com/forum.php?mo ... 0839&fromuid=282351

2. ;;getstring和getpoint整合到一起
   
3. (defun c:test (/ KSYMDO KLG KII KU KIKB KSTR KLP)
   
4.   (setq KSYMDO T) ;循环开始条件
   
5.   (setq KSTR "") ;初始化空字符
   
6.   (while KSYMDO ;循环开关
   
7.     (setq KLG (grread t 15 0)) ;循环主句
   
8.     (setq KII (car KLG)) ;获取的类型
   
9.     (setq KU nil) ;返回值初始化nil
   
10.     (cond ((= KII 2) ;键盘输入
    
11.            (setq KIKB (cadr KLG)) ;键值
    
12.            (cond ((= KIKB 27) ;键值27=按键ESC
    
13.                   (setq KSYMDO nil) ;退出循环
    
14.                   (setq KSTR nil) ;字符串置空
    
15.                  )
    
16.                  ((= KIKB 13) ;键值13=按键回车
    
17.                   (setq KSYMDO nil) ;退出循环
    
18.                  )
    
19.                  ((= KIKB 32) ;键值32=按键空格
    
20.                   (setq KSYMDO nil) ;退出循环
    
21.                  )
    
22.                  ((and (>= KIKB 33) (<= KIKB 126)) ;键值33~126=按键字符
    
23.                   (princ (chr KIKB)) ;即时显示字符
    
24.                   (setq KSTR (strcat KSTR (chr KIKB))) ;字符成串
    
25.                  )
    
26.                  (t "\n未定义键") ;条件闭合
    
27.            )
    
28.            (setq KU KSTR) ;设返回值
    
29.           ) ;键盘输入字符
    
30.           ((= KII 3) ;左键
    
31.            (setq KLP (cadr KLG)) ;点坐标
    
32.            (setq KSYMDO nil) ;退出循环
    
33.            (setq KU KLP) ;设返回值
    
34.           )
    
35.           ((or (= KII 11) (= KII 25)) ;右键
    
36.            (setq KSYMDO nil) ;退出循环 返回值按初始nil
    
37.           )
    
38.           (t "\n请键盘输入或点取坐标.") ;条件闭合
    
39.     )
    
40.   )
    
41.   (princ "\n")
    
42.   KU ;返回值
    
43. )

;;getstring和getpoint整合到一起<br /> (defun c:test (/ KSYMDO KLG KII KU KIKB KSTR KLP)<br />   (setq KSYMDO T) ;循环开始条件<br />   (setq KSTR "") ;初始化空字符<br />   (while KSYMDO ;循环开关<br />     (setq KLG (grread t 15 0)) ;循环主句<br />     (setq KII (car KLG)) ;获取的类型<br />     (setq KU nil) ;返回值初始化nil<br />     (cond ((= KII 2) ;键盘输入<br />            (setq KIKB (cadr KLG)) ;键值<br />            (cond ((= KIKB 27) ;键值27=按键ESC<br />                   (setq KSYMDO nil) ;退出循环<br />                   (setq KSTR nil) ;字符串置空<br />                  )<br />                  ((= KIKB 13) ;键值13=按键回车<br />                   (setq KSYMDO nil) ;退出循环<br />                  )<br />                  ((= KIKB 32) ;键值32=按键空格<br />                   (setq KSYMDO nil) ;退出循环<br />                  )<br />                  ((and (>= KIKB 33) (<= KIKB 126)) ;键值33~126=按键字符<br />                   (princ (chr KIKB)) ;即时显示字符<br />                   (setq KSTR (strcat KSTR (chr KIKB))) ;字符成串<br />                  )<br />                  (t "\n未定义键") ;条件闭合<br />            )<br />            (setq KU KSTR) ;设返回值<br />           ) ;键盘输入字符<br />           ((= KII 3) ;左键<br />            (setq KLP (cadr KLG)) ;点坐标<br />            (setq KSYMDO nil) ;退出循环<br />            (setq KU KLP) ;设返回值<br />           )<br />           ((or (= KII 11) (= KII 25)) ;右键<br />            (setq KSYMDO nil) ;退出循环 返回值按初始nil<br />           )<br />           (t "\n请键盘输入或点取坐标.") ;条件闭合<br />     )<br />   )<br />   (princ "\n")<br />   KU ;返回值<br /> )

spp_wall

什么作用？  有个图更好

lanjqka

spp_wall 发表于 2013-12-17 17:59
什么作用？  有个图更好

一般的getstring、getreal、get...都有了
其实getdist就是getreal和getpoint整合到一起
这个思路可以由get的初始数据处理自己要的结果
有用的可以参考一下，现在发的这个没有什么作用，只是表明思路

自贡黄明儒

lanjqka 发表于 2013-12-18 11:46
一般的getstring、getreal、get...都有了
其实getdist就是getreal和getpoint整合到一起
这个思路可以由 ...

这个程序有意思，明天下载来学习一下，然后再作评价

alan0019hk

好東西, 謝謝無私奉獻

原地踏步

楼主没有考虑若输入字符时发现错误，用回格键重输的情况

lanjqka

原地踏步 发表于 2013-12-21 15:03
楼主没有考虑若输入字符时发现错误，用回格键重输的情况

应该有两个问题
1.删除字符可以处理

2. ((= KIKB 8) ;键值8=按键<-backspace 当然也可以重定义其它键作为删除键
   
3. (setq KSTR (if (> (strlen KSTR) 1)
   
4.                     (substr KSTR 1 (- (strlen KSTR) 1))
   
5.                     (t "")
   
6.                    )
   
7. ) ;字符减少
   
8. )

((= KIKB 8) ;键值8=按键<-backspace 当然也可以重定义其它键作为删除键<br /> (setq KSTR (if (> (strlen KSTR) 1)<br />                     (substr KSTR 1 (- (strlen KSTR) 1))<br />                     (t "")<br />                    )<br /> ) ;字符减少<br /> )

2.字符显示就不知道了
还有就是其实光标左右移动控制