读二维多段线的句柄？？

lihengmin · 发表于 2007-12-24 23:01:00

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

lihengmin · 发表于 2007-12-25 08:56:00

用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

读二维多段线的句柄？？

发表回复

精选推荐