主要用到函数说明：
_DMxDrawX::DrawDimDiametric
绘制一个直径标注。详细说明如下：
参数 | 说明 |
DOUBLE dChordPointX | 在被标注的曲线上的第一个点X值 |
DOUBLE dChordPointY | 在被标注的曲线上的第一个点Y值 |
DOUBLE dFarChordPointX | 在被标注的曲线上的第二个点X值，这个点与chordPoint直径相对 |
DOUBLE dFarChordPointY | 在被标注的曲线上的第二个点Y值，这个点与chordPoint直径相对 |
DOUBLE dLeaderLength | 输入箭头长度 |
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
