(defun c:test()

  (vl-load-com)

  (setq fn(getvar "savename"));;savename현제파일의 경로와 이름을 저장한다.
  (setq fd(vl-filename-directory fn));;filename에서 경로만을 취한다.(filename는 경로와 이름합치거)
  (setq fdlist(vl-directory-files fd));;지정한 경로내의 파일의 이름 리스드를 만드다.

  (setq file1(strcat fd (nth  n fdlist)))
    (princ file1)
  (princ)
  )
(vl-string->list 문자열);;문자열을 구성하는 각문자의 아스키 코드값을 리스트로 반환한다.