;自动智能加载autoload和autoload_user文件夹下所有arx和dll文件
;根据不同版本的ACAD智能判断并加载对应版本arx文件
(apply 
 '(lambda ( / dd ee )
    (if (or (setq dd (findfile "mytool15.vlx"))
            (setq dd (findfile "cfonts.slb"))
        )
        (progn
            (setq dd (vl-filename-directory dd))
            (foreach ee 
               (apply 'append
                 (mapcar '(lambda (x)
                            (append (mai_dos_dir (strcat dd x) "*.arx")
                                    (mai_dos_dir (strcat dd x) "*.dll")
                            )
                          )
                          (list "\\autoload\\" "\\autoload_user\\")
                 )
               )
               (mai_load_files ee)
            )
       )
   )
  )
  nil
)
                 