[求助]请各位高手帮我改下这个程序，谢谢

toply13

(defun myerr (s) 
  (if (/= s "Function cancelled")
      (if (/= s "quit/exit abord")
          (princ (strcat "\nERROR:" s))
      )
  )
  (setq *error* olderr)
  (setvar "osmode" os) 
  (setq olderr nil PT nil qarea nil os nil allarea nil adda nil)
)

;; write area value to drawing 
(defun C:CA(/ os PT STA qarea txtfile fd end os allarea allareastr qa qar num numstr adda tmp lst stri tmp str i s)

  (setq olderr *error*)
  (setq *error* myerr)
  (setq os (getvar "OSMODE"))
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 0) 

  (setq filepath (getvar "DWGPREFIX")) 
  (setq txtfile (strcat filepath "面积计算成果.txt")) 
  (setq fd (open txtfile "r"))
  (setq num 1)
  (setq allarea 0.0)

   (if (/=fd nil)
     (progn
       (WHILE (SETQ s (read-line fd));读取最后一行
          (SETQ str s)
       )
     ;;初始化
  (setq lst '()
        tmp ""
        i   1
  )
  ;;判断分割符的位置并切割      这个将最后一行文件内容分割出来的程序老是不对  请大家指点一下！！！
  (while (/= (setq stri (substr str i 1)) "")
      (if (= stri ",")
        (progn
   (setq lst (cons tmp lst)
         tmp ""
   )
   (setq tmp (strcat tmp stri))
        )
      )
      (setq i (1+ i))
  )
   (setq lst (reverse (cons tmp lst)))
  (if (>= (length lst) 3)
      (setq num (atof (nth 0 lst)))
      (setq allarea (atof (nth 2 lst)))
  )                
     )  
  )

  (setq fd (open txtfile "a")) 
  
    
  (command"-layer""m""面积计算""c""1""""")

  (setq end "begin")
  (setq STA nil)
 
(while(/= end "Y")
  
  (setq os (getvar "osmode")) 
 
  (setq PT (getpoint "\nPick the point:"))
  (setq STA (BPOLY PT))

  (if (= STA nil) (exit)) 
  (COMMAND "AREA" "E" "L")
  (setq qarea (RTOS (getvar "AREA") 2 3)) 
  (setq allarea (+(atof qarea) allarea))
  (setq allareastr(rtos allarea 2 3))
  (setq qa (strcat "第" (itoa num) "块面积为:" qarea))
  (COMMAND "TEXT" PT "" "" qa) 
 
  (setq adda (strcat "共提取" (itoa num) "块总面积为:" allareastr))

  (prompt (strcat "\n" qa " " adda))

  (setq numstr(itoa num)) 

;;写入文件

 
  (write-line (strcat numstr","qarea","allareastr) fd) 
  (close fd)

  (setq num (1+ num))
  (setq end(getstring "\n结束面积提取(Y/N):"))
  (setq end(strcase end))
 
  (setvar "osmode" os)
 )
   

  (setvar "OSMODE" OS)
  (Setvar "CMDECHO" 1)
  (setq *error* olderr)
  (princ) 

)

附文本文件的内容格式为：

1，24.452，24.452

2，5.651，30.103

.......

....

15，45.365，5648.412

。。。

行数不定

Andyhon

读取最后一行
15，45.365，5648.412

这个将最后一行文件内容分割出来的程序老是不对
您要得出的是什么?

toply13

回楼上， 其实我的程序的目的是如果存在 面积计算成果.txt 这个文件，那么就把文件的最后一行读出，以进行继续累加。

例如最后一行是15，45.365，5648.412   （其中15是指原来已经提取到第15块的面积，45.365指第15块的面积，5648.412指提取的15块区域面积的累加值）

我希望能得到num＝15（这样可以接着原先的序号），allarea＝5648.412（接原来已提取的总面积继续累加 直到提取结束）

请大家帮忙看下   谢谢

ZZXXQQ

注意：文件打开后要关闭。下面是改过的程序，试试看。再试试。

3. (defun C:CA(/ os PT STA qarea txtfile fd end os allarea allareastr qa qar num numstr
4. adda tmp lst stri tmp str i s)
5. (setq olderr *error*)
6. (setq *error* myerr)
7. (setq os (getvar "OSMODE"))
8. (setvar "CMDECHO" 0)
9. (setvar "OSMODE" 0)
10. (setq filepath (getvar "DWGPREFIX"))
11. (setq txtfile (strcat filepath "面积计算成果.txt"))
12. (if (findfile txtfile) (progn
13.   (setq fd (open txtfile "r"))
14.   (WHILE (SETQ s (read-line fd));读取最后一行
15.    (SETQ str s)
16.   )
17.   (close fd)
18.      ;;初始化
19.   (setq lst '() tmp "" i 1)
20.   ;;判断分割符的位置并切割      这个将最后一行文件内容分割出来的程序老是不对  请大家指点一下！！！
21.   (repeat (strlen str)
22.    (if (= (setq stri (substr str i 1)) ",")
23.     (setq lst (cons tmp lst) tmp "")
24.     (setq tmp (strcat tmp stri))
25.    )
26.    (setq i (1+ i))
27.   )
28.   (setq lst (reverse (cons tmp lst)))
29.   (if (>= (length lst) 3)
30.    (setq num (atoi (car lst)) allarea (atof (last lst)))
31.   )
32.   (setq fd (open txtfile "a"))
33. )
34.   (setq num 1 allarea 0.0 fd (open txtfile "w"))
35. )
36. (command "-layer" "m" "面积计算" "c" "1" "" "")
37. (setq end "begin")
38. (setq STA nil)
39. (while (/= end "Y")
40.   (setq os (getvar "osmode"))
41.   (setq PT (getpoint "\nPick the point:"))
42.   (setq STA (BPOLY PT))
43.   (if (/= STA nil) (progn
44.    (COMMAND "AREA" "E" "L")
45.    (setq num (1+ num))
46.    (setq qarea (RTOS (getvar "AREA") 2 3))
47.    (setq allarea (+ (atof qarea) allarea))
48.    (setq allareastr (rtos allarea 2 3))
49.    (setq qa (strcat "第" (itoa num) "块面积为:" qarea))
50.    (COMMAND "TEXT" PT "" "" qa)
51.    (setq adda (strcat "共提取" (itoa num) "块总面积为:" allareastr))
52.    (prompt (strcat "\n" qa " " adda))
53.    (setq numstr(itoa num))
54.    (write-line (strcat numstr "," qarea "," allareastr) fd)  ;;写入文件
55.    (setq end (strcase (getstring "\n结束面积提取(Y/N):")))
56.    (setvar "osmode" os)
57.   ))
58. )
59. (close fd)
60. (setvar "OSMODE" OS)
61. (Setvar "CMDECHO" 1)
62. (setq *error* olderr)
63. (princ)
64. )

(defun C:CA(/ os PT STA qarea txtfile fd end os allarea allareastr qa qar num numstr adda tmp lst stri tmp str i s) (setq olderr *error*) (setq *error* myerr) (setq os (getvar "OSMODE")) (setvar "CMDECHO" 0) (setvar "OSMODE" 0) (setq filepath (getvar "DWGPREFIX")) (setq txtfile (strcat filepath "面积计算成果.txt")) (if (findfile txtfile) (progn   (setq fd (open txtfile "r"))   (WHILE (SETQ s (read-line fd));读取最后一行    (SETQ str s)   )   (close fd)      ;;初始化   (setq lst '() tmp "" i 1)   ;;判断分割符的位置并切割      这个将最后一行文件内容分割出来的程序老是不对  请大家指点一下！！！   (repeat (strlen str)    (if (= (setq stri (substr str i 1)) ",")     (setq lst (cons tmp lst) tmp "")     (setq tmp (strcat tmp stri))    )    (setq i (1+ i))   )   (setq lst (reverse (cons tmp lst)))   (if (>= (length lst) 3)    (setq num (atoi (car lst)) allarea (atof (last lst)))   )   (setq fd (open txtfile "a")) )   (setq num 1 allarea 0.0 fd (open txtfile "w")) ) (command "-layer" "m" "面积计算" "c" "1" "" "") (setq end "begin") (setq STA nil) (while (/= end "Y")   (setq os (getvar "osmode"))   (setq PT (getpoint "\nPick the point:"))   (setq STA (BPOLY PT))   (if (/= STA nil) (progn    (COMMAND "AREA" "E" "L")    (setq num (1+ num))    (setq qarea (RTOS (getvar "AREA") 2 3))    (setq allarea (+ (atof qarea) allarea))    (setq allareastr (rtos allarea 2 3))    (setq qa (strcat "第" (itoa num) "块面积为:" qarea))    (COMMAND "TEXT" PT "" "" qa)    (setq adda (strcat "共提取" (itoa num) "块总面积为:" allareastr))    (prompt (strcat "\n" qa " " adda))    (setq numstr(itoa num))    (write-line (strcat numstr "," qarea "," allareastr) fd)  ;;写入文件    (setq end (strcase (getstring "\n结束面积提取(Y/N):")))    (setvar "osmode" os)   )) ) (close fd) (setvar "OSMODE" OS) (Setvar "CMDECHO" 1) (setq *error* olderr) (princ) )

toply13

版主，我运行了你修改的程序，还是有问题 ，提示参数错误

主要还是中间的切割文件内容的程序有错误.

  麻烦版主以及各位高手再帮忙看看。。。

ZZXXQQ

四楼已改