[求助]：批处理形心计算程序出错的问题

aliu22

程序不稳定,多次不能完成计算.

2. 
   
3.   [FONT=courier new]
   
4. ((defun c:zx (/ se ss n entname ent rg f xxx xxy xxx1 xxy1 xxx2 xxy2 cep)
   
5. 
   
6.   (setvar "CMDECHO" 0)
   
7.   (setvar "FILEDIA" 0)
   
8.   (setvar "LUPREC" 8)                        ;(setq se (entsel "\n 请选取欲求形心的多义线："))
   
9.   (princ "\n请选取欲求形心的多义线")
   
10.   (setq se (ssget '(( 0 . "LWPOLYLINE"))))
    
11.   (setq        n   (sslength se)
    
12.         index 0
    
13.   )
    
14.   (repeat n
    
15.     (setq
    
16.       entname (ssname se index)
    
17.       ent     (entget entname)
    
18.       index   (+ 1 index)
    
19.       ss      (assoc 0 ent)
    
20.     )
    
21.     ;(if        (= "PLINE" (cdr ss))
    
22.       (progn                                ;if start
    
23.         (command "copy" se "" "0,0" "0,0")
    
24.         (command "region" se "")
    
25.         (setq rg (entget (entlast)))
    
26.         (command "massprop" "l" "" "y" "d:/ZZX.mpr")
    
27.         (command "erase" "l" "")
    
28.         (setq f (open "d:/ZZX.mpr" "r"))
    
29.         (read-line f)
    
30.         (read-line f)
    
31.         (read-line f)
    
32.         (read-line f)
    
33.         (read-line f)
    
34.         (read-line f)
    
35.         (read-line f)
    
36.         (setq xxx (read-line f))
    
37.         (setq xxy (read-line f))
    
38.         (close f)
    
39.         (setq xxx1 (substr xxx 25 20))
    
40.         (setq xxy1 (substr xxy 25 20))
    
41.         (setq xxx2 (atof xxx1))
    
42.         (setq xxy2 (atof xxy1))
    
43.         (setq cep (list xxx2 xxy2 0))
    
44.         (entmake
    
45.           (list (cons 0 "point") (cons 8 "temp") (cons 10 cep))
    
46.         )
    
47.   ;    )                                        ;if end
    
48.     )  ;progn end
    
49.   )                                        ;repeat end
    
50.   (setvar "FILEDIA" 1)
    
51.   (setvar "LUPREC" 2)
    
52.   (princ)
    
53. )  [/FONT]
    

<br />   [FONT=courier new]<br /> ((defun c:zx (/ se ss n entname ent rg f xxx xxy xxx1 xxy1 xxx2 xxy2 cep)<br /> <br />   (setvar "CMDECHO" 0)<br />   (setvar "FILEDIA" 0)<br />   (setvar "LUPREC" 8)                        ;(setq se (entsel "\n 请选取欲求形心的多义线："))<br />   (princ "\n请选取欲求形心的多义线")<br />   (setq se (ssget '(( 0 . "LWPOLYLINE"))))<br />   (setq        n   (sslength se)<br />         index 0<br />   )<br />   (repeat n<br />     (setq<br />       entname (ssname se index)<br />       ent     (entget entname)<br />       index   (+ 1 index)<br />       ss      (assoc 0 ent)<br />     )<br />     ;(if        (= "PLINE" (cdr ss))<br />       (progn                                ;if start<br />         (command "copy" se "" "0,0" "0,0")<br />         (command "region" se "")<br />         (setq rg (entget (entlast)))<br />         (command "massprop" "l" "" "y" "d:/ZZX.mpr")<br />         (command "erase" "l" "")<br />         (setq f (open "d:/ZZX.mpr" "r"))<br />         (read-line f)<br />         (read-line f)<br />         (read-line f)<br />         (read-line f)<br />         (read-line f)<br />         (read-line f)<br />         (read-line f)<br />         (setq xxx (read-line f))<br />         (setq xxy (read-line f))<br />         (close f)<br />         (setq xxx1 (substr xxx 25 20))<br />         (setq xxy1 (substr xxy 25 20))<br />         (setq xxx2 (atof xxx1))<br />         (setq xxy2 (atof xxy1))<br />         (setq cep (list xxx2 xxy2 0))<br />         (entmake<br />           (list (cons 0 "point") (cons 8 "temp") (cons 10 cep))<br />         )<br />   ;    )                                        ;if end<br />     )  ;progn end<br />   )                                        ;repeat end<br />   (setvar "FILEDIA" 1)<br />   (setvar "LUPREC" 2)<br />   (princ)<br /> )  [/FONT]<br />

请问我这个程序哪有问题,