[LISP函数]：获取代表路径的字符串，并按需要添加尾随的斜杠

whp5924

获取代表路径的字符串，并按需要添加尾随的斜杠
(defun I:Path
(Path                    ; string to check
) ;_ closes variable declare
(vl-string-translate     ; translate characters:
  "/"                     ; forward slash
  "\\"                    ; to a backslash
  (if (member             ; if trailing backslash
       (substr Path (strlen Path))
       '("/" "\\")
      ) ;_ closes member
   Path                   ; then return path as-is
   (strcat Path "\\")     ; else return path with backslash
  ) ;_ closes if
) ;_ closes vl-string-translate
) ;_ closes defun I:Path

eva.liu

樓主怎么用啊﹖可否介紹一下﹖