CAD绘制一个直径标注(com接口VB语言)

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

主要用到函数说明:

_DMxDrawX::DrawDimDiametric

绘制一个直径标注。详细说明如下:

参数 说明

DOUBLE dChordPointX

在被标注的曲线上的第一个点X值

DOUBLE dChordPointY

在被标注的曲线上的第一个点Y值

DOUBLE dFarChordPointX

在被标注的曲线上的第二个点X值,这个点与chordPoint直径相对

DOUBLE dFarChordPointY

在被标注的曲线上的第二个点Y值,这个点与chordPoint直径相对

DOUBLE dLeaderLength

输入箭头长度

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 DrawDimDiametric_Click()

        MxDrawX1.AddDimStyle "MyDimStyle3""41,0.18,141,0.09,40,200""77,1,271,3"""""

        MxDrawX1.DimStyle = "MyDimStyle3"

        '把颜色改回黑白色

        MxDrawX1.DrawColor = 0

        '把线型改成实线

        MxDrawX1.LineType = ""

        '设置线宽 4

        MxDrawX1.LineWidth = 0

        MxDrawX1.DrawDimDiametric 500, 5700, 600, 6000, 100

        '把所有的实体都放到当前显示视区

        MxDrawX1.ZoomAll

        '更新视区显示

        MxDrawX1.UpdateDisplay

        End Sub

猜你喜欢

转载自blog.csdn.net/u013725001/article/details/91793321