CAD绘制一个半径标注（com接口VB语言）

主要用到函数说明：

_DMxDrawX::DrawDimRadial

绘制一个半径标注。详细说明如下：

DOUBLE dCenterX	被标注的曲线的中点X值
DOUBLE dCenterY	被标注的曲线的中点Y值
DOUBLE dChordPointX	被标注的曲线上的点X值
DOUBLE dChordPointY	被标注的曲线上的点Y值
DOUBLE dLeaderLength	输入箭头长度

VB中实现代码说明：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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