如何绘制一个线型标注？

• 回答：

  主要用到函数说明：

  
  

  _DMxDrawX::DrawDimRotated

  
  

  绘制一个线型标注。详细说明如下：

  
  

  参数	说明
  DOUBLE dExtLine1PointX	输入第一条界线的起始点X值
  DOUBLE dExtLine1PointY	输入第一条界线的起始点Y值
  DOUBLE dExtLine2PointX	输入第二条界线的起始点X值
  DOUBLE dExtLine2PointY	输入第二条界线的起始点Y值
  DOUBLE dDimLineLocationX	输入标注线自身上的点X值
  DOUBLE dDimLineLocationY	输入标注线自身上的点Y值
  DOUBLE dRotationAngle	输入标注的旋转角

  
  

  VB中实现代码说明：

  
  

      Private Sub DrawDimRotated_Click()
      MxDrawX1.AddDimStyle "MyDimStyle4", "41,0.18,141,0.09,40,200", "77,1,271,3", "", ""
      MxDrawX1.DimStyle = "MyDimStyle4"
  
      '把颜色改回黑白色
      MxDrawX1.DrawColor = 0
  
      '把线型改成实线
      MxDrawX1.LineType = ""
  
      '设置线宽 4
      MxDrawX1.LineWidth = 0
  
  
      MxDrawX1.DrawDimRotated 0, 7000, 500, 7000, 250, 7050, 0
  
      MxDrawX1.DrawDimRotated 0, 7200, 0, 7400, 150, 7300, 0.771
  
      '把所有的实体都放到当前显示视区
      MxDrawX1.ZoomAll
  
      '更新视区显示
      MxDrawX1.UpdateDisplay
      End Sub