XD::UnLoadAPI 卸载当前XDRX_API

牢固 · 发表于 2014-10-24 15:09:01

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

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

×

本帖最后由 newer 于 2017-5-3 01:25 编辑

(defun XD::unloadAPI (/ 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\\XDSoft"
)
"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\\XDSoft"
)
)
(vl-registry-delete
(strcat "HKEY_LOCAL_MACHINE\\"
(vlax-product-key)
"\\Applications\\XDSoft"
)
)
s
)
)
)

(defun XD::unloadAPI (/ 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\\XDSoft" 
                   ) 
                   "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\\XDSoft" 
        ) 
      ) 
      (vl-registry-delete 
        (strcat        "HKEY_LOCAL_MACHINE\\" 
                (vlax-product-key) 
                "\\Applications\\XDSoft" 
        ) 
      ) 
      s 
    ) 
  ) 
)

393130910 · 发表于 2016-6-8 12:05:16

如何卸载XD API。请问具体如何操作啊。麻烦了

st788796 · 发表于 2016-6-8 22:45:24

如果安装了晓东工具箱，请使用卸载程序，API 是在 HKLM 不是 HKCU

brucehc · 发表于 2016-8-22 22:40:02

很好很强大

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

[系统] XD::UnLoadAPI 卸载当前XDRX_API

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