绘制一个直径标注
[id(100), helpstring("method DrawDimDiametric")]
LONGLONG DrawDimDiametric(DOUBLE dChordPointX, DOUBLE dChordPointY, DOUBLE dFarChordPointX, DOUBLE dFarChordPointY, DOUBLE dLeaderLength);|
参数 |
说明 |
|
DOUBLE dChordPointX |
在被标注的曲线上的第一个点X值 |
|
DOUBLE dChordPointY |
在被标注的曲线上的第一个点Y值 |
|
DOUBLE dFarChordPointX |
在被标注的曲线上的第二个点X值，这个点与chordPoint直径相对 |
|
DOUBLE dFarChordPointY |
在被标注的曲线上的第二个点Y值，这个点与chordPoint直径相对 |
|
DOUBLE dLeaderLength |
输入箭头长度 |
返回新绘制的标注id
例如: VB代码
Private Sub DrawDimDiametric_Click()
MxDrawX1.AddDimStyle "MyDimStyle3", "41,0.18,141,0.09,40,200", "77,1,271,3", "", ""
MxDrawX1.DimStyle = "MyDimStyle3"
'把颜色改回黑白色
MxDrawX1.DrawColor = 0
'把线型改成实线
MxDrawX1.LineType = ""
'设置线宽 4
MxDrawX1.LineWidth = 0
MxDrawX1.DrawDimDiametric 500, 5700, 600, 6000, 100
'把所有的实体都放到当前显示视区
MxDrawX1.ZoomAll
'更新视区显示
MxDrawX1.UpdateDisplay
End Sub