如何将rgl生成的3D模型导出到PowerPoint并保留原有颜色

我目前正在使用rgl包制作分子模型，需要将成品3D模型导入Microsoft PowerPoint。rgl原生支持导出.ply格式文件，PowerPoint官方也标明支持该格式，原本预期操作会非常简单。

初始问题 #

最初使用的导出代码如下，导出的PLY文件导入PowerPoint后颜色完全丢失，仅显示白色模型，更换球体颜色也无法解决该问题：

library(rgl)
open3d()
spheres3d(x = 0, y = 0, z = 0, radius = .32, col = "#45caff")
writePLY("Nitrogen.ply",format="ascii",withColors = T) # 错误导出代码

问题排查 #

调整导出参数后，可以导出在Blender中正常显示颜色的PLY文件，正确的rgl导出代码如下：

writePLY("Nitrogen.ply",withColor=T)

但该文件导入PowerPoint时仍然丢失颜色，经核实，核心原因为PowerPoint不支持PLY格式的顶点颜色属性。

已验证的可行解决流程 #

• 将rgl导出的带色PLY文件导入Blender
• 在Blender中将模型导出为.glb格式
• 将导出的glb文件直接导入PowerPoint，即可保留完整颜色效果

后续说明 #

发布该问题后已收到社区帮助，目前问题已解决，现将问题开放以征集更优方案，无需经过Blender中转的批量处理方法会更适合分子模型批量生成的场景。

内容的提问来源于stack exchange，提问作者Loki