PROSAGA码农传奇-visio-Visio加载项查找几何行的名称

<div class =“post-text”itemprop =“text”>
  <P>
    几何部分具有索引而不是命名行，因此您必须检查
    <a href="https://docs.microsoft.com/en-us/office/vba/api/visio.rowtype" rel="nofollow noreferrer">
      ROWTYPE
    </A>
     找出你正在处理的是哪一个。
  </p>
  <P>
    这是一个例子（
    <a href="http://visualsignals.typepad.co.uk/vislog/2015/12/getting-started-with-c-in-linqpad-with-visio.html" rel="nofollow noreferrer">
      使用LINQPad
    </A>
    ）遍历形状的每个几何部分中的行：
  </p>
   <pre>
    <code>
      void Main()
{
    var vApp = MyExtensions.GetRunningVisio();
    var shp = vApp.ActiveWindow.Selection.PrimaryItem;
    for (short i = 0; i < shp.GeometryCount; i++)
    {
        var geoSectIdx = (short)(Visio.VisSectionIndices.visSectionFirstComponent + i);
        var geoName = $"Geometry{i + 1}";
        $"{shp.NameID}!{geoName}".Dump();
        for (short r = 1; r < shp.Section[geoSectIdx].Count; r++)
        {
            var rowTag = shp.RowType[geoSectIdx, r];
            $"Row.{r} = {Enum.GetName(typeof(Visio.VisRowTags), rowTag)}".Dump();
        }
        "".Dump();
    }
}

</code>
  </pre>
  <P>
    这将产生以下输出（给定具有两个地理区域的形状）：
  </p>
   <pre>
    <code>
      Sheet.1!Geometry1
Row.1 = visTagRelMoveTo
Row.2 = visTagRelLineTo
Row.3 = visTagRelLineTo
Row.4 = visTagRelLineTo
Row.5 = visTagRelLineTo

Sheet.1!Geometry2
Row.1 = visTagMoveTo
Row.2 = visTagLineTo
Row.3 = visTagLineTo
Row.4 = visTagLineTo
Row.5 = visTagLineTo

</code>
  </pre>
</DIV>