CAD绘制一个对齐标注（com接口VB语言）

主要用到函数说明：

 

_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