laoliu09 发表于 2005-2-19 14:28:00

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

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

laoliu09 发表于 2005-2-23 22:16:00

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

laoliu09 发表于 2005-4-3 12:03:00

再顶一下！什么问题呢？

qinchao_qc 发表于 2005-4-3 17:13:00

不懂

laoliu09 发表于 2005-4-3 22:30:00

Sub test()<BR>       Dim dim1 As AcadDimAligned<BR>       Dim a(2) As Double, b(2) As Double<BR>       On Error Resume Next<BR>                       ThisDrawing.Utility.GetEntity dim1, pt, "选一个水平放置的对齐标注"                       


                       a(0) = dim1.ExtLine1Point(0): a(1) = dim1.ExtLine1Point(1) + 500: a(2) = 0<BR>                       b(0) = dim1.ExtLine2Point(0): b(1) = dim1.ExtLine2Point(1) + 500: b(2) = 0<BR>                       dim1.ExtLine1Point = a<BR>                       dim1.ExtLine2Point = b<BR>                       dim1.Update<BR>End Sub


以上功能只是想把一个水平放置的对齐标注的标注原点上移500，请先画一根直线跟在这个标注的尺寸线重合以作参照，然后再运行这个宏，奇怪的事情发生了，标注原点是上移了，但尺寸线却跟参照直线分离了，这说明尺寸线发生了位移，为什么会这样呢？好奇怪啊！请各位老大帮帮忙啊！

laoliu09 发表于 2005-4-4 21:59:00

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

laoliu09 发表于 2005-4-6 22:07:00

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

雪山飞狐_lzh 发表于 2005-4-6 22:51:00

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

laoliu09 发表于 2005-4-7 20:19:00

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

mccad 发表于 2005-4-7 21:39:00

你要了解对齐标注的特性，它是以两个标注原点间的距离做为测量距离，原点都变了，标注线肯定得跟着变。
页: [1] 2
查看完整版本: 尺寸标注的怪问题！？求教各位老大！