请教如何获取多重引线标注的引线点？

liudi01044119

我想得到CAD中多重引线的第一个引线点的坐标？

多重引线我知道怎么获得了。

zhangaofeng

多重引线：AcadMLeader

Dim objMleader As AcadMLeader
Dim LeaderPtArr(0 To 5) As Double
Dim nLong As Long
    nLong = 0
    LeaderPtArr(0)=0eaderPtArr(1)=0eaderPtArr(2)=0
    LeaderPtArr(3)=200eaderPtArr(4)=200eaderPtArr(5)=0
  
    Set objMleader = ThisDrawing.ModelSpace.AddMLeader(LeaderPtArr, nLong)
   
    objMleader.TextString = StrText  '文字
    objMleader.TextHeight = 120      '文字高度
    objMleader.TextStyleName = "CCDL-TXT"  '文字样式
    objMleader.ArrowheadSize = 50   '箭头尺寸
    objMleader.DoglegLength = 50   '基线距离

前段时间我和你遇到同样的问题，以上，应该对你有所帮助！

MXS

zhangaofeng 发表于 2019-2-24 21:36
多重引线：AcadMLeader

Dim objMleader As AcadMLeader

想请教一下哪个组码对应的是多重引线标注引线的个数