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