卸载XDRX_API.ARX方法

牢固 · 发表于 2014-10-24 15:04:34

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

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

×

本帖最后由牢固于 2014-10-24 19:23 编辑

由于新的API采用demand load方式自动加载,手动卸载API后重新启动CAD,API仍然会自动加载,如果你不想在加载API,可以自定义一个卸载函数,可以卸载当前CAD版本的XDRX_API.ARX及其注册信息:

(defun C:unloadXDRX (/ arxlst s a) (setq arxlst (arx))
(if (setq s (vl-some '(lambda (x)
(if (WCMATCH (strcase x) "XDRX`.*`.ARX")
(ARXUNLOAD x)
)
)
arxlst
)
)
(progn
;;移除支持路径
(if (setq a
(VL-REGISTRY-READ
(strcat "HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Applications\\XDRx API"
)
"Loader"
)
)
(progn
(setq a
(vl-string-subst
""
(strcase (vl-filename-directory a))
(strcase
(vla-get-SupportPath
(setq obj
(vla-get-Files
(vla-get-Preferences (vlax-get-acad-object))
)
)
)
)
)
)
(vla-put-SupportPath obj a)
)
)
(vl-registry-delete
(strcat "HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Applications\\XDRx API"
)
)
(vl-registry-delete
(strcat "HKEY_LOCAL_MACHINE\\"
(vlax-product-key)
"\\Applications\\XDRx API"
)
)
s
)
)
)

(defun C:unloadXDRX (/ arxlst s a)  (setq arxlst (arx)) 
  (if (setq s (vl-some '(lambda        (x) 
                          (if (WCMATCH (strcase x) "XDRX`.*`.ARX") 
                            (ARXUNLOAD x) 
                          ) 
                        ) 
                       arxlst 
              ) 
      ) 
    (progn 
      ;;移除支持路径 
      (if (setq        a 
                 (VL-REGISTRY-READ 
                   (strcat "HKEY_CURRENT_USER\\" 
                           (vlax-product-key) 
                           "\\Applications\\XDRx API" 
                   ) 
                   "Loader" 
                 ) 
          ) 
        (progn 
          (setq        a 
                 (vl-string-subst 
                   "" 
                   (strcase (vl-filename-directory a)) 
                   (strcase 
                     (vla-get-SupportPath 
                       (setq obj 
                              (vla-get-Files 
                                (vla-get-Preferences (vlax-get-acad-object)) 
                              ) 
                       ) 
                     ) 
                   ) 
                 ) 
          ) 
          (vla-put-SupportPath obj a) 
        ) 
      ) 
      (vl-registry-delete 
        (strcat        "HKEY_CURRENT_USER\\" 
                (vlax-product-key) 
                "\\Applications\\XDRx API" 
        ) 
      ) 
      (vl-registry-delete 
        (strcat        "HKEY_LOCAL_MACHINE\\" 
                (vlax-product-key) 
                "\\Applications\\XDRx API" 
        ) 
      ) 
      s 
    ) 
  ) 
)

kkt123 · 发表于 2015-2-26 09:07:07

;P;Pwwww;P

vlisp2012 · 发表于 2015-7-13 19:24:58

多谢版主了！

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

[教学] 卸载XDRX_API.ARX方法

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