;;让Autoload支持vlx fas
;;加入自定义的自动加载中
(defun ai_ffile	(app)
  (or (findfile (strcat app ".lsp"))
      (findfile (strcat app ".exp"))
      (findfile (strcat app ".exe"))
      (findfile (strcat app ".arx"))
      (findfile (strcat app ".fas"))
      (findfile (strcat app ".vlx"))
      (findfile app)
  )
)
(defun ai_nofile (filename)
  (princ
    (strcat "\n在支持路径中未找到 "
	    filename
	    "(.lsp/.exe/.arx/.fas/.vlx) 文件."
    )
  )
  (princ "\n检查你的 Support 路径并再次运行.")
  (princ)
)