XD::PATH:to-list

marting · 发表于 2025-4-17 15:55:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 marting 于 2025-4-17 19:06 编辑

;;; ------------------------------------------------------------------------
;;; 函数名称：XD::PATH:TO-LIST
;;;
;;; 【功能说明】
;;; 将一个由分号分隔的路径字符串转换为路径列表，格式统一。
;;; 主要功能包括：
;;; - 将路径中的正斜杠 (/) 替换为反斜杠 (\)
;;; - 确保每个路径项都以 "\" 结尾
;;; - 移除开头和结尾多余的分号；
;;; - 将当前图纸所在目录 (由 getvar "dwgprefix" 获取) 添加到列表开头（如果尚未包含）
;;;
;;; 【参数说明】
;;; A - 字符串类型，表示一个或多个路径，路径之间使用分号 `;` 分隔。
;;;
;;; 【返回值】
;;; 返回一个列表（List），包含处理后标准格式的路径字符串，每个路径都以 "\\" 结尾。
;;;
;;; 【依赖函数】
;;; - XSTRCASE：字符串大小写统一函数
;;; - XD::STR:REPLACE：字符串替换函数
;;; - XD::STR:TO-LIST：按分隔符分割字符串为列表
;;;
;;; 【使用示例】
;;; 假设当前图纸目录为 "D:\\Projects\\Current\\"
;;; 调用如下：
;;; (XD::PATH:TO-LIST "C:/A;D:/B\\;E:/C")
;;; 返回结果：
;;; ("D:\\Projects\\Current\\" "C:\\A\\" "D:\\B\\" "E:\\C\\")
;;;
;;; 【备注】
;;; - 本函数常用于路径环境变量解析、自定义搜索路径整理等场景。
;;; - 自动去重当前图纸路径，防止重复添加。
;;; ------------------------------------------------------------------------
;;; ------------------------------------------------------------------------
;;; 函数名称：XD::PATH:to-list
;;;
;;; 【功能说明】
;;; 将一个由分号分隔的路径字符串转换为路径列表，格式统一。
;;; 主要功能包括：
;;; - 将路径中的正斜杠 (/) 替换为反斜杠 (\)
;;; - 确保每个路径项都以 "\" 结尾
;;; - 移除开头和结尾多余的分号；
;;; - 将当前图纸所在目录 (由 getvar "dwgprefix" 获取) 添加到列表开头（如果尚未包含）
;;;
;;; 【参数说明】
;;; a - 字符串类型，表示一个或多个路径，路径之间使用分号 `;` 分隔。
;;;
;;; 【返回值】
;;; 返回一个列表（list），包含处理后标准格式的路径字符串，每个路径都以 "\\" 结尾。
;;;
;;; 【依赖函数】
;;; - xstrcase：字符串大小写统一函数
;;; - XD::STR:replace：字符串替换函数
;;; - XD::STR:to-list：按分隔符分割字符串为列表
;;;
;;; 【使用示例】
;;; 假设当前图纸目录为 "D:\\Projects\\Current\\"
;;; 调用如下：
;;; (XD::PATH:to-list "C:/A;D:/B\\;E:/C")
;;; 返回结果：
;;; ("D:\\Projects\\Current\\" "C:\\A\\" "D:\\B\\" "E:\\C\\")
;;;
;;; 【备注】
;;; - 本函数常用于路径环境变量解析、自定义搜索路径整理等场景。
;;; - 自动去重当前图纸路径，防止重复添加。
;;; ------------------------------------------------------------------------
(defun XD::PATH:to-list (a / lst n)
(if a
(progn
(setq a (xstrcase a)) ; 统一大小写
(setq a (XD::STR:replace "/" "\\" a)) ; 替换斜杠
;; 保证路径字符串前后带有分号
(if (not (equal ";" (substr a 1 1)))
(setq a (strcat ";" a))
)
(if (not (equal ";" (substr a (strlen a) 1)))
(setq a (strcat a ";"))
)
;; 分割成列表
(setq lst (XD::STR:to-list ";" a))
;; 去掉开头和结尾的空字符串
(if (equal (car lst) "")
(setq lst (cdr lst))
)
(if (equal (last lst) "")
(setq lst (reverse (cdr (reverse lst))))
)
;; 确保每个路径以 "\" 结尾
(setq n 0)
(repeat (length lst)
(setq a (nth n lst))
(if (not (equal "\\" (substr a (strlen a) 1)))
(progn
(setq a (strcat a "\\"))
(setq lst (subst a (nth n lst) lst))
)
)
(setq n (+ n 1))
)
;; 添加当前图纸路径
(setq a (getvar "dwgprefix"))
(setq a (xstrcase a))
(setq a (XD::STR:replace "/" "\\" a))
(if (not (member a lst))
(setq lst (append (list a) lst))
)
)
)
lst
)

;;; ------------------------------------------------------------------------ 
;;; 函数名称：XD::PATH:TO-LIST 
;;; 
;;; 【功能说明】 
;;;     将一个由分号分隔的路径字符串转换为路径列表，格式统一。 
;;;     主要功能包括： 
;;;         - 将路径中的正斜杠 (/) 替换为反斜杠 (\) 
;;;         - 确保每个路径项都以 "\" 结尾 
;;;         - 移除开头和结尾多余的分号； 
;;;         - 将当前图纸所在目录 (由 getvar "dwgprefix" 获取) 添加到列表开头（如果尚未包含） 
;;; 
;;; 【参数说明】 
;;;     A - 字符串类型，表示一个或多个路径，路径之间使用分号 `;` 分隔。 
;;; 
;;; 【返回值】 
;;;     返回一个列表（List），包含处理后标准格式的路径字符串，每个路径都以 "\\" 结尾。 
;;; 
;;; 【依赖函数】 
;;;     - XSTRCASE：字符串大小写统一函数 
;;;     - XD::STR:REPLACE：字符串替换函数 
;;;     - XD::STR:TO-LIST：按分隔符分割字符串为列表 
;;; 
;;; 【使用示例】 
;;;     假设当前图纸目录为 "D:\\Projects\\Current\\" 
;;;     调用如下： 
;;;         (XD::PATH:TO-LIST "C:/A;D:/B\\;E:/C") 
;;;     返回结果： 
;;;         ("D:\\Projects\\Current\\" "C:\\A\\" "D:\\B\\" "E:\\C\\") 
;;; 
;;; 【备注】 
;;;     - 本函数常用于路径环境变量解析、自定义搜索路径整理等场景。 
;;;     - 自动去重当前图纸路径，防止重复添加。 
;;; ------------------------------------------------------------------------ 
 
 
;;; ------------------------------------------------------------------------ 
;;; 函数名称：XD::PATH:to-list 
;;; 
;;; 【功能说明】 
;;;     将一个由分号分隔的路径字符串转换为路径列表，格式统一。 
;;;     主要功能包括： 
;;;         - 将路径中的正斜杠 (/) 替换为反斜杠 (\) 
;;;         - 确保每个路径项都以 "\" 结尾 
;;;         - 移除开头和结尾多余的分号； 
;;;         - 将当前图纸所在目录 (由 getvar "dwgprefix" 获取) 添加到列表开头（如果尚未包含） 
;;; 
;;; 【参数说明】 
;;;     a - 字符串类型，表示一个或多个路径，路径之间使用分号 `;` 分隔。 
;;; 
;;; 【返回值】 
;;;     返回一个列表（list），包含处理后标准格式的路径字符串，每个路径都以 "\\" 结尾。 
;;; 
;;; 【依赖函数】 
;;;     - xstrcase：字符串大小写统一函数 
;;;     - XD::STR:replace：字符串替换函数 
;;;     - XD::STR:to-list：按分隔符分割字符串为列表 
;;; 
;;; 【使用示例】 
;;;     假设当前图纸目录为 "D:\\Projects\\Current\\" 
;;;     调用如下： 
;;;         (XD::PATH:to-list "C:/A;D:/B\\;E:/C") 
;;;     返回结果： 
;;;         ("D:\\Projects\\Current\\" "C:\\A\\" "D:\\B\\" "E:\\C\\") 
;;; 
;;; 【备注】 
;;;     - 本函数常用于路径环境变量解析、自定义搜索路径整理等场景。 
;;;     - 自动去重当前图纸路径，防止重复添加。 
;;; ------------------------------------------------------------------------ 
 
(defun XD::PATH:to-list (a / lst n) 
  (if a 
    (progn 
      (setq a (xstrcase a)) ; 统一大小写 
      (setq a (XD::STR:replace "/" "\\" a)) ; 替换斜杠 
 
      ;; 保证路径字符串前后带有分号 
      (if (not (equal ";" (substr a 1 1))) 
        (setq a (strcat ";" a)) 
      ) 
      (if (not (equal ";" (substr a (strlen a) 1))) 
        (setq a (strcat a ";")) 
      ) 
 
      ;; 分割成列表 
      (setq lst (XD::STR:to-list ";" a)) 
 
      ;; 去掉开头和结尾的空字符串 
      (if (equal (car lst) "") 
        (setq lst (cdr lst)) 
      ) 
      (if (equal (last lst) "") 
        (setq lst (reverse (cdr (reverse lst)))) 
      ) 
 
      ;; 确保每个路径以 "\" 结尾 
      (setq n 0) 
      (repeat (length lst) 
        (setq a (nth n lst)) 
        (if (not (equal "\\" (substr a (strlen a) 1))) 
          (progn 
            (setq a (strcat a "\\")) 
            (setq lst (subst a (nth n lst) lst)) 
          ) 
        ) 
        (setq n (+ n 1)) 
      ) 
 
      ;; 添加当前图纸路径 
      (setq a (getvar "dwgprefix")) 
      (setq a (xstrcase a)) 
      (setq a (XD::STR:replace "/" "\\" a)) 
      (if (not (member a lst)) 
        (setq lst (append (list a) lst)) 
      ) 
    ) 
  ) 
  lst 
)

账号		自动登录	找回密码
密码			立即注册

[字符串] XD::PATH:to-list

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块