获取贴图及IES文件

最近看了一下以前写的关于收集贴图的函数...又完善了一下,老链接:http://www.cnblogs.com/3dxy/p/3988751.html

fn saveusedmaps spath sel:#false =
(
    makedir spath
    case sel of
    (
        #true:
        (
            all_obj = selection;all_maps = #()
            for i in all_obj do
            all_maps = makeUniqueArray (join all_maps (usedmaps (i)))
        )
        #false:(all_obj = objects;all_maps = usedmaps())
    )
    for map = 1 to all_maps.count do
    (
        new_map = spath + "\\" + filenamefrompath all_maps[map]
        copyfile all_maps[map] new_map
    )
)--拷贝使用中的贴图或选中物体的贴图到指定目录

增加了个选项,用来控制是否单独收集选中模型的贴图或IES文件.