blob: e902ce5da90633e3062477c11d7010c76c5408d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
// s : 2014.06.22
// e : 14.09.07
function Out=Openobj(Fnm)
global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN
OBJFMT= "%7.4f";
NPOINT= 0;
NNORM=0;
OBJSCALE=1;
OBJFIGNO=0;
OBJJOIN=0; // 140906
if Fnm =='' then
Wfile='default';
else
// errcatch(4,"continue"); //17.02.18from
// Tmp=FID;
// if iserror(4) then
// FID=[];
// errclear(4);
// end;
// if FID~=[] then
// mclose(FID);
// FID=[];
// end
// errcatch(4,"kill"); //17.02.18upto
if length(mtlb_findstr(Fnm,".obj"))==0
Fnm=Fnm+".obj";
end;
FID=mopen(Fnm,'w');
Wfile=Fnm;
Out=Wfile;
end
endfunction
|