其他分享
首页 > 其他分享> > CAD绘制一个半径标注（com接口VB语言）

CAD绘制一个半径标注（com接口VB语言）

作者：互联网

主要用到函数说明：

_DMxDrawX::DrawDimRadial

绘制一个半径标注。详细说明如下：

参数 说明

DOUBLE dCenterX

被标注的曲线的中点X值

DOUBLE dCenterY

被标注的曲线的中点Y值

DOUBLE dChordPointX

被标注的曲线上的点X值

DOUBLE dChordPointY

被标注的曲线上的点Y值

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

Private Sub DrawDimRadial_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.DrawDimRadial 500, 6600, 500, 6650, 0

 

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

MxDrawX1.ZoomAll

 

'更新视区显示

MxDrawX1.UpdateDisplay

End Sub

标签：DrawDimRadial,VB,Sub,DOUBLE,曲线,MxDrawX1,CAD,com,标注
来源： https://blog.csdn.net/u013725001/article/details/91792893