DatasetPoint,DefaultUnits,FileType,ImportAsCADDataset

     转入向导1是进行多种数据转入的起始点，您可以选择转入矢量数据集或栅格数据集，当选中矢量数据集时，会有相应的矢量格式出现在"文件类型"框中，选中栅格也同样有相应的栅格格式出现。总之，下图的选择决定程序下一步的任务，下面分别对几种不同的转入进行说明。

• 转入除DGN格式以外的外部GIS矢量数据

    下面代码把除DGN以外的其他矢量格式转入为GIS图层。由于不同的GIS软件数据格式和文件的管理方式不一样，且从文件的外部不能确定文件数据集或图层的类型，SuperMap2000提供的数据转入功能准备了四种常用的GIS类型接口，分别存储不同类型的数据集。您也可以只给其中的一个或几个数据集赋名称，只转入指定类型的数据集。

DtPump.FileName = frmImportDs1.txtImportFile.Text         '转入的数据文件名
DtPump.ShowProgress = True                                '显示进程条
DtPump.ImportAsCADDataset = False                         '转入为GIS数据集
DtPump.Compressed = False                                 '转入时不进行压缩
DtPump.HasStyle = False                                   '实现无风格转入 
DtPump.DatasetLine = LTrim$(RTrim$(txtGISLine.Text))      '转入线数据集
DtPump.DatasetPoint = LTrim$(RTrim$(txtGISPoint.Text)     '转入点数据集 
DtPump.DatasetRegion = LTrim$(RTrim$(txtGISRegion.Text))  '转入面数据集
DtPump.DatasetText = LTrim$(RTrim$(txtGISText.Text))      '转入文本数据集 
DtPump.ToleranceGrain = 0.0002                            '容限

    下面代码把除DGN以外的其他矢量格式转入为CAD图层.CAD图层可以同时含有不同类型的几何对象，不需要分层，因此只给定一个数据集名称，作为当前数据源中的一个CAD数据集。

DtPump.FileName = frmImportDs1.txtImportFile.Text         '转入的数据文件名
DtPump.ShowProgress = True                                '显示进程条
DtPump.Compressed = False                                 '转入时不进行压缩
DtPump.HasStyle = False                                   '实现无风格转入 

• 转入DGN格式的外部GIS矢量数据

    DGN格式的矢量数据由于其数据结构的特殊性，转入的方法与其它矢量数据略有差异 。转入DGN格式数据的流程是接着第二幅转入GIS图层的步骤往下做的。下面的代码是根据第二幅图设定的部分属性：

DtPump.FileName = frmImportDs1.txtImportFile.Text         '转入的数据文件名
DtPump.ShowProgress = True                                '显示进程条
DtPump.ImportAsCADDataset = False                         '转入为GIS数据集
DtPump.Compressed = False                                 '转入时不进行压缩
DtPump.HasStyle = False                                   '实现无风格转入 

DtPump.DatasetCAD = IIf(.optCADLayer = True, .txtCADLayer.Text, "")
DtPump.DatasetLine = IIf(.chkLine.Value = vbChecked, .txtGISLine.Text, "")
DtPump.DatasetPoint = IIf(.chkPoint.Value = vbChecked, .txtGISPoint.Text, "")
DtPump.DatasetRegion = IIf(.chkRegion.Value = vbChecked, .txtGISRegion.Text, "")
DtPump.DatasetText = IIf(.chkText.Value = vbChecked, .txtGISText.Text, "")

• 转入栅格文件

   栅格文件转入之后保存为数据源的一个栅格数据集，它的坐标与当前数据源的坐标是不一致的，需要经过配准才能与当前的数据源匹配。这种方法是进行栅格文件数字化的准备过程，而且还可以把这个栅格数据集作为三维图形的映射数据集，增加三维的视觉效果。

DtPump.FileName = frmImportDs1.txtImportFile.Text          ' 转入文件名称
DtPump.DatasetImage = txtLayerName.Text                    ' 新的栅格数据集名称
DtPump.ShowProgress =  True                                ' 显示进度条 

DtPump.FileType = scfBMP                                   ' 转入的栅格文件类型

bResult = DtPump.Import()                                  ' 实现栅格数据的转入

• 转出SuperMap Objects 数据集

    SuperMap的数据转出没有转出矢量和栅格之分，只要设置相应的转出文件类型，对象soDataPump就会自动识别文件的类型，实现数据的转出。

objDtPump.DatasetToBeExported = cmbDataset.Text        ' 用于转出的数据集名称
objDtPump.ShowProgress = True                          ' 显示进度条
objDtPump.FileName = txtExportFileName.Text            ' 用于接受转出的文件名称 

objDtPump.DefaultUnits = scuMeter                      ' 转出单位为米

objDtPump.FileType = scfMIF                            ' 转出的文件的类型

bExportResult = objDtPump.Export()                     ' 实现数据集的转出