dxfout.m

利用ＭＡＴＬＡＢ实现了对测量中的平面网

function kk=dxfout
global net ed dd sd dd1 pn x0 y0 m1 m2 m3 x y uw0 ms pp e d sid md g f dir ni si ma s t az
global ai bi fi
global pathname net_name b_datafile;
fit3=fopen(strcat(pathname,net_name,'.dxf'),'wt');
if(fit3==-1)
    msgbox('Input File or Path is not correct','Warning','warn');
    return;
end          
kk=0;
title   = 'DXF文件参数设置    ';
prompt011  = {'误差椭圆比例：' ,'字体大小：','方向值注记距离点的距离：'};
lines=1;
d11= {'150','10','30'};
c12 = inputdlg(prompt011,title,lines,d11);
d12=str2num(str2mat(c12));
scale=d12(1);
groesse=d12(2);
offset=d12(3);
layer(fit3);
fprintf(fit3,'0\n'); fprintf(fit3,'SECTION\n');
fprintf(fit3,'2\n'); fprintf(fit3,'ENTITIES\n');
for i=1:sd
    point_text(fit3,'POINT',groesse,num2str(pn(i)),y(i),x(i))
end
for i=1:m1
    drawline(fit3,'SIDELINE',y(e(i)),x(e(i)),0,y(d(i)),x(d(i)),0);
    sidevalue(fit3,'SIDE',groesse,sid(i),y(e(i)),x(e(i)),y(d(i)),x(d(i)));
end
for i=1:m2
    drawline(fit3,'DIRECTIONLINE',y(g(i)),x(g(i)),0,y(f(i)),x(f(i)),0);
    direction=dir(i);
    directionvalue(fit3,'DIRECTION',groesse,direction,y(g(i)),x(g(i)),y(f(i)),x(f(i)),offset);
end
for i=1:m3
    plot([y(s(i)) y(t(i))],[x(s(i)) x(t(i))],'y');
end
for i=1:dd
    plot_ellipse(fit3,y(i+ed),x(i+ed),ai(i),bi(i),fi(i),scale);
end
fprintf(fit3,'0\n'); fprintf(fit3,'ENDSEC\n');
fprintf(fit3,'0\n'); fprintf(fit3,'EOF\n');
fclose(fit3);
return