[求助]关于通过VBA读图取其标注的问题。

xiaohon

我在VBA中，需要读取图形中的标注，但好象VBA并没有提供这样的方法。我无法得到它的标注点。然后我用 Dim objDimRotated As AutoCAD.Acad Dim blkElem As AutoCAD.AcadEntity For Each blkElem In m_objModelSpace '采用迭代遍历模型空间中的实体 if blkElem.EntityName = "AcDbRotatedDimension" then objDimRotated = blkElem
objDimRotated .GetBoundingBox(m_dblStart, m_dblEnd) end if next 但这样只能得到起最大最小点，和实际的标注是不一样的，请问谁有什么好办法可以解决？？

efan2000

对于Dim3PointAngular和DimAngular，ExtLine1StartPoint、ExtLine1EndPoint；ExtLine2StartPoint，ExtLine2EndPoint分别是第一条引线和第二条引线的起、终点坐标。 对于DimAligned，ExtLine1Point，ExtLine2Point分别是第一条引线和第二条引线的起点坐标。

xiaohon

但你这两个属性只是在新增时有效，而我是在别人生成标注后，要去读取图形文件中的这两个点。而且是自动获取。因为我要把那两个点保存到数据库中，以便下次生成新图时使用。有办法解决吗？ni

xiaohon

你说的那两个属性是在AddDimAligned时设定的，而我是把这AcadEntity从图中读出来后，想取他的坐标。

efan2000

可以的啊，如果定义为AcadEntity，那么要首先定义一个临时变量如Pt，Pt=blkElem.ExtLine1StartPoint，然后再分别读取各个方向的坐标。

xiaohon

Dim        blkElem As AutoCAD.AcadEntity                         


blkElem.EntityName ="AcDbRotatedDimension"的实体到底是个什么的实体类型呢？奇怪。我连TextOverride都取不出。（我是用。NET开发的）

xiaohon

对于转角标注类型，是没有ExtLine1Point和ExtLine2Point这两个属性的，痛苦死我了。哈哈