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