[求助] 请问怎么提示输入一字符串

yuun

一个拉管口号的程序:

2. 
   
3. (defun c:gkh(/ ds p1 pp nn old p2 p3 p4 p5)
   
4. (command "cmdecho" 0 )
   
5.     (setq old (getvar "osmode"))
   
6. (setvar "osmode" 0)   ;去掉捕捉
   
7. (setq ds(getvar "dimscale"))
   
8. (setq p1(getpoint "\n     起始点"))
   
9. (setq pp(getpoint "\n     管口的方向"))
   
10. (setq nn(getint "\n    连件的数量"))
    
11. (setq wordnum(getstring "\n   输入管口号"))
    
12. (setq wordsize(getstring "\n   输入管口尺寸"))   
    
13. (setq cd(* 12 ds))
    
14. (setq zh(* 6  ds))
    
15. (setq high(* 3.5 ds))
    
16. (setq anglee(angle p1 pp))
    
17.    (setq p2(list (car pp) (cadr pp)))
    
18.      (setq p3(polar p2 anglee zh))
    
19.       (setq p4(list (+ (car p3) zh) (cadr p3)))
    
20.       (setq p5(list (- (car p3) zh) (cadr p3)))
    
21.       (setq p6(polar p3 (/ pi 2) (* 3 ds)))
    
22.       (setq p7(polar p3 (* pi 1.5) (* 3 ds)))
    
23.       (command "line" p1 p2 "")
    
24.       (command "circle" p3 zh)
    
25.       (command "line" p4 p5 "")
    
26.       (command "text" "m" p6 high "0" wordnum "")
    
27.       (command "text" "m" p7 high "0" wordsize "")
    
28.                 (while (> nn 1)
    
29.                   (setq wordnum(getstring "\n   输入管口号"))
    
30.                   (setq wordsize(getstring "\n   输入管口尺寸"))
    
31.                    (setq p3(polar p3 anglee cd))
    
32.                   (setq p4(polar p4 anglee cd))
    
33.                    (setq p5(polar p5 anglee cd))
    
34.                   (setq p6(polar p3 (/ pi 2) (* 3 ds)))
    
35.                   (setq p7(polar p3 (* pi 1.5) (* 3 ds)))
    
36.                    (command "circle" p3 zh)
    
37.                    (command "line" p4 p5 "")
    
38.                    (command "text" "m" p6 high "0" wordnum "")
    
39.                    (command "text" "m" p7 high "0" wordsize "")         
    
40.                    (setq nn(1- nn))
    
41.                  
    
42.    (setvar "cmdecho" 1)
    
43.     (setvar "osmode" old);恢复捕捉
    
44.     (princ)
    
45.   ))
    
46. (prompt "*************** 用快捷键gkh运行 *****************")
    
47. 
    
48. (prin1)
    
49. 
    

<br /> (defun c:gkh(/ ds p1 pp nn old p2 p3 p4 p5)<br /> (command "cmdecho" 0 )<br />     (setq old (getvar "osmode"))<br /> (setvar "osmode" 0)   ;去掉捕捉<br /> (setq ds(getvar "dimscale")) <br /> (setq p1(getpoint "\n     起始点"))<br /> (setq pp(getpoint "\n     管口的方向"))<br /> (setq nn(getint "\n    连件的数量"))<br /> (setq wordnum(getstring "\n   输入管口号"))<br /> (setq wordsize(getstring "\n   输入管口尺寸"))   <br /> (setq cd(* 12 ds))<br /> (setq zh(* 6  ds))<br /> (setq high(* 3.5 ds))<br /> (setq anglee(angle p1 pp))<br />    (setq p2(list (car pp) (cadr pp)))<br />      (setq p3(polar p2 anglee zh))<br />       (setq p4(list (+ (car p3) zh) (cadr p3)))<br />       (setq p5(list (- (car p3) zh) (cadr p3)))<br />       (setq p6(polar p3 (/ pi 2) (* 3 ds)))<br />       (setq p7(polar p3 (* pi 1.5) (* 3 ds)))<br />       (command "line" p1 p2 "")<br />       (command "circle" p3 zh)<br />       (command "line" p4 p5 "")<br />       (command "text" "m" p6 high "0" wordnum "")<br />       (command "text" "m" p7 high "0" wordsize "")<br />                 (while (> nn 1)<br />                   (setq wordnum(getstring "\n   输入管口号"))<br />                   (setq wordsize(getstring "\n   输入管口尺寸"))<br />                    (setq p3(polar p3 anglee cd))<br />                   (setq p4(polar p4 anglee cd))<br />                    (setq p5(polar p5 anglee cd))<br />                   (setq p6(polar p3 (/ pi 2) (* 3 ds)))<br />                   (setq p7(polar p3 (* pi 1.5) (* 3 ds)))<br />                    (command "circle" p3 zh)<br />                    (command "line" p4 p5 "")<br />                    (command "text" "m" p6 high "0" wordnum "")<br />                    (command "text" "m" p7 high "0" wordsize "")         <br />                    (setq nn(1- nn))<br />                  <br />    (setvar "cmdecho" 1)<br />     (setvar "osmode" old);恢复捕捉 <br />     (princ)<br />   ))<br /> (prompt "*************** 用快捷键gkh运行 *****************")<br /> <br /> (prin1)<br /> <br />

运行之后,要求输入字符串时,先输入的排在后面,后输入的在前面,好象是第一个字母总是在最后,比如你想输入"woaixd"只能输入"oaixdw"不知道是为什么???怎么做才可以让它正常输入呢?请教,谢谢了.

橄榄滋味

电脑问题，并非程序问题

yuun

现在已经解决了,谢谢,
好象是后面要多加空格的问题,不然就会出现这种问题.
谢谢

area88

路过，帮忙顶上去