用autolisp给已有的点位数据连线，但是程序写好以后线连不出来，求指导

(setq K1 0.5 K2 1.0)(defun c:lx () (setq insideLine 0) (setq f (getfiled "请输入数据文件：" "" "" 4)) (princ f) (if(setq f(open (findfile f) "r")) nil (exit) ) (command "layer" "m" "sbd" "color" "4" "" "") (setq ln (read-line f)) (while (setq ln (read-line f)) (while (vl-string-search "," ln)(setq ln (vl-string-subst " " "," ln))) (setq ln (strcat "("ln")") pt(read ln) x(nth 1 pt) y(nth 2 pt) sjlx(nth 4 pt) lxFlag(nth 5 pt) p1(list x y) ) (if (= lxFlag "1") (if (/= insideLine 0) (progn (setq insideLine 1) (cond ((= sjlx "JXL") (progn (command "layer" "m" "jxl" "color" "6" "" "L" "污水管道" "jxl" "" "")(command "pline" p1))) ((= sjlx "DL") (progn (command "layer" "m" "DL" "color" "7" "" "")(command "pline" p1))) ((= sjlx "XL") (progn (command "layer" "m" "XL" "color" "7" "" "L" "XIAOLU" "XL" "" "")(command "pline" p1))) ((= sjlx "XSGY") (progn (command "layer" "m" "XSGY" "color" "6" "" "")(command "pline" p1))) ((= sjlx "NBDL") (progn (command "layer" "m" "NBDL" "color" "2" "" "")(command "pline" p1))) ((= sjlx "HL") (progn (command "layer" "m" "HL" "color" "6" "" "L" "ZHALAN" "NBDL" "" "")(command "pline" p1))) ((= sjlx "CP") (progn (command "layer" "m" "CP" "color" "3" "" "")(command "pline" p1))) ) ) (command p1)) (if (/= insideLine 0) (progn (setq insideLine 0) (command p1 "") ) (cond ((= sjlx "DG" ) (progn (command "layer" "m" "DG" "color" "2" "" "")(command "insert" "DG.dwg" p1 1 "" 0 ))) ((= sjlx "DLJ") (progn (command "layer" "m" "DLJ" "color" "3" "" "")(command "insert" "DLJ.dwg" p1 1 "" 0))) ((= sjlx "GSJ") (progn (command "layer" "m" "GSJ" "color" "6" "" "")(command "insert" "GSJ.dwg" p1 1 "" 0))) ((= sjlx "LD") (progn (command "layer" "m" "LD" "color" "7" "" "")(command "insert" "ld.dwg" p1 1 "" 0))) ((= sjlx "QDJ") (progn (command "layer" "m" "QDJ" "color" "8" "" "")(command "insert" "QDJ.dwg" p1 1 "" 0))) ((= sjlx "RDJ") (progn (command "layer" "m" "RDJ" "color" "9" "" "")(command "insert" "RDJ.dwg" p1 1 "" 0))) ((= sjlx "WSJ") (progn (command "layer" "m" "WSJ" "color" "11" "" "")(command "insert" "WSJ.dwg" p1 1 "" 0))) ((= sjlx "XFJ") (progn (command "layer" "m" "XFJ" "color" "21" "" "")(command "insert" "XFJ.dwg" p1 1 "" 0))) ((= sjlx "YSJ") (progn (command "layer" "m" "YSJ" "color" "31" "" "")(command "insert" "YSJ.dwg" p1 1 "" 0))) ) ) ) ) (close f) (command "layer" "m" "0" "") )