对，DimRotated好像没有extline1point和entline2point点，不知道为什么？
哪岂不是用vba很难办到？看来我只能用我现在的老办法了，我的方法是：往对齐标注写扩展数据，当然是自己建的标注了，记下文本在尺寸线上或尺寸线下("up" or "down")，这样就可以修剪了，跟lisp一样，但如果文本从尺寸线上移到尺寸线下或从尺寸线下移到尺寸线上，那就出问题了，因为标注里的扩展数据没变，如果可以在移动文本的同时修改扩展数据就好了，可以用modify事件，但怎么判断文本是移到尺寸线上，还是移到尺寸线下呢？这好像有点难度！哎！学海无边啊！
'单选标注对象获取对齐及转角标注中的各点坐标
Sub FixSingleDim()
Dim Ent As AcadEntity
Dim Pnt As Variant
Dim DimPoints As Variant
'选择对象
ThisDrawing.Utility.GetEntity Ent, Pnt, vbCr & "选择要要获取坐标的标注对象:"
If Ent.ObjectName Like "AcDb*Dimension" Then
DimPoints = GetDimLinePoint(Ent)
Dim i As Integer
For i = 0 To UBound(DimPoints)
Debug.Print DimPoints(i)
Next
End If
End Sub'获取对齐标注及转角标注的尺寸界线原点及标注点的函数
'返回格式：三组三维坐标，分别与DXF组码的13,14,10组码对应。
'前两个坐标对应于对象模型中的ExtLine1Point,ExtLine2Point，第三个坐标在对象模型中没有。
'作者：明经通道 mccad
Function GetDimLinePoint(Dimension As AcadDimension) As Variant
'在复制标注对象前先保存当前图形中的块数量
Dim BlockCount As Long
BlockCount = ThisDrawing.Blocks.Count
'复制需要锁定文字内容的标注对象
Dim CopyDimension As AcadDimension
Set CopyDimension = Dimension.Copy
'检查块数量是否增加，而且新增加的块名前缀是否为"*D"
Dim NewBlockCount As Long
NewBlockCount = ThisDrawing.Blocks.Count
If NewBlockCount = BlockCount + 1 And Left(ThisDrawing.Blocks(BlockCount).Name, 2) = "*D" Then
'遍历块中的对象，取得定义的点
Dim EntityInBlock As AcadEntity
Dim DimPnt As Variant
Dim DimPoints() As Double
Dim i As Integer
For Each EntityInBlock In ThisDrawing.Blocks(BlockCount)
If EntityInBlock.ObjectName = "AcDbPoint" Then
i = i + 1
DimPnt = EntityInBlock.Coordinates
ReDim Preserve DimPoints(i * 3 - 1)
DimPoints(i * 3 - 3) = DimPnt(0)
DimPoints(i * 3 - 2) = DimPnt(1)
DimPoints(i * 3 - 1) = DimPnt(2)
End If
Next
End If
'删除复制的标注对象
CopyDimension.Delete
GetDimLinePoint = DimPoints
End Function
太谢谢郑老师了，原来标注对象里还隐藏了一个标注点，我翻遍对象模型也找不到啊，这正是我一直以来最想得到的点，好了，我的修剪尺寸界线的问题可以过一段落了，现在可以编出跟lisp一样的功能了，再次感谢郑老师的指导！
<div align="left"><font face="Arial">看不懂，太深了。</font></div>
<div align="center"><font face="Arial"></font> </div>
<div align="center"><font face="Arial"><a href="http://item.taobao.com/item.htm?id=4995599527"><img height="60" src="http://img08.taobaocdn.com/imgextra/i8/87213831/T2iIFhXe0cXXXXXXXX_!!87213831.gif" width="468" border="0"/></a><a href="http://7-days.taobao.com/"></a></font></div>
<div><font face="Arial"></font> </div>
<div align="center"><font face="Arial">欢迎光临<font color="#ff0000"><strong>七天E店</strong></font> <font color="#000000"> </font><a href="http://7-days.taobao.com/">http://7-days.taobao.com</a></font><font face="Arial"></font></div>
<div><font face="Arial"></font> </div>
界线的修正确是麻烦的。主要是尺寸线的两端点不好读取。