CloudCompare点云配准与误差分析保姆级教程:从手动对齐到一键统计
2026/6/13 5:15:54
在 Linux 环境下进行文件操作时,有几个基础函数非常实用。以下是相关函数的代码:
function TdBaseFileReader.NumberTodBaseNumber(Value: double; Prec, DecPrec: integer; WriteNull: boolean): string; begin if WriteNull then Result := GetBlankString(Prec + DecPrec) else begin //Write the formatted number out Result := FloatToStrF(Value, ffNumber, Prec, DecPrec); if Length(Result) < (Prec + DecPrec) then Result := GetBlankString((Prec + DecPrec) - Length(Result)) + Result; end; end; function TdBaseFileReader.StringTodBaseString(Value: string; FieldSize: integer; WriteNull: boolean): string; begin if WriteNull then Result := GetBlankString(FieldSize) else begin Result := Copy(Value, 1, FieldSize); if Length(Result) < FieldSize then Re