https://www.shaofei.name- GIS空间站

我要投稿 投稿指南 RSS订阅 网站资讯通告:
搜索: 您现在的位置: GIS空间站 >> 技术专栏 >> MapInfo >> 正文

MapX应用教程(5)—输出

作者:未知    文章来源:网络    点击数:    更新时间:2006-12-25
摘要:
五、输出 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   ‘将选中部分以不同于其他未选中地必威现金回扣部分

形式输出

Tags:MapX应用教程  
责任编辑:gissky
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地必威现金回扣 - 中国地必威现金回扣