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

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

我在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 <BR>                                                                                                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分别是第一条引线和第二条引线的起点坐标。


       


       


<BR><BR>

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

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

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

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

efan2000 发表于 2004-2-5 13:37:00

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

xiaohon 发表于 2004-2-5 14:01:00

Dim        blkElem As AutoCAD.AcadEntity                       


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

xiaohon 发表于 2004-2-5 14:40:00

对于转角标注类型，是没有ExtLine1Point和ExtLine2Point这两个属性的，痛苦死我了。哈哈
页: [1]
查看完整版本: [求助]关于通过VBA读图取其标注的问题。