pline 안에 있는 텍스트를 파일로 추출하는 리습질문

제가 가지고 있는 리습중에 pline으로 영역을 만들고 지금 가지고 있는 리습을 쓰면 텍스트파일로 만들어지면서 그 안에 텍스트들이 저장이 됐었는데 지금은 뭐가 문제인지 저장이 안되더군요…
이게 있어야 작업이 편한데 ㅠㅠ

(defun c:VertexFile ( / File oFile )
 (if (setq File (getfiled "Create a Text File" "C:\" "txt" 9))
  (progn
   (setvar "osmode" 0)
   (initget 7)
   (setq tHeight (getdist "n문자 높이 값 입력: "))
   
   (setq pLlst (ssget))
   (setq sw 0)
   
   (repeat (sslength pLlst)
    (setq selPl (ssname pLlst sw))

    (if (= "LWPOLYLINE" (cdr (assoc 0 (entget selPl))))
     (progn
      (setq plNmae (strcat "Line_" (itoa (+ 1 sw))))

      (setq oFile (open (strcat File plNmae ".txt") "W"))
      (setq fPt (cdr (assoc 10 (entget selPl))))
      (command "text" "j" "mc" fpt "250″ "0″ (itoa (+ 1 sw)) "")
      (foreach x (entget selPl)
       (if (= 10 (car x))
        (progn
         (setq xVal (rtos (cadr  x) 2 4)
            yVal (rtos (caddr x) 2 4)
         )
         (setq wLine (strcat xVal "t" yVal))
         (write-line wLine oFile)
        )
       )
      )
      ;;;(write-line plNmae oFile)
      

      (close oFile)
     );;;(progn
    );;;(if (= "LWPOLYLINE" (cdr (assoc 0 selPl)))
    (setq sw (1+ sw))
   );;;(repeat (sslength pLlst)
   
   
  );;;(progn
 );;;if (setq File (getfiled "Create a Text File" "c:\" "txt" 9))
 (princ)
)

(defun c:TextFile ( / File oFile )
 (if (setq File (getfiled "Create a Text File" "C:\" "txt" 9))
  (progn
   (setvar "osmode" 0)
    
   (setq selCont (car (entsel "nSelect a Contour : ")))
   (setq ptLst nil
      sw    0
   )
   
   (if (= "LWPOLYLINE" (cdr (assoc 0 (entget selCont))))
    (progn
     (foreach x (entget selCont)
      (if (= 10 (car x))
       (progn
        (setq xVal (cadr  x)
           yVal (caddr x)
        )
        (setq ptVal (list xVal yVal))
        (setq ptLst (append ptLst (list ptVal)))
       )
      )
     );;;(foreach x (entget selPl)
     (setq selLst (ssget "_CP" ptLst '((0 . "TEXT"))))
     (if (/= selLst nil)
      (progn
       (setq oFile (open File "W"))
       (repeat (sslength selLst)
        (setq selText (ssname selLst sw))
        (setq fpt     (cdr (assoc 10 (entget selText))))
        (setq strName (cdr (assoc 1  (entget selText))))
        ;;;(command "point" fpt)
        (setq wLine (strcat strName "t"
                (rtos (car  fpt) 2 4) "t"
             (rtos (cadr fpt) 2 4)
           )
        )
        (write-line wLine oFile)
        (setq sw (1+ sw))
       );;;(repeat (sslength selLst)
       (close oFile)
      );;;    (progn
     );;;        (if (/= selLst nil)
     
     ;;;
     ;;;
     ;;;
     
    );;;        (progn
   );;;            (if (= "LWPOLYLINE" (cdr (assoc 0 (entget selCont))))
   
  );;;                (progn
 );;;                    (setq File (getfiled "Create a Text File" "C:\" "txt" 9))
 (princ)
)





뭐가 문제일까요..
제발 살려주세요 ㅠㅠ