[求助]：问个小问题,怎么把数值变成桩号?

falconry

有数据12345.678,怎么弄成K12+345.678?
是不是得除一千取整保留A,再减去A乘1000取整保留B,再减去A乘1000减B保留C,再一个一个拼起来?
.............
然后,怎么拼啊???
感觉不对,哪有这么烦的,各位有什么高招?请教一下,谢谢!


还有个问题一起问了,我在用read-line读文件的时候,要一行一行的读吧,一行中有好几个数据,那么读出来的就是比方说 "1 2 3 4 5" ,再然后怎么分别拿出来用?用read和rtof都只能读出第一个1,怎么处理啊?

今天真是不适合编东西,四处碰壁,好惨~

拜一下各位过路神仙.

zxq0220

参考：程序未经调试。
[php]
(DEFUN C:ZH ()
(WHILE (SETQ TXT1 (CAR (ENTSEL "\n选择文本: ")))
(SETQ ENT (ENTGET TXT1)
             L (CDR (ASSOC 0 ENT)))
(IF (= L "TEXT") (PROGN
  (SETQ STR1 (CDR (ASSOC 1 ENT))
              STR2 (STRCAT "K" (SUBSTR STR1 1 2) "+" (SUBSTR STR1 3))
              ENT (SUBST (CONS 1 STR2) (CONS 1 STR1) ENT))
  )
(ENTMOD ENT)
))
)
(PRINC)
)
[/php]

fylinwater

试试

2. 
   
3. (defun tsp_zh2txt ( dis persion /  zhhlst dis pz ptxt p txtang ki txt dis2 DISC  disis jingdu)
   
4. 
   
5.   
   
6.   (setq jingdu persion)
   
7.   (if (< dis 0) (setq dis (abs dis)    disis t) )
   
8.   (SETQ KI (fix (/ dis 1000)))
   
9.            (setq dis2 (- DIS (* 1000 KI)))
   
10.            ;;;;;;;;;特殊要求,取整为0.5
    
11.        ;;(if teshuyaoqiu     (SETQ DIS2 (/ (ATOF (RTOS  (* DIS2 (/ 1 persion)) 2 0) ) persion)))
    
12.          
    
13. ;;DISC 加零处理！！zhanghao 99.99999 被记为0100.0
    
14.           (cond
    
15.              ((< dis2 10 )   (SETQ DISC (strcat "00" (RTOS DIS2 2 jingdu)))   )  
    
16.              ((< dis2 100 )  (SETQ DISC (strcat "0" (RTOS DIS2 2 jingdu)))   )
    
17.              (t              (SETQ DISC (strcat  (RTOS DIS2 2 jingdu)))   )
    
18.           )
    
19. 
    
20.         
    
21.           ;;;
    
22.        (if  disis
    
23.          (setq txt (strcat "-" (itoa KI ) "-" DISC))             ;;;;K 不加上
    
24.          (setq txt (strcat "" (itoa KI ) "+" DISC))
    
25.                )
    
26. 
    
27.                 txt
    
28. 
    
29.   )
    

<br /> (defun tsp_zh2txt ( dis persion /  zhhlst dis pz ptxt p txtang ki txt dis2 DISC  disis jingdu)<br /> <br />   <br />   (setq jingdu persion)<br />   (if (< dis 0) (setq dis (abs dis)    disis t) )<br />   (SETQ KI (fix (/ dis 1000)))<br />            (setq dis2 (- DIS (* 1000 KI)))<br />            ;;;;;;;;;特殊要求,取整为0.5<br />        ;;(if teshuyaoqiu     (SETQ DIS2 (/ (ATOF (RTOS  (* DIS2 (/ 1 persion)) 2 0) ) persion)))<br />           <br /> ;;DISC 加零处理！！zhanghao 99.99999 被记为0100.0<br />           (cond <br />              ((< dis2 10 )   (SETQ DISC (strcat "00" (RTOS DIS2 2 jingdu)))   )  <br />              ((< dis2 100 )  (SETQ DISC (strcat "0" (RTOS DIS2 2 jingdu)))   )<br />              (t              (SETQ DISC (strcat  (RTOS DIS2 2 jingdu)))   ) <br />           )<br /> <br />         <br />           ;;;<br />        (if  disis <br />          (setq txt (strcat "-" (itoa KI ) "-" DISC))             ;;;;K 不加上<br />          (setq txt (strcat "" (itoa KI ) "+" DISC))<br />                )<br /> <br />                 txt<br /> <br />   )<br />

xyp1964

2. [FONT=courier new]
   
3. (defun str2sub(str)
   
4.   (setq lst (read (strcat "(" str ")")))
   
5.   (foreach num lst
   
6.     (progn(princ"\n")(princ num)))
   
7.   (princ)
   
8.   )[/FONT]

[FONT=courier new]<br /> (defun str2sub(str)<br />   (setq lst (read (strcat "(" str ")")))<br />   (foreach num lst<br />     (progn(princ"\n")(princ num)))<br />   (princ)<br />   )[/FONT]

命令: (str2sub "1 2 3 4 5")

1
2
3
4
5

s2z(数值变桩号)：

xyp1964

s2z(数值变桩号)：

falconry

哈哈,全部搞定,谢谢楼上的三位达人!