php中文网 | cnphp.com

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 340|回复: 0

matlab中ply生成txt点云文件代码

[复制链接]

2571

主题

2578

帖子

9095

积分

管理员

Rank: 9Rank: 9Rank: 9

UID
1
威望
0
积分
6402
贡献
0
注册时间
2021-4-14
最后登录
2024-3-24
在线时间
652 小时
QQ
发表于 2022-7-17 20:52:14 | 显示全部楼层 |阅读模式
[mw_shl_code=applescript,true]%函数功能   
%读取当前目录下的所有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
[/mw_shl_code]





上一篇:rayleigh信道matlab实现
下一篇:算法(背包问题)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|php中文网 | cnphp.com ( 赣ICP备2021002321号-2 )51LA统计

GMT+8, 2024-3-28 19:29 , Processed in 0.181592 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2020, Tencent Cloud.

申明:本站所有资源皆搜集自网络,相关版权归版权持有人所有,如有侵权,请电邮(fiorkn@foxmail.com)告之,本站会尽快删除。

快速回复 返回顶部 返回列表