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

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 '基线距离
前段时间我和你遇到同样的问题，以上，应该对你有所帮助！

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

发表回复

精选推荐