引线标注

y1982_0

这样的标注怎么用vba实现？

雪山飞狐_lzh

[WEB]http://www.vba.cn/object/acad2004/idh_leader_object.htm[/WEB]

y1982_0

这个东东很好，谢谢啦，万分感谢，

y1982_0

引线标注时末尾的注释用的是多行文本的形式，如何在程序中确定其字高呢？谢谢，头疼

y1982_0

'创建引线标注
Public Function AddLeader()
    ' This example creates a leader in model space.
    ' The leader is not attached to any annotation object
    ' in this example.
  
    Dim leaderObj As AcadLeader, MTextObj  As AcadMText
    Dim points(0 To 8) As Double
    Dim leaderType As Integer
    Dim annotationObject As AcadObject
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    Dim width As Double
    dim str as string

     str=100     
    ' Define the new MText object
    textString = "大概可能" & str
    insertionPoint(0) =  10: insertionPoint(1) =  13: insertionPoint(2) = 0

'    height = 1.8
    width = 10
    ' Create the MText object in model space
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(insertionPoint, width, textString)
   

   
    points(0) = 0: points(1) = 0: points(2) = 0
    points(3) = 10: points(4) =  10: points(5) = 0
    points(6) = 11: points(7) =  10: points(8) = 0
    'leaderType = acLineWithArrow
    leaderType = acLineNoArrow
    Set annotationObject = MTextObj
       
    ' Create the leader object in model space
    Set leaderObj = ThisDrawing.ModelSpace.AddLeader(points, annotationObject, leaderType)
    ZoomAll
   
End Function
这是我写的函数，高手看看怎么改变字高，默认是2.5

，改成1.8，

y1982_0

我发现points（8）这个点组中，最后三位即6，7，8确定的点对引线标注没有影响，关键是怎么调整好多行文本的字高和字宽，还是希望能有办法调整这个字高，希望有高手给看看！

pen_1983

可以在定义的时候就调整它的高度,height = 1.8
    width = 10
就在这个里面定义,检查以下美观就OK了

y1982_0

谢谢，知道了，把多行文本字高设置一下MTextObj.height = 1.8,然后调整点的位置就可以满足要求