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

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

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

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

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

多重引线：AcadMLeader

Dim objMleader As AcadMLeader
Dim LeaderPtArr(0 To 5) As Double
Dim nLong As Long
    nLong = 0
    LeaderPtArr(0)=0:LeaderPtArr(1)=0:LeaderPtArr(2)=0
    LeaderPtArr(3)=200:LeaderPtArr(4)=200:LeaderPtArr(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 发表于 2023-5-15 16:55:14

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

Dim objMleader As AcadMLeader


想请教一下哪个组码对应的是多重引线标注引线的个数
页: [1]
查看完整版本: 请教如何获取多重引线标注的引线点？