我需要读取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方法,应该怎么处理? |