角度尺寸测量两条线或三点之间的角度。 例如,您可以使用它们来测量圆的两个半径之间的角度。尺寸线形成一个弧。 若要创建角度尺寸,请使用该方法。此方法需要三个值作为输入:角度折点、延伸线的原点和文本位置。角度顶点是圆或弧的中心,或要标注尺寸的两条线之间的公共顶点。延长线的原点是两条延长线经过的点。AddDimAngular 角度顶点可以与原点之一相同。如果您需要延长线,它们将自动添加。 创建角度尺寸本示例在模型空间中创建一个角度尺寸。 Sub Ch5_CreateAngularDimension() Dim dimObj As AcadDimAngular Dim angVert(0 To 2) As Double Dim FirstPoint(0 To 2) As Double Dim SecondPoint(0 To 2) As Double Dim TextPoint(0 To 2) As Double ' Define the dimension angVert(0) = 0 angVert(1) = 5 angVert(2) = 0 FirstPoint(0) = 1 FirstPoint(1) = 7 FirstPoint(2) = 0 SecondPoint(0) = 1 SecondPoint(1) = 3 SecondPoint(2) = 0 TextPoint(0) = 3 TextPoint(1) = 5 TextPoint(2) = 0 ' Create the angular dimension in model space Set dimObj = ThisDrawing.ModelSpace. _ AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint) ZoomAll End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-19 12:10
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.