XD::Load 加载ARX,LSP,FAS,VLX应用程序

XDSoft · 发表于 2014-10-24 15:37:53

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

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

×

;|
参数：
$name --- 应用程序名 (arx,lsp,vlx,fas) 或者应用程序名字符串表
flag --- T , 加载到所有文档 nil , 加载到当前文档，该参数只对LISP应用程序有效。
返回值：
无
说明：不重复加载
|;
(defun XD::Load ($name flag / el) ; 判断一个ARX程序是否加载
(if (= (type $name) 'STR)
(setq el (list $name))
(setq el $name)
)
(foreach n el
(cond
((wcmatch (strcase n) "*.ARX")
(if (not (findfile n))
(progn
(princ (strcat "\n无法加载 " n "!"))
(exit)
)
)
(if (not (member (strcase n t) (mapcar
'(lambda (x)
(strcase x t)
)
(arx)
)
)
)
(arxload n)
)
)
((or
(wcmatch (strcase n) "*.LSP")
(wcmatch (strcase n) "*.FAS")
) ; 判断一个LSP程序是否加载
(if (and
(not (member n _xdatoml))
(if flag
(vl-load-all n)
(load n)
)
)
(setq _xdatoml (cons n _xdatoml))
)
)
((wcmatch (strcase n) "*.VLX")
(if (not (vl-vlx-loaded-p n))
(if flag
(vl-load-all n)
(load n)
)
)
)
(t
)
)
)
(princ)
)

;| 
参数： 
   $name ---  应用程序名 (arx,lsp,vlx,fas) 或者 应用程序名字符串表 
   flag  ---  T , 加载到所有文档  nil , 加载到当前文档 ，该参数只对LISP应用程序有效。 
返回值： 
   无 
说明： 不重复加载 
|; 
(defun XD::Load ($name flag / el)      ; 判断一个ARX程序是否加载 
  (if (= (type $name) 'STR) 
    (setq el (list $name)) 
    (setq el $name) 
  ) 
  (foreach n el 
    (cond 
      ((wcmatch (strcase n) "*.ARX") 
        (if (not (findfile n)) 
          (progn 
            (princ (strcat "\n无法加载 " n "!")) 
            (exit) 
          ) 
        ) 
        (if (not (member (strcase n t) (mapcar 
                                         '(lambda (x) 
                                            (strcase x t) 
                                          ) 
                                         (arx) 
                                       ) 
                 ) 
            ) 
          (arxload n) 
        ) 
      ) 
      ((or 
         (wcmatch (strcase n) "*.LSP") 
         (wcmatch (strcase n) "*.FAS") 
       )                               ; 判断一个LSP程序是否加载 
        (if (and 
              (not (member n _xdatoml)) 
              (if flag 
                (vl-load-all n) 
                (load n) 
              ) 
            ) 
          (setq _xdatoml (cons n _xdatoml)) 
        ) 
      ) 
      ((wcmatch (strcase n) "*.VLX") 
        (if (not (vl-vlx-loaded-p n)) 
          (if flag 
            (vl-load-all n) 
            (load n) 
          ) 
        ) 
      ) 
      (t 
      ) 
    ) 
  ) 
  (princ) 
)

lifei18 · 发表于 2014-10-24 16:42:49

好程序啊,可惜打包的函数库下不了

lifei18 · 发表于 2014-10-24 16:43:33

非常好的程序

jyzas · 发表于 2014-10-26 18:38:09

不错的函数，支持:)

kkt123 · 发表于 2015-2-23 19:17:50

不错的函数，支持;P;P

969421005 · 发表于 2015-3-28 16:14:18

支持厉害啊

jetcan@21cn.com · 发表于 2015-11-28 15:52:24

支持，一同进步

reyun · 发表于 2016-2-24 09:08:03

学习学习，谢谢楼主！

huangpc27 · 发表于 2020-7-16 11:35:36

好用的程序代码

wx_i500B4dE · 发表于 2020-8-30 12:03:52

不错这个函数挺有用的

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

[选择集] XD::Load 加载ARX,LSP,FAS,VLX应用程序

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