绘制一个半径标注
[id(103), helpstring("method DrawDimRadial")]
LONGLONG DrawDimRadial(DOUBLE dCenterX, DOUBLE dCenterY, DOUBLE dChordPointX, DOUBLE dChordPointY, DOUBLE dLeaderLength);|
参数 |
说明 |
|
DOUBLE dCenterX |
被标注的曲线的中点X值 |
|
DOUBLE dCenterY |
被标注的曲线的中点Y值 |
|
DOUBLE dChordPointX |
被标注的曲线上的点X值 |
|
DOUBLE dChordPointY |
被标注的曲线上的点Y值 |
|
DOUBLE dLeaderLength |
输入箭头长度 |
返回新绘制的标注id
例如: VB代码
Private Sub DrawDimRadial_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.DrawDimRadial 500, 6600, 500, 6650, 0
'把所有的实体都放到当前显示视区
MxDrawX1.ZoomAll
'更新视区显示
MxDrawX1.UpdateDisplay
End Sub