读二维多段线的句柄？？
上图中，中间的文字为整个二维多段线的句柄，其它为二维多段线每段（或每个顶点）的句柄，请大家帮忙，用VBA怎样读出每段（或每个顶点）的句柄！十分感谢，请大家看看！
**** Hidden Message ***** 用CAD的LIST命令可得到以下数据，如用VBA怎样得到呢？请大家看看，给小弟指点指点
命令: list
找到 1 个
POLYLINE图层: JZD
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 464
闭合
起点宽度 0.1500
端点宽度 0.1500
面积 10000.1280
周长397.8486
VERTEX 图层: JZD
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 465
位于点:X= 103.7333Y=81.1333Z= 0.0000
起点宽度 0.1500
端点宽度 0.1500
VERTEX 图层: JZD
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 466
位于点:X= 179.1197Y=62.2571Z= 0.0000
起点宽度 0.1500
端点宽度 0.1500
VERTEX 图层: JZD
按 ENTER 键继续:
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 467
位于点:X= 158.4577Y= -15.9699Z= 0.0000
起点宽度 0.1500
端点宽度 0.1500
VERTEX 图层: 0
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 4EF
位于点:X=85.4519Y= -14.0798Z= 0.0000
起点宽度 0.1500
端点宽度 0.1500
VERTEX 图层: JZD
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 468
位于点:X=29.1464Y=11.1216Z= 0.0000
起点宽度 0.1500
端点宽度 0.1500
VERTEX 图层: JZD
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 469
位于点:X=39.0369Y=32.5467Z= 0.0000
起点宽度 0.1500
按 ENTER 键继续:
端点宽度 0.1500
END SEQUENCE图层: JZD
空间: 模型空间
颜色: 随层 线型: CONTINUOUS
句柄 = 46A
页:
[1]