如何绘制一个对齐标注？

• 回答：

  主要用到函数说明：

  
  

  _DMxDrawX::DrawDimAligned

  
  

  绘制一个对齐标注。详细说明如下：

  
  

  参数	说明
  DOUBLE dExtLine1PointX	第一条界线开始点X值
  DOUBLE dExtLine1PointY	第一条界线开始点Y值
  DOUBLE dExtLine2PointX	第二条界线开始点X值
  DOUBLE dExtLine2PointY	第二条界线开始点Y值
  DOUBLE dTextPositionX	标注使用的指定标注线位置的定义点X值
  DOUBLE dTextPositionY	标注使用的指定标注线位置的定义点Y值

  
  

  VB中实现代码说明：

  
  

              Private Sub DrawDimAligned_Click()
              MxDrawX1.AddDimStyle "MyDimStyle", "41,0.18,141,0.09,40,200", "77,1,271,3", "3,""+HZ""", "342,0"
              MxDrawX1.DimStyle = "MyDimStyle"
  
              '把颜色改回黑白色
              MxDrawX1.DrawColor = 0
  
              '把线型改成实线
              MxDrawX1.LineType = ""
  
              '设置线宽 4
              MxDrawX1.LineWidth = 0
  
  
              MxDrawX1.DrawDimAligned 0, 4000, 300, 4500, 150, 4600
  
              '把所有的实体都放到当前显示视区
              MxDrawX1.ZoomAll
  
              '更新视区显示
              MxDrawX1.UpdateDisplay
  
              End Sub