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

DOUBLE dAngleVertexX

角度标注的顶点的X值

DOUBLE dAngleVertexY

角度标注的顶点的Y值

DOUBLE dFirstEndPointX

角度标注第一个参考线上的点X值

DOUBLE dFirstEndPointY

角度标注第一个参考线上的点Y值

DOUBLE dSecondEndPointX

角度标注第二个参考线上的点X值

DOUBLE dSecondEndPointY

角度标注第二个参考线上的点Y值

DOUBLE dTextPointX

文字位置点X值

DOUBLE dTextPointY

文字位置点Y值

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