问题描述：
1.目的是写一个桩号标注工具（后续再附上子程序），先完成可以实现标注线上每一个点。
2.因为线有不同的类型，所以分成了线串、弧、B样条曲线、复杂链（由前三者使用“创建复杂链”工具创建）。
3.前3种都处理好了，但是到了复杂链这里，程序在判断语句就不能通过了。没想明白问题出在哪，请老师帮我看下。下附程序。ZHBZ.mvba
你在执行Set ee = .GetSubElement后能得到一个元素枚举器，然后调用其下的BuildArrayFromContents方法就能拿到一个元素的动态数组。遍历这个数组就是复杂链中的每个子元素。
Dim myElms() as Element
myElms = ee.BuildArrayFromContents
For i=LBound(myElms) to UBound(myElms)
myElms(i) 就是第i个子元素
Next