引线标注

y1982_0 发表于 2005-7-25 21:22:00

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

雪山飞狐_lzh 发表于 2005-7-26 10:26:00

http://www.vba.cn/object/acad2004/idh_leader_object.htm

y1982_0 发表于 2005-7-26 10:40:00

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

y1982_0 发表于 2005-8-5 19:02:00

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

y1982_0 发表于 2005-8-5 21:01:00

'创建引线标注 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 发表于 2005-8-6 09:52:00

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

pen_1983 发表于 2005-8-11 10:42:00

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

y1982_0 发表于 2005-8-11 19:10:00

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

页: [1]

明经CAD社区's Archiver

引线标注