平行拉伸PLine直线段

sicky111

支持输入距离才好。

暮雨寒阳

学习一下aa

q3_2006

看看方法有什么不同...

iLisp

grread 可以获取键盘输入流，把这些 chr 保存下来即可

1. (defun c:tt (/ tf code str prmpt spa)
   
2.   (setq        tf    t
   
3.         str   ""
   
4.         prmpt "Pick Point or Input: "
   
5.         spa   " "
   
6.   )
   
7.   (princ (strcat "\n" prmpt))
   
8.   (while tf
   
9.     (setq code (grread t 4 0))
   
10.     (cond
    
11.       ((= (car code) 5)
    
12.        (setq tf t)
    
13.       )
    
14.       ((= (car code) 3)
    
15.        (princ "\n")
    
16.        (princ (cadr code))
    
17.        (setq tf nil)
    
18.       )
    
19.       ((= (car code) 2)
    
20.        (cond
    
21.          ((= (cadr code) 8)
    
22.           (if (= str "")
    
23.             (princ (strcat "\r" prmpt spa))
    
24.             (princ (strcat "\r" prmpt (setq str (substr str 1 (1- (strlen str)))) spa))
    
25.           )
    
26.          )
    
27.          ((= (cadr code) 13) ;_enter
    
28.           (setq tf nil)
    
29.          )
    
30.          (t
    
31.           (setq str (strcat str (chr (cadr code))))
    
32.           (princ (strcat "\r" prmpt str))
    
33.          )
    
34.        )
    
35.       )
    
36.       (t (setq tf nil))
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )
    

(defun c:tt (/ tf code str prmpt spa)<br />   (setq        tf    t<br />         str   ""<br />         prmpt "Pick Point or Input: "<br />         spa   " "<br />   )<br />   (princ (strcat "\n" prmpt))<br />   (while tf<br />     (setq code (grread t 4 0))<br />     (cond<br />       ((= (car code) 5)<br />        (setq tf t)<br />       )<br />       ((= (car code) 3)<br />        (princ "\n")<br />        (princ (cadr code))<br />        (setq tf nil)<br />       )<br />       ((= (car code) 2)<br />        (cond<br />          ((= (cadr code) 8)<br />           (if (= str "")<br />             (princ (strcat "\r" prmpt spa))<br />             (princ (strcat "\r" prmpt (setq str (substr str 1 (1- (strlen str)))) spa))<br />           )<br />          )<br />          ((= (cadr code) 13) ;_enter<br />           (setq tf nil)<br />          )<br />          (t<br />           (setq str (strcat str (chr (cadr code))))<br />           (princ (strcat "\r" prmpt str))<br />          )<br />        )<br />       )<br />       (t (setq tf nil))<br />     )<br />   )<br />   (princ)<br /> )<br />

明天你好

iLisp 发表于 2015-6-7 09:47
grread 可以获取键盘输入流，把这些 chr 保存下来即可

大侠还是改改一楼的代码吧，让它支持下输入距离

lijiao

好想法

hzj268

路过顶贴。。。。。。。。。。。。。

yf793826152

好像很厉害阳仔啊   支持啊

cable2004

看看看看看看看看看看看看

viphappy

回复看看好东西！

leiming123456

感谢LZ无私分享，先看看再说...

liyamg

好像很厉害阳仔啊   支持啊

dingwqing

回复，下载，学习！！！！！

819534890

很好，学习一下

yoyoho

学习！！！！！！！！！！