如何判断dll和ARX是否已加载

TPG辉

加载arx(MAPCAR '(LAMBDA (X)
                    (IF (NOT (MEMBER X (MAPCAR 'STRCASE (ARX))))
                      (ARXLOAD (FINDFILE X))
                    )
                  )
           (LIST ARX)
         )
加载dll
(MAPCAR '(LAMBDA (X)
                    (IF (NOT (MEMBER X (MAPCAR 'STRCASE (ARX))))
                      (vl-cmdf ".netload" X)
                    )
                  )
           (LIST DLL1 DLL2 DLL3 DLL4 DLL5 DLL6)
         )
程序没写注册表，这样在lisp里面，每次新窗口都会执行lsp所以想写加一段，判断是否已加载ARX和DLL，这样就不用执行请各位大神帮忙

jun353835273

如果dll内部有命令，可以检查是否为空，如果为空就加载。
  (ARXLOAD (FINDFILE X))这样写不太好，如果没有找到文件会报错