ply点云文件转换为txt文件MATLAB

1、将ply点云文件转换为txt文件
txt格式的点云文件的优点在于可读性强且较为直观，其格式上，每个点云为一个txt文件，文件中有n行，表示点云中含有n个点，每一行含有三个浮点数表示每个点的三维坐标值。

%函数功能   
%读取当前目录下的所有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

代码2：

%读取当前目录下的所有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:end,1));   %提取所有点的三维坐标
    Data(:,2)= double(ptcloud.Location(1:end,2));
    Data(:,3)= double(ptcloud.Location(1: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,'%.6f\t ',Data(i,j));           %所有坐标数据保留小数点后六位
        end
        fprintf(fid,'%.6f\n',Data(i,b2));
    end
    clear Data;                 
    fclose(fid);
end

txt文件批量转为ply文件

%读取当前目录下的所有TXT格式点云文件,循环命名输出PLY格式文件
%ply_write.m
 
Path = pwd;% 设置数据存放的文件夹路径
files = dir(fullfile(Path,'*.txt')); % 显示文件夹下所有符合后缀名为.txt文件的完整信息
len = size(files,1);% 获取所提取数据文件的个数
 
for i=1:len
fileName = strcat(Path,files(i,1).name);
name=files(i).name;
 
aa=load(name);
cc.vertex.x=aa(:,1);
cc.vertex.y=aa(:,2);
cc.vertex.z=aa(:,3);
 
newname=strcat(num2str(i),'.ply');%循环命名
ply_write(cc,newname,'ascii')
end