AutoCAD VBA尺寸标注,包括转角标注、对齐标注、角度标注、半径标注、直径标注和坐标标注,代码如下。
Public Function AddDimAligned(ByVal pt1 As Variant, ByVal pt2 As Variant, ByVal ptText As Variant) As AcadDimAligned
Set AddDimAligned = ThisDrawing.ModelSpace.AddDimAligned(pt1, pt2, ptText)
End Function
Public Function AddDimAlignedCTxt(ByVal pt1 As Variant, ByVal pt2 As Variant, ByVal ptText As Variant, ByVal text As String, Optional x As Double = 0, Optional y As Double = 0) As AcadDimAligned
Dim objDim As AcadDimAligned
Set objDim = AddDimAligned(pt1, pt2, ptText)
objDim.TextOverride = text
objDim.TextMovement = acMoveTextAddLeader
ptText(0) = ptText(0) + x
ptText(1) = ptText(1) + y
objDim.TextPosition = ptText
objDim.Update
Set AddDimAlignedCTxt = objDim
End Function
Public Function AddDim