mapgis6.7二次开发vc6_demo 之五(输出VCT函数之线图层)

最新推荐文章于 2012-05-08 10:03:10 发布

hsg77

最新推荐文章于 2012-05-08 10:03:10 发布

阅读量1.3k

点赞数

分类专栏：开发语言 C/C++ GIS开发 MapGIS 文章标签： winapi 图形 null 工作 function date

本文链接：https://blog.csdn.net/hsg77/article/details/7482150

版权

开发语言 C/C++ 同时被 2 个专栏收录

87 篇文章 0 订阅

订阅专栏

GIS开发 MapGIS

13 篇文章 1 订阅

订阅专栏

mapgis6.7二次开发vc6_demo 之五(输出VCT函数之线图层)

//
//
//输出vct线坐标 version=1, topo=0 
//vp:hsg
//create date:2012-04-20
//
//
#include "stdafx.h"
#include "resource.h"
#include <math.h>
#include "win_area.h"
#include "win_oper.h"
#include "map_out.h"
#include "demo.h"
//-------------------------------------------------------
extern char* AppTitle;                    //应用程序名称
extern AREA_HINST    AHInst;
extern HWND         MainWnd;              //主窗口句柄
extern HWND         GrpWnd;               //图形窗口句柄
//-------------------------------------------------------
//------------------------------------------------------------
//define function style  OutVctLineBeginEnd.cpp
/*
bool OutVctLineBeginEnd(short *ptALst);    //输出vct线坐标
*/
//------------------------------------------------------------
//输出vct线坐标 OK 
bool OutVctLineBeginEnd(short *ptALst)
{
    bool rbc = false;
	short ai;
    char* GeoVctType;
    char* FeatClassName;
    char* FeatureCode;
    char* FeatureName;

    //this.ShowMsg(this, "正在输出线坐标信息");
    //输出线坐标
    long i,j,ln;
	D_DOT *lxy; 

	long  len;
	double   x,y;			
	char* tmp;		
	char* Lfilename;
	short LayerType;

    f_WriteLine("LineBegin");
	for(int k=1;k<=ptALst[0];k++)
	{   //获取一个工作区
			ai=ptALst[k];
			//获取图层类型
			LayerType=_GetAreaType(ptALst[k]);
			if(LayerType==LIN)
			{  //输出vct线要素几何图形
				//获取线层总个数
				_GetLinNum(ai,&i,&ln);
				//获取工作区文件名
				Lfilename=_GetAreaFileName(ai);
				//获取图层类型
				GeoVctType=GetGeoVctType(ai); 
				//
				FeatClassName =getfilenameNoExt_lc(Lfilename,"\\");;

				FeatureCode =FeatClassName;//a3u(GeoVctType,"_",i2cp(1));
				FeatureName =FeatClassName;//FeatureCode;

				if (GeoVctType == "Line")
				{
					long lineNum = 0;
					LIN_INFO inf;
					for(i=1;i<ln;i++)  //线要素总个数
					{
						//short WINAPI _GetLin(short ai,long li,D_DOT **dat,long *len,LIN_INFO *inf,short *dim=NULL);
						if(_GetLin(ai,i,&lxy,&len,&inf,NULL)<=0)
						{
							 continue;
						}           
						lineNum += 1;
						f_WriteLine(l2cp(lineNum));      //第一行序号(目标标识码)
						f_WriteLine(FeatureCode);        //第二行要素代码
						f_WriteLine(FeatureName);        //第三行要素名称
						f_WriteLine("1");                //第四行几何要素段类型(1=折线,2=圆弧,3=圆,4=椭圆,5=光滑曲线,6=B样条曲线,100=间接坐标)

						if(len>0)
						{
							f_WriteLine(l2cp(len));       //第五行点数
							for(j=0;j<len;j++)      //线节点j++,lxy++
							{					 
								//获取地理坐标
								x=lxy[j].x; 
								y=lxy[j].y;
								//写入到文本中
								char* x_s=d2cp(x);
								char* y_s=d2cp(y);								
								tmp=a2u(x_s,",");
								tmp=a2u(tmp,y_s);	
								//
								f_WriteLine(tmp);  //第五行点坐标
							}
						}
						else
						{   //几何对象为空时
							f_WriteLine("0");      //第五行点数                        
						}
						if (lineNum % 100 == 0)
						{
							f_FlushFile();
						}                
					} //end for            
				}//end if 
			}//end LIN
	} //end for
    f_WriteLine("LineEnd");    
    f_WriteLine("");  
	f_FlushFile();	
    //this.ShowMsg(this, "完成输出线坐标信息");
    rbc = true;
    return rbc;
}
//

--the--end---