liudi01044119 发表于 2019-1-22 12:40:00

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

我想得到CAD中多重引线的第一个引线点的坐标？
多重引线我知道怎么获得了。

zhangaofeng 发表于 2019-2-24 21:36:00

多重引线：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   '基线距离
前段时间我和你遇到同样的问题，以上，应该对你有所帮助！
页: [1]
查看完整版本: 请教如何获取多重引线标注的引线点？