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

xiaohon · 发表于 2004-2-5 12:12:00

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

efan2000 · 发表于 2004-2-5 12:47:00

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