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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值