如何绘制一个半径标注？

• 回答：

  主要用到函数说明：

  
  

  _DMxDrawX::DrawDimRadial

  
  

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

  
  

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

  
  

  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