摘要:
五、输出 xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
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
Printer.Print " "
Printer.CurrentX = 0
Printer.CurrentY = 0
MainMap.PrintMap Printer.hDC, 0, 0, MainMap.Width * 100, MainMap.Height * 10
0
Printer.NewPage
Printer.EndDoc
MainMap.Container.ScaleMode = iScaleMode
Exit Sub
PrinterError:
If Err.Number = 482 Then
On Error Resume Next
CommonDialog1.Flags = &H40
CommonDialog1.ShowPrinter
Else
MsgBox " 打印机存在错误,请更正后重试。错误号:" + (Str(Err.Number)),
, "失败"
End If
4、另存为必威现金回扣片文件
MainMap.ExportMap(App.Path+”Images”, miFormatJPEG) ‘输出当前地必威现金回扣窗口
参数设置:MainMap.ExportSelection=True ‘将选中部分以不同于其他未选中地必威现金回扣部分
形式输出