关于多重引线addmleader方法的问题

rielzhou · 发表于 2013-1-7 19:15:00

addmleader方法中有两个参数，第一个是引线端点，第二个参数不知道是什么，还有各参数的中英文对照，请高手指点

rielzhou · 发表于 2013-1-12 11:32:00

没有知道有关mleader的内容吗？明总呢！！！！我用VBA做出来之后，为什么生成的文字总是在水平基线的左边，而不能像在CAD里直接画的时候那样，根据引线的方向来确定文字在左边还是在右边

rielzhou · 发表于 2013-1-12 11:35:00

point1 = ThisDrawing.Utility.GetPoint(, vbCr & "请指定标注点")
point11 = ThisDrawing.Utility.TranslateCoordinates(point1, acWorld, acUCS, False)
point2 = ThisDrawing.Utility.GetPoint(point11, vbCr & "请指定标注位置")
point22 = ThisDrawing.Utility.TranslateCoordinates(point2, acWorld, acUCS, False)



If bz1.clzb.Value = False Then
      vtext1 = "X=" & FormatNumber(point11(0), xiaoshu, vbTrue, vbFalse, vbFalse)
      vtext2 = "Y=" & FormatNumber(point11(1), xiaoshu, vbTrue, vbFalse, vbFalse)
Else
      vtext1 = "X=" & FormatNumber(point11(1), xiaoshu, vbTrue, vbFalse, vbFalse)
      vtext2 = "Y=" & FormatNumber(point11(0), xiaoshu, vbTrue, vbFalse, vbFalse)
End If

mlp(0) = point1(0)
mlp(1) = point1(1)
mlp(2) = point1(2)
mlp(3) = point2(0)
mlp(4) = point2(1)
mlp(5) = point2(2)

Set ml = ThisDrawing.ModelSpace.AddMLeader(mlp, d)
ml.TextLineSpacingFactor = 0.85
ml.TextString = vtext1 & "\P" & vtext2
ml.ArrowheadType = acArrowNone


ml.TextRightAttachmentType = acAttachmentBottomOfTopLine '文字连接位置－右
ml.TextLeftAttachmentType = acAttachmentBottomOfTopLine '文字连接位置－左
ml.DogLegged = True
ml.LandingGap = 0
ml.TextHeight = height
ml.ArrowheadSize = 0
ml.DoglegLength = height