如何绘制一个直径标注？

• 回答：

  主要用到函数说明：

  
  

  _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