主要用到函数说明：
_DMxDrawX::DrawDimAligned
绘制一个对齐标注。详细说明如下：
| 参数 | 说明 |
|---|---|
|
DOUBLE dExtLine1PointX |
第一条界线开始点X值 |
|
DOUBLE dExtLine1PointY |
第一条界线开始点Y值 |
|
DOUBLE dExtLine2PointX |
第二条界线开始点X值 |
|
DOUBLE dExtLine2PointY |
第二条界线开始点Y值 |
|
DOUBLE dTextPositionX |
标注使用的指定标注线位置的定义点X值 |
|
DOUBLE dTextPositionY |
标注使用的指定标注线位置的定义点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 DrawDimAligned_Click() MxDrawX1.AddDimStyle "MyDimStyle", "41,0.18,141,0.09,40,200", "77,1,271,3", "3,""+HZ""", "342,0" MxDrawX1.DimStyle = "MyDimStyle" ‘把颜色改回黑白色 MxDrawX1.DrawColor = 0 ‘把线型改成实线 MxDrawX1.LineType = "" ‘设置线宽 4 MxDrawX1.LineWidth = 0 MxDrawX1.DrawDimAligned 0, 4000, 300, 4500, 150, 4600 ‘把所有的实体都放到当前显示视区 MxDrawX1.ZoomAll ‘更新视区显示 MxDrawX1.UpdateDisplay End Sub |
原文：https://www.cnblogs.com/yzy0224/p/11004273.html