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值
DOUBLE dTextPointY	文字位置点Y值

VB中实现代码说明：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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