尺寸标注的怪问题！？求教各位老大！

laoliu09

我又碰到一个怪问题啦，救命啊！一个水平放置的对齐标注，很规则吧，为什么我在竖直方向上修改标注原点的位置后，尺寸线却也在跟着在竖直方向上有一定的偏移，我只是在竖直方向上修改标注原点而已，你尺寸线干嘛跟着动，可恶啊！还有，我不用VBA编程，直接在图形上拖动对齐标注的标注原点，两个原点各往上移500，尺寸线竟然往下偏移了一段距离，尺寸线干嘛跟着动啊？各位可以试试看！到底什么原因啊？苦闷啊！

laoliu09

加了几天班，没时间上明经，我的帖子快要沉底啦，赶快把它捞上来，各位老大，帮帮忙啊，看看这是怎么一事？是不是我的CAD又出问题了！谢谢啦！

laoliu09

再顶一下！什么问题呢？

qinchao_qc

不懂

laoliu09

Sub test()
Dim dim1 As AcadDimAligned
Dim a(2) As Double, b(2) As Double
On Error Resume Next
ThisDrawing.Utility.GetEntity dim1, pt, "选一个水平放置的对齐标注" a(0) = dim1.ExtLine1Point(0): a(1) = dim1.ExtLine1Point(1) + 500: a(2) = 0
b(0) = dim1.ExtLine2Point(0): b(1) = dim1.ExtLine2Point(1) + 500: b(2) = 0
dim1.ExtLine1Point = a
dim1.ExtLine2Point = b
dim1.Update
End Sub 以上功能只是想把一个水平放置的对齐标注的标注原点上移500，请先画一根直线跟在这个标注的尺寸线重合以作参照，然后再运行这个宏，奇怪的事情发生了，标注原点是上移了，但尺寸线却跟参照直线分离了，这说明尺寸线发生了位移，为什么会这样呢？好奇怪啊！请各位老大帮帮忙啊！

laoliu09

为什么没人回答我的问题啊？我顶了快一个月了，快顶不住了！老大救命啊！

laoliu09

再顶！高手现身啊！给我个提示也好啊！

雪山飞狐_lzh

你用的是对齐标注而不是水平标注

laoliu09

是啊！飞狐老师！难道对齐标注就有这样的问题吗？可以解决吗？又要麻烦你了！

mccad

你要了解对齐标注的特性，它是以两个标注原点间的距离做为测量距离，原点都变了，标注线肯定得跟着变。