读坐标画线问题

54525596

(defun C:ii ()
(vl-load-com)
(setq file (getfiled "请选择输入线文件" "" "TXT" 8))
(setq ff (open file "r"))

  (while (setq kzsj (read-line ff))
        (setq kz kzsj)
        (while (vl-string-search ",," kz)
               (setq kz (vl-string-subst ",nil," ",," kz))
        );while  
        (while (vl-string-search "," kz)
               (setq kz (vl-string-subst " " "," kz))
        );while  
   
       (setq kz (read (strcat "(" kz ")")))
       (setq dm (vl-princ-to-string (nth 0 kz)))

   (if (= dm "M")
     (progn
      (command "LAYER" "m" "M" "" "")
      (setq sj (read-line ff))
      (setq x sj);这句不知道为什么要赋值给变量,不然会出错
      (while (vl-string-search "," x)
            (setq x (vl-string-subst " " "," x))
      );while
     (setq x (read (strcat "(" x ")")))
     (setq rr (+ rr 1))
    (setq sj (read-line ff))
    (setq y sj)
        (while (vl-string-search "," y)
            (setq y (vl-string-subst " " "," y))
        );while
    (setq y (read (strcat "(" y ")")))
    (command "line" x y "")
);progn
);if

(if (= dm "MH")
(progn  
     (setq dmm t)
     (command "pline")
   (while dmm
   
      (setq sjj (read-line ff))
      (setq y sjj)
      (while (vl-string-search "," y)
            (setq y (vl-string-subst " " "," y))
      );while
     (setq y (read (strcat "(" y ")")))
     (setq dmm (vl-princ-to-string (nth 0 y)))
       (IF (/= dmm "MH")
        (command y)
        (progn
        (command "c")
        (command "")
        (setq dmm nil)
        )
       )
    );while
  
);progn
);if MH

  );while
(close ff)
(princ)
)


数据格式
M,直线,,,
5805.196,-1872.981,3
6411.157,-1872.981,3
M,直线,,
5112.6716,-2093.4380,5
5476.3540,-1581.4786,5
MH,多义线,,,
9058.768,-1482.657,9
9664.730,-1482.657,9
9664.730,-2007.338,9
9058.768,-2007.338,9
MH,多义线,,,
1598.148,-4901.198,0.000
4712.885,-6227.046,0.000
4115.934,-8857.714,0.000
1515.806,-10102.388,0.000
-569.714,-8181.260,0.000
-380.121,-5800.145,0.000
画不完整，数据判断，字母M，建M层画直线,字母MH建MH层画多义线闭合