CAD绘制一个线型标注（com接口VB语言）
主要用到函数说明：
_DMxDrawX::DrawDimRotated
绘制一个线型标注。详细说明如下：
| 参数 | 说明 |
|---|---|
|
DOUBLE dExtLine1PointX |
输入第一条界线的起始点X值 |
|
DOUBLE dExtLine1PointY |
输入第一条界线的起始点Y值 |
|
DOUBLE dExtLine2PointX |
输入第二条界线的起始点X值 |
|
DOUBLE dExtLine2PointY |
输入第二条界线的起始点Y值 |
|
DOUBLE dDimLineLocationX |
输入标注线自身上的点X值 |
|
DOUBLE dDimLineLocationY |
输入标注线自身上的点Y值 |
|
DOUBLE dRotationAngle |
输入标注的旋转角 |
VB中实现代码说明：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Private Sub DrawDimRotated_Click()
MxDrawX1.AddDimStyle "MyDimStyle4", "41,0.18,141,0.09,40,200", "77,1,271,3", "", ""
MxDrawX1.DimStyle = "MyDimStyle4"
\'把颜色改回黑白色
MxDrawX1.DrawColor = 0
\'把线型改成实线
MxDrawX1.LineType = ""
\'设置线宽 4
MxDrawX1.LineWidth = 0
MxDrawX1.DrawDimRotated 0, 7000, 500, 7000, 250, 7050, 0
MxDrawX1.DrawDimRotated 0, 7200, 0, 7400, 150, 7300, 0.771
\'把所有的实体都放到当前显示视区
MxDrawX1.ZoomAll
\'更新视区显示
MxDrawX1.UpdateDisplay
End Sub
|