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