(XD::VAR:GetRegTrustedPathKey)获取AutoCAD当前配置文件中“受信任路径”(TrustedPat

newer

1. (defun XD::VAR:GetRegTrustedPathKey (profile / software)
   
2.   (setq software (strcase (getvar "product") t))
   
3.   (if (not (xd::var:isgstarcad))
   
4.        (list
   
5.          (strcat "HKEY_CURRENT_USER\\"
   
6.                  (vlax-product-key)
   
7.                  "\\Profiles\\"
   
8.                  profile
   
9.                  "\\Variables"
   
10.          )
    
11.          "Trustedpaths"
    
12.        )
    
13.   )
    
14. )
    

(defun XD::VAR:GetRegTrustedPathKey (profile / software) <br />   (setq software (strcase (getvar "product") t))<br />   (if (not (xd::var:isgstarcad)) <br />        (list <br />          (strcat "HKEY_CURRENT_USER\\" <br />                  (vlax-product-key)<br />                  "\\Profiles\\"<br />                  profile<br />                  "\\Variables"<br />          )<br />          "Trustedpaths"<br />        )<br />   )<br /> )<br />

1. (defun XD::VAR:ISGStarCAD ()
   
2.   (= (strcase (getvar "product")) "GSTARCAD")
   
3. )
   

(defun XD::VAR:ISGStarCAD () <br />   (= (strcase (getvar "product")) "GSTARCAD")<br /> )<br />

示例1：基本用法用法例子：

1. ;; 获取当前配置的受信任路径注册表信息
   
2. (setq current-profile (getvar "cprofile"))  ; 获取当前配置文件名
   
3. (setq reg-info (XD::VAR:GetRegTrustedPathKey current-profile))
   
4. 
   
5. ;; 输出结果
   
6. (if reg-info
   
7.   (progn
   
8.     (princ "\n注册表键路径: ") (princ (car reg-info))
   
9.     (princ "\n值名称: ") (princ (cadr reg-info))
   
10.   )
    
11.   (princ "\n当前为浩辰CAD，不支持此操作")
    
12. )
    

;; 获取当前配置的受信任路径注册表信息<br /> (setq current-profile (getvar "cprofile"))  ; 获取当前配置文件名<br /> (setq reg-info (XD::VAR:GetRegTrustedPathKey current-profile))<br /> <br /> ;; 输出结果<br /> (if reg-info<br />   (progn<br />     (princ "\n注册表键路径: ") (princ (car reg-info))<br />     (princ "\n值名称: ") (princ (cadr reg-info))<br />   )<br />   (princ "\n当前为浩辰CAD，不支持此操作")<br /> )<br />

示例2：读取受信任路径

1. ;; 读取当前CAD的受信任路径设置
   
2. (defun GetTrustedPaths (/ profile reg-info paths)
   
3.   (setq profile (getvar "cprofile"))  ; 获取当前配置
   
4.   (setq reg-info (XD::VAR:GetRegTrustedPathKey profile))
   
5.   
   
6.   (if reg-info
   
7.     (progn
   
8.       (setq paths (vl-registry-read (car reg-info) (cadr reg-info)))
   
9.       (princ (strcat "\n当前受信任路径: " (if paths paths "<未设置>")))
   
10.       paths  ; 返回路径字符串
    
11.     )
    
12.     (progn
    
13.       (princ "\n浩辰CAD使用不同机制管理受信任路径")
    
14.       nil
    
15.     )
    
16.   )
    
17. )
    

;; 读取当前CAD的受信任路径设置<br /> (defun GetTrustedPaths (/ profile reg-info paths)<br />   (setq profile (getvar "cprofile"))  ; 获取当前配置<br />   (setq reg-info (XD::VAR:GetRegTrustedPathKey profile))<br />   <br />   (if reg-info<br />     (progn<br />       (setq paths (vl-registry-read (car reg-info) (cadr reg-info)))<br />       (princ (strcat "\n当前受信任路径: " (if paths paths "<未设置>")))<br />       paths  ; 返回路径字符串<br />     )<br />     (progn<br />       (princ "\n浩辰CAD使用不同机制管理受信任路径")<br />       nil<br />     )<br />   )<br /> )<br />

;; 使用
(setq trusted-paths (GetTrustedPaths))


示例3：设置受信任路径

1. ;; 添加路径到受信任列表
   
2. (defun AddTrustedPath (new-path / profile reg-info current-paths new-paths)
   
3.   (setq profile (getvar "cprofile"))
   
4.   (setq reg-info (XD::VAR:GetRegTrustedPathKey profile))
   
5.   
   
6.   (if (not reg-info)
   
7.     (progn
   
8.       (princ "\n错误：不支持当前CAD版本")
   
9.       (return nil)
   
10.     )
    
11.   )
    
12.   
    
13.   ;; 获取现有路径
    
14.   (setq current-paths (vl-registry-read (car reg-info) (cadr reg-info)))
    
15.   
    
16.   ;; 构建新路径（分号分隔）
    
17.   (cond
    
18.     ((not current-paths)  ; 如果还没有设置
    
19.       (setq new-paths new-path)
    
20.     )
    
21.     ((not (wcmatch (strcase current-paths) (strcat "*" (strcase new-path) "*")))
    
22.       ;; 如果新路径不在现有路径中
    
23.       (setq new-paths (strcat current-paths ";" new-path))
    
24.     )
    
25.     (T  ; 路径已存在
    
26.       (setq new-paths current-paths)
    
27.     )
    
28.   )
    
29.   
    
30.   ;; 写入注册表
    
31.   (if (vl-registry-write (car reg-info) (cadr reg-info) new-paths)
    
32.     (progn
    
33.       (princ (strcat "\n已添加受信任路径: " new-path))
    
34.       T
    
35.     )
    
36.     (progn
    
37.       (princ "\n写入注册表失败")
    
38.       nil
    
39.     )
    
40.   )
    
41. )
    

;; 添加路径到受信任列表<br /> (defun AddTrustedPath (new-path / profile reg-info current-paths new-paths)<br />   (setq profile (getvar "cprofile"))<br />   (setq reg-info (XD::VAR:GetRegTrustedPathKey profile))<br />   <br />   (if (not reg-info)<br />     (progn<br />       (princ "\n错误：不支持当前CAD版本")<br />       (return nil)<br />     )<br />   )<br />   <br />   ;; 获取现有路径<br />   (setq current-paths (vl-registry-read (car reg-info) (cadr reg-info)))<br />   <br />   ;; 构建新路径（分号分隔）<br />   (cond<br />     ((not current-paths)  ; 如果还没有设置<br />       (setq new-paths new-path)<br />     )<br />     ((not (wcmatch (strcase current-paths) (strcat "*" (strcase new-path) "*")))<br />       ;; 如果新路径不在现有路径中<br />       (setq new-paths (strcat current-paths ";" new-path))<br />     )<br />     (T  ; 路径已存在<br />       (setq new-paths current-paths)<br />     )<br />   )<br />   <br />   ;; 写入注册表<br />   (if (vl-registry-write (car reg-info) (cadr reg-info) new-paths)<br />     (progn<br />       (princ (strcat "\n已添加受信任路径: " new-path))<br />       T<br />     )<br />     (progn<br />       (princ "\n写入注册表失败")<br />       nil<br />     )<br />   )<br /> )<br />

;; 使用：添加当前目录到受信任路径
(AddTrustedPath (getvar "dwgprefix"))