[VBA]线性标注的问题？

mlr_nj

Sub Example_AddDimAligned()
Dim dimObj As AcadDimAligned
Dim fenkua(500, 2) As Double
Dim pt1(2) As Double
Dim pt2(2) As Double
Dim pt3(3) As Double
Dim text As String
Dim dunshu As Double
Dim bili As Integer
Dim i As Integer
bili = 2
i = 5
dunshu = 20
For i = 1 To dunshu
fenkua(i, 0) = i
fenkua(i, 1) = i * 2
fenkua(i, 2) = 0
Next i
For i = 1 To dunshu - 1
pt1(0) = fenkua(i, 0)
pt1(1) = fenkua(i, 1)
pt1(2) = 0
pt2(0) = fenkua(i + 1, 0)
pt2(1) = fenkua(i + 1, 1)
pt2(2) = 0
pt3(0) = (fenkua(i, 0) + fenkua(i + 1, 0)) / 2 + 2.5 * 2 * bili
pt3(1) = (fenkua(i, 1) + fenkua(i + 1, 1)) / 2 + 2.5 * 2 * bili
pt3(2) = 0
text = 30
Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, pt3)
dimObj.TextOverride = text

Next i
ZoomAll
End Sub

mccad

想问什么问题？
你定义的三个点是pt1,pt2,pt3
但AddDimAligned方法中的三个点却是point1, point2, pt3，这不会存在问题吗？
复制修改的程序要看看参数定义才行。

houlinbo

怎样能使每个线性标注与所标注的线段的距离相等？是一直困扰我的问题。

laoliu09

用对齐标注不就行了吗？我还不大明白你的意思！

houlinbo

对，是对齐标注，但对齐标注上的文字位置总是不好确定。如：正交好标注，斜交上的对齐标注对我来说就很难实现了

mlr_nj

mccad老师批评的对，我在复制程序的时候太粗心了。很明显：Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, pt3)和前面不对应。 还有个错误：Dim pt3(3) As Double，这个错误害的我耽误了好几天，把别的方面的都调试了，最后才发现这个错误。这里我自己指出来，让和我同样的初学者引以为戒啊。 另外还有问题请教：mccad老师，就是houlinbo提出的一样的问题：斜交、曲线、的对齐标注，怎样看齐来更齐整些？不太好做。

mccad

程序是自己写的，文字想放在哪里就是你自己的问题了。怎样让它好看，你就放到哪里，总结出规律就可以了。

crazylsp

Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, pt3)

谢谢这个例子很好经典