VB编程操作AutoCAD长度型尺寸标注

长度型尺寸标注包括平行标注与指定角度标注，平行标注的尺寸线平行于尺寸界线起点所在的直线，指定角度标注的尺寸线与尺寸界线起点所在的直线成一定角度。

用AddDimAligned方法创建平行尺寸标注对象，语法格式如下。

RetVal=object.AddDimAligned(ExtLine1Point,ExtLine2Point,TextPosition)

创建指定角度标注对象用AddDimRotated方法，语法格式如下。

RetVal=objcet.AddDimRotated(XLine1Point,XLine2Point,DimLineLocation,RotationAngle)

下面的代码创建并显示一个平行尺寸标注对象。

Private Sub Command1_Click()
    Dim dimobj As AcadDimAligned
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    point1(0) = 5#: point1(1) = 5#: point1(2) = 0#
    point2(0) = 28#: point2(1) = 5#: point2(2) = 0#
    location(0) = 10#: location(1) = 15#: location(2) = 10#
    Set lineobj = acadapp.ActiveDocument.ModelSpace.AddLine(point1, point2)
    Set dimobj = acadapp.ActiveDocument.ModelSpace.AddDimAligned(point1, point2, location)
    ZoomExtents
End Sub