[求助]：请帮我看看这个程序问题出在哪里？谢谢

kgd4510

2. 
   
3. ;(defun c:test()
   
4. ;(setq file-new (getfiled "选择数据文件" "d:/" "dat" 8))
   
5. ;(setq zg (getreal "   输入字高< 0.4 >:"))
   
6. ;(if (not zg) (setq ZG 0.4))
   
7. ;(command "layer" "m" "kzd" "color" "red" "" "")
   
8. ;(setq file (open file-new "r"))
   
9. (setq zg 0.4)
   
10. (setq BMG "abc" pts nil)
    
11. (setq file(open "d://data2.txt" "r"))
    
12. (while (setq text0(read-line file))  
    
13.         (setq len (strlen text0)
    
14.      n1(vl-string-search "," text0)
    
15.      n2(vl-string-search "," text0 (+ n1 1))
    
16.      n3(vl-string-search "," text0 (+ n2 1))
    
17.      n4(vl-string-search "," text0 (+ n3 1))
    
18.      dh(substr text0 1 n1)
    
19.             bm(substr text0 (+ n1 2) (- n2 n1 1))
    
20.       y(atof(substr text0(+ n2 2) (- n3 n2 1)))
    
21.       x(atof(substr text0(+ n3 2) (- n4 n3 1)))
    
22.              h(substr text0(+ n4 2) (- len n4 1))
    
23.       pt-crd(list y x)
    
24.              pt-dh(list (+ y 0.2)  x)
    
25.       pt-gc(list (+ y 0.5) x)  
    
26.           );setq束
    
27.    
    
28.    (if (= bmg bm)
    
29.     (progn
    
30.        (setq str (vl-string-translate "," " " text0))
    
31.        (setq str (read (strcat "(" str ")")))
    
32.        (setq pts (append pts (list (cddr str))))
    
33.     );progn
    
34.     (progn
    
35.        (setq pts2 (mapcar '(lambda (e1 e2) (list (distance e1 e2) e1 e2)) (reverse (cdr (reverse pts))) (cdr pts)))
    
36.        (setq pts2 (vl-sort pts2 '(lambda (e1 e2) (> (car e1) (car e2)))))
    
37.        (command "pline")
    
38.        (mapcar 'command pts)
    
39.        (command "")
    
40.        (setq ptm1 (cadar pts2) ptm2 (caddar pts2))
    
41.        (setq ptc (mapcar '(lambda (e1 e2) (/ (+ e1 e2) 2)) ptm1 ptm2))
    
42.        (setq ang (angle ptm1 ptm2))
    
43.        (command "text" "j" "c" ptc zg (angtos ang) bmg)
    
44.        (setq pts nil str nil)
    
45.        (setq str (vl-string-translate "," " " text0))
    
46.        (setq str (read (strcat "(" str ")")))
    
47.        (setq pts (append pts (list (cddr str))))
    
48.    );progn
    
49. );if
    
50.    (setq bmg bm)
    
51. );while
    
52. ;-----------------------------------------------------------------
    
53. (setq pts2 (mapcar '(lambda (e1 e2) (list (distance e1 e2) e1 e2)) (reverse (cdr (reverse pts))) (cdr pts)))
    
54.        (setq pts2 (vl-sort pts2 '(lambda (e1 e2) (> (car e1) (car e2)))))
    
55.        (command "pline")
    
56.        (mapcar 'command pts)
    
57.        (command "")
    
58.        (setq ptm1 (cadar pts2) ptm2 (caddar pts2))
    
59.        (setq ptc (mapcar '(lambda (e1 e2) (/ (+ e1 e2) 2)) ptm1 ptm2))
    
60.        (setq ang (angle ptm1 ptm2))
    
61.        (command "text" "j" "c" ptc zg (angtos ang) bmg)
    
62. ;-----------------------------------------------------------------
    
63. (command "")
    
64. (close file)
    
65. (command "zoom" "e")
    
66. (princ)
    

<br /> ;(defun c:test()<br /> ;(setq file-new (getfiled "选择数据文件" "d:/" "dat" 8))<br /> ;(setq zg (getreal "   输入字高< 0.4 >:"))<br /> ;(if (not zg) (setq ZG 0.4))<br /> ;(command "layer" "m" "kzd" "color" "red" "" "")<br /> ;(setq file (open file-new "r"))<br /> (setq zg 0.4)<br /> (setq BMG "abc" pts nil)<br /> (setq file(open "d://data2.txt" "r"))<br /> (while (setq text0(read-line file))  <br />         (setq len (strlen text0)<br />      n1(vl-string-search "," text0)<br />      n2(vl-string-search "," text0 (+ n1 1))<br />      n3(vl-string-search "," text0 (+ n2 1))<br />      n4(vl-string-search "," text0 (+ n3 1))<br />      dh(substr text0 1 n1)<br />             bm(substr text0 (+ n1 2) (- n2 n1 1))<br />       y(atof(substr text0(+ n2 2) (- n3 n2 1)))<br />       x(atof(substr text0(+ n3 2) (- n4 n3 1)))<br />              h(substr text0(+ n4 2) (- len n4 1))<br />       pt-crd(list y x)<br />              pt-dh(list (+ y 0.2)  x)<br />       pt-gc(list (+ y 0.5) x)  <br />           );setq束<br />    <br />    (if (= bmg bm)<br />     (progn<br />        (setq str (vl-string-translate "," " " text0))<br />        (setq str (read (strcat "(" str ")")))<br />        (setq pts (append pts (list (cddr str))))<br />     );progn<br />     (progn<br />        (setq pts2 (mapcar '(lambda (e1 e2) (list (distance e1 e2) e1 e2)) (reverse (cdr (reverse pts))) (cdr pts)))<br />        (setq pts2 (vl-sort pts2 '(lambda (e1 e2) (> (car e1) (car e2)))))<br />        (command "pline")<br />        (mapcar 'command pts)<br />        (command "")<br />        (setq ptm1 (cadar pts2) ptm2 (caddar pts2))<br />        (setq ptc (mapcar '(lambda (e1 e2) (/ (+ e1 e2) 2)) ptm1 ptm2))<br />        (setq ang (angle ptm1 ptm2))<br />        (command "text" "j" "c" ptc zg (angtos ang) bmg)<br />        (setq pts nil str nil)<br />        (setq str (vl-string-translate "," " " text0))<br />        (setq str (read (strcat "(" str ")")))<br />        (setq pts (append pts (list (cddr str))))<br />    );progn<br /> );if<br />    (setq bmg bm)<br /> );while<br /> ;-----------------------------------------------------------------<br /> (setq pts2 (mapcar '(lambda (e1 e2) (list (distance e1 e2) e1 e2)) (reverse (cdr (reverse pts))) (cdr pts)))<br />        (setq pts2 (vl-sort pts2 '(lambda (e1 e2) (> (car e1) (car e2)))))<br />        (command "pline")<br />        (mapcar 'command pts)<br />        (command "")<br />        (setq ptm1 (cadar pts2) ptm2 (caddar pts2))<br />        (setq ptc (mapcar '(lambda (e1 e2) (/ (+ e1 e2) 2)) ptm1 ptm2))<br />        (setq ang (angle ptm1 ptm2))<br />        (command "text" "j" "c" ptc zg (angtos ang) bmg)<br /> ;-----------------------------------------------------------------<br /> (command "")<br /> (close file)<br /> (command "zoom" "e")<br /> (princ)<br />

这个程序是根据数据文件的数数据，连线并注记线段名称，格式如下：

1,abc,-49.265,382.975,-10.577
2,abc,-49.327,386.58,-10.407
3,abc,-56.292,386.823,-9.923
4,eee,-56.109,383.79,-10.672
5,eee,-56.06,383.707,-10.679
6,eee,-59.786,386.658,-9.742
程序根据第二项即，所有abc的连成一条线，并在最长的那线段间注记上abc；eee的连成另外一条线，且也是要注记eee.谢谢各位