3S基础知识：MapX应用教程—输出

　　输出

　　1、属性的输出 输出到EXCEL表：

　　For I=1 to Flds.Count

　　Lyr.KeyFields=Flds.Item(i).Name

　　Excel(1,I).Cell=Ftr.KeyValue

　　Next

　　2、复制、粘贴

　　Global CopyFtrs AS MapXlib.Features

　　Set lyr=mainmap.Layers.item(LayerName)

　　Set Ftrs=Lyr.Selection.Clone ‘复制选中集合

　　‘复制

　　For I=1 to Ftrs.Count

　　CopyFtrs.add Ftrs.Item(I)

　　Next

　　‘粘贴(图形)

　　Set lyr_1=mainmap.Layers.item(LayerName_1)

　　Mainmap.AutoRedraw=False

　　Lyr_1.Editabled=True

　　For J=1 to CopyFtrs.Count

　　Lyr_1.AddFeature CopyFtrs.Item(J)

　　Next

　　Lyr_1.Refresh

　　Mainmap.AutoRedraw=True

　　Lyr_1.Editabled=False

　　3、地图的打印

　　Dim iScaleMode As Integer

　　iScaleMode = MainMap.Container.ScaleMode

　　MainMap.Container.ScaleMode = 6

　　On Error GoTo PrinterError