1. 您所在位置：
  2. 网站首页
  3. 文档分类
  4. 计算机
  5. Visual Basic

VBA代码实现地图图层对象批量修改.pdfVIP

  • 3
  • 0
  • 约小于1千字
  • 约 1页
  • 2026-04-09 发布于北京
  • 举报

VBA代码实现地图图层对象批量修改.pdf

    Dimi,kAsIntegerold_penstyle,new_penstyleAsPenObjectVarAsObject

    SetMapLayerCoucheHTEditableOnleOnavaitsauté

    k=TableInfo(CoucheHT,8)nombredelignes

    Fori=1Tok

    select*fromCoucheHTwhererowid=ioublié!!

    ObjectVar=selection.obj

    old_penstyle=ObjectInfo(ObjectVar,2)

    new_penstyle=MakePen(StyleAttr(old_penstyle,

    1),StyleAttr(old_penstyle,2),57344)

    AlterObjectObjectVarInfo2,new_penstyle

    updateselectionsetobj=ObjectVarremcelobjetaltéré,mais

    selectiondevientQueryn

    closetableSelecti

    您可能关注的文档

    最近下载

    文档评论（0）

    1亿VIP精品文档

    更多 >

    相关文档

    更多 >