CAD绘制一个角度标注（com接口VB语言）

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/u013725001/article/details/91793498

主要用到函数说明：

_DMxDrawX::DrawDimAngular

绘制一个角度标注。详细说明如下：

参数	说明
DOUBLE dAngleVertexX	角度标注的顶点的X值
DOUBLE dAngleVertexY	角度标注的顶点的Y值
DOUBLE dFirstEndPointX	角度标注第一个参考线上的点X值
DOUBLE dFirstEndPointY	角度标注第一个参考线上的点Y值
DOUBLE dSecondEndPointX	角度标注第二个参考线上的点X值
DOUBLE dSecondEndPointY	角度标注第二个参考线上的点Y值
DOUBLE dTextPointX	文字位置点X值
DOUBLE dTextPointY	文字位置点Y值

VB中实现代码说明：

            Private Sub DrawDimAngular_Click()
            MxDrawX1.AddDimStyle "MyDimStyle2", "41,0.18,141,0.09,40,200", "77,1,271,3", "", ""
            MxDrawX1.DimStyle = "MyDimStyle2"
            '把颜色改回黑白色
            MxDrawX1.DrawColor = 0
            '把线型改成实线
            MxDrawX1.LineType = ""
            '设置线宽 4
            MxDrawX1.LineWidth = 0
            MxDrawX1.DrawDimAngular 500, 5000, 0, 5500, 1000, 5500, 500, 5500
            '把所有的实体都放到当前显示视区
            MxDrawX1.ZoomAll
            '更新视区显示
            MxDrawX1.UpdateDisplay
            End Sub