明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1456|回复: 1

如何炸开 IAcadDim3PointAngular、IAcadDimAligned等类似的实体,并获取其子实体

[复制链接]
发表于 2008-1-21 16:02:00 | 显示全部楼层 |阅读模式

我需要读取dwg文件所有实体的坐标信息

简单的点 线 单行文字可以直接获取坐标,但是比如多段线(包括直线、圆弧等多个部分)、spline、多行文字、

IAcadDimAligned、IAcadDimAngular、IAcadDimDiametric等各种标注实体如何将其打散,并分别获取其

所有子实体?

IAcadBlockReference可以用以下代码打散获取:

Dim objAcadBlockRef As IAcadBlockReference
Set objAcadBlockRef = objAcadEntity
       
Dim objReturn As Variant
objReturn = objAcadBlockRef.Explode()

For i = 0 To UBound(objReturn)
       Dim objSubEntity As IAcadEntity
       Set objSubEntity = objReturn(i) '循环处理每个自实体
       ReadCadEntityCoords objSubEntity, ExplodeBlock
Next

但是标注、多行文字、多段线这些没有explode方法,应该怎么处理?

发表于 2008-1-22 22:02:00 | 显示全部楼层
用对象的相应属性,不要炸开
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-3-12 09:28 , Processed in 0.187550 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表