MATLAB 读取 ply格式点云文件并显示图像并输出为txt格式点云文件

txt格式的点云文件的优点在于可读性强且较为直观,其格式上,每个点云为一个txt文件,文件中有n行,表示点云中含有n个点,每一行含有三个浮点数表示每个点的三维坐标值。现笔者用MATLAB代码写了一个代码,其功能是将当前目录下的所有ply格式点云文件显示成图像并生成同名的txt格式点云文件。其中,笔者所用的ply格式点云文件来源于斯坦福点云数据集,文末附上斯坦福数据集的下载链接。

%函数功能   
%读取当前目录下的所有ply格式点云文件,显示图像,输出为同名称的txt格式文件

path=pwd;       %当前所在目录
file = dir(fullfile(path,'*.ply'));    %读取所有ply格式文件
filenames = {file.name}';
filelength = size(filenames,1);        %ply格式文件数

for idx = 1 : filelength               %批处理
    filedir = strcat(path, filenames(idx));
    ptcloud=pcread(filenames{idx});   %ply格式文件用pcread读取
    figure;
    pcshow(ptcloud);
    xlabel('X');
    ylabel('Y');
    zlabel('Z');
    title(filenames{idx});
    Data(:,1)= double(ptcloud.Location(1:5:end,1));   %提取所有点的三维坐标
    Data(:,2)= double(ptcloud.Location(1:5:end,2));
    Data(:,3)= double(ptcloud.Location(1:5:end,3)); 
    namesplit=strsplit(filenames{idx},'.');           %分割ply文件的名称,分成文件名与ply后缀名
    frontname=namesplit{1};                           %提取文件名,舍弃后缀名
%     fid=fopen(strcat(frontname,'.txt'),'wt');      
    eval(['fid=fopen(''',frontname,'.txt'',''wt'');']);      
    [b1,b2]=size(Data);    
    for i=1:b1                   %将二维数组Data写入txt格式文件中
        for j=1:b2-1
            fprintf(fid,'%.4f\t ',Data(i,j));           %所有坐标数据保留小数点后四位
        end
        fprintf(fid,'%.4f\n',Data(i,b2));
    end
    clear Data;                 
    fclose(fid);
end

生成的图像中选取dragon(龙)图示如下
MATLAB 读取 ply格式点云文件并显示图像并输出为txt格式点云文件_第1张图片

斯坦福数据集下载链接
https://www.cc.gatech.edu/projects/large_models/

你可能感兴趣的:(matlab)