读二维多段线的句柄？？

lihengmin

上图中，中间的文字为整个二维多段线的句柄，其它为二维多段线每段（或每个顶点）的句柄，请大家帮忙，用VBA怎样读出每段（或每个顶点）的句柄！

十分感谢，请大家看看！

lihengmin

用CAD的LIST命令可得到以下数据，如用VBA怎样得到呢？请大家看看，给小弟指点指点

命令: list
找到 1 个

                  POLYLINE  图层: JZD
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 464
              闭合
          起点宽度    0.1500
          端点宽度    0.1500
              面积 10000.1280
         周长  397.8486

                  VERTEX    图层: JZD
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 465
                   位于点:X= 103.7333  Y=  81.1333  Z=   0.0000
          起点宽度    0.1500
          端点宽度    0.1500

                  VERTEX    图层: JZD
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 466
                   位于点:X= 179.1197  Y=  62.2571  Z=   0.0000
          起点宽度    0.1500
          端点宽度    0.1500

                  VERTEX    图层: JZD
按 ENTER 键继续:
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 467
                   位于点:X= 158.4577  Y= -15.9699  Z=   0.0000
          起点宽度    0.1500
          端点宽度    0.1500

                  VERTEX    图层: 0
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 4EF
                   位于点:X=  85.4519  Y= -14.0798  Z=   0.0000
          起点宽度    0.1500
          端点宽度    0.1500

                  VERTEX    图层: JZD
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 468
                   位于点:X=  29.1464  Y=  11.1216  Z=   0.0000
          起点宽度    0.1500
          端点宽度    0.1500

                  VERTEX    图层: JZD
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 469
                   位于点:X=  39.0369  Y=  32.5467  Z=   0.0000
          起点宽度    0.1500
按 ENTER 键继续:
          端点宽度    0.1500

                  END SEQUENCE  图层: JZD
                            空间: 模型空间
                   颜色: 随层    线型: CONTINUOUS
                   句柄 = 46A