请大家帮看看

fgzgg

请大家看看 如果（点号和坐标数据）是用逗号分开的

这个程序怎么改

展绘碎部点2 (点号和坐标数据）(defun c:sbd2( / fp pf sxb reco dh pt n s ii)
    (command "layer" "m" "000" "c" 7 "" "")
    (setq pf (getfiled "指定坐标数据文件" "" "txt" 2))
    (if pf (progn
    (setq fp (open pf "r"))
    (setq reco (read-line fp) ii 1)
       (setq sxb (flz reco))
    (while sxb
           (setq sxb (flz reco) n (length sxb))
        (if (= n 4)
                  (progn                          
         (setq dh (nth 0 sxb) pt (list (atof (nth 1 sxb)) (atof (nth 2 sxb)) (atof (nth 3 sxb))))
        (command "circle" pt blc)                (command "point" pt)
        (command "text" pt (* 2 blc) 0 dh "")                 )
                 (cwts))
        (setq reco (read-line fp) ii (1+ ii))
                (setq sxb (flz reco))
                
                

    )
    (close fp)
    ))
 (princ))