论坛 › 开源函数库 › XD::UnLoadAPI 卸载当前XDRX_API

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

XD::UnLoadAPI 卸载当前XDRX_API

本帖最后由 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
    )
)
)

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

很好很强大

蟹岛蟹岛 发表于 2026-2-7 19:31:01

学习~~~~~~~~~~~~~~

蟹岛蟹岛 发表于 2026-2-8 17:40:23

试了下，好像要XD::unloadAPI改为C:unloadAPI才可以。并且CAD重启之后还是会自动加载XDRX,和安装包内给的@uninstall.lsp效果一样。是否是需要始终加载这个插件才可以不自动加载XDRX?

查看完整版本: XD::UnLoadAPI 卸载当前XDRX_API