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

主要用到函数说明：

_DMxDrawX::DrawDimAngular

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

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

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