第8章：控制网网图的绘制.docVIP

第八章：控制网网图的绘制 1 第一节：利用MATLAB的绘图语句绘制网图 1 一、网形的绘制 1 二、误差椭圆的绘制 3 第二节： Auto CAD DXF文件数据格式介绍 4 一、Auto CAD的dxf文件介绍及其数据结构： 4 二、DXF文件的数据结构 5 第三节：图层设置、画点、画线以及注记程序 7 一、建立图层的dxf文件函数layer.m 7 二、画一个点并注记点名的dxf文件的函数point_text.m 8 三、编写画一条线的dxf文件的函数drawline.m 9 四、边长和方向观测值注记函数 10 五、输出误差椭圆的DXF文件 11 六、输出控制网网图的DXF文件 12 第八章：控制网网图的绘制 在控制网设计及平差计算时，往往需要对控制网的网形及点位精度有一个概括的、感性的认识，在技术总结报告中也应该包含有控制网网形等内容，因此绘制一幅包含点位、观测值、网形以及误差椭圆等信息的控制网网图是非常必要的,也是在实际工程中上交资料必不可少的内容。 网形可以利用MATLAB在屏幕上绘制，但是为了便于图形的编辑、修改和出图，可以采用Auto CAD文件绘制控制网的网图，本章首先介绍利用MATLAB的绘图语句在屏幕上绘制点、连线、误差椭圆以及注记点名，然后介绍一种运用高级语言将控制网中有关数据转化为Auto CAD图形交换文件(dxf)的方法，进而分层绘制控制网中的点位、网形、误差椭圆以及注记点号、边长与方向观测值等。其中首先介绍了Auto CAD 的DXF文件及其数据结构，然后介绍了采用Matlab语言编写DXF文件中画点、画线、画误差椭圆以及观测值注记的函数，最后根据写出的程序对实测的控制网绘制了网图，在网图中设置了不同的图层，可以根据需要进行出图。 第一节：利用MATLAB的绘图语句绘制网图 一、网形的绘制 调用函数netzbild可以进行控制网网图的绘制。由于网形图与误差椭圆绘制在同一个图形上，因此必须对误差椭圆进行放大，在如下的程序中使用了inputdlg对话框输入语句，其中缺省的放大倍数为100。在该程序中使用了ed dd pn m1 m2 m3 x y e d sid g f dir s t az c ai bi fi变量，其意义与前面的叙述相同。对绘制的网图有放大和缩小功能，即点击鼠标左键放大图形，点击右键缩小图形，利用MATLAB菜单本身的功能可以将该图形输出为各种图形文件格式。 function kk=netzbild global ed dd pn m1 m2 m3 x y e d sid g f dir s t az c ai bi fi kk=0; title1 = 误差椭圆比例 ; prompt011 = {请输入误差椭圆比例}; lines= 1; d11= {100}; c12 = inputdlg(prompt011,title1,lines,d11);%输入误差椭圆比例对话框 scale=str2num(str2mat(c12)); hold off title( 控制网网图 ); xlabel(Y坐标); ylabel(X坐标); plot(y(1:ed),x(1:ed),k^) hold on; plot(y((ed+1):end),x((ed+1):end),k.) for i=1:ed+dd%写点名 text(y(i)+3,x(i)+3,num2str(pn(i))); end for i=1:m1%画边长连线 plot([y(e(i)) y(d(i))],[x(e(i)) x(d(i))],r); end for i=1:m2%画方向连线 plot([y(g(i)) y(f(i))],[x(g(i)) x(f(i))],b); direction=rad_dms(dir(i)); end for i=1:m3%画方位角连线 plot([y(s(i)) y(t(i))],[x(s(i)) x(t(i))],y); end for i=1:dd%画误差椭圆 fe(i)=fi(i)*pi/180.; plot(y(i+ed)+(ai(i)*cos(0:0.01:2*pi)*sin(fe(i))+bi(i)*sin(0:0.01:2*pi)*cos(fe(i)))*scale,x(i+ed)+(ai(i)*cos(0:0.01:2*pi)*cos(fe(i))-bi(i)*sin(0:0.01:2*pi)*sin(fe(i)))*scale,r); end axis equal;%使得X,Y比例一致 zoom on;%利用鼠标左键放大图形，右键缩小图形 return 二、误差椭圆的绘制 无论多么复杂的图形，其基本单元还是点