港航工程CAD与数值分析：05_尺寸标注与多段线.pptVIP

LOGO AutoCAD中约定凸度为0是直线顶点它与下一个顶点连接为一直线凸度不为0是圆弧顶点，它与下一个顶点连接为一圆弧，凸度值为负表示顺时针圆弧凸度值为正表示逆时针圆弧凸度绝对值小于1表示圆弧包角小于180°凸度绝对值大于1表示圆弧包角大于180°。凸度与圆弧包角的关系是：圆弧包角= 4×arctan|凸度值|。 要求（1）问题的解决思路的分析 （2）代码（要求写成VBA函数的形式,并有测试代码）例如： Sub GetArc( ptBegin as Variant,ptEnd as Variant,Bulge as double,AngBeginOut as double ,AngEndOut as double) 涉及到图形对象类型 直线AcadLine； 圆AcadCircle 填充AcadHatch 尺寸标注AcadDim* 二维多段线AcadLWPolyline 2.2.2 ModelSpace对象的AddHatch的方法： 创建填充与其它对象不同，需要注意事项： 创建了 Hatch 对象后，必须使用 AppendOuterLoop 方法添加外边界。外边界必须封闭而且必须在任何内边界创建前创建。内边界使用 AppendInnerLoop 方法创建的，一次只能创建一个。 警告! 当创建了 Hatch 对象后，你必须立即追加外边界到 Hatch 对象以便它成为有效的 AutoCAD 对象。如果试图进行调用 AppendOuterLoop 方法以外的其它操作， AutoCAD 将进入无法预测的状态。 2.2.3 ModelSpace对象创建 尺寸标注 的方法 （1）尺寸标注的类型： （2）尺寸标注组成部分 标注文字 箭头（尺寸终端） 尺寸线 尺寸界线(延伸线） 引线与注释 （3） ModelSpace对象的AddDim**的方法： （4） ModelSpace对象的AddDimAligned的方法： （5） ModelSpace对象的AddDimDiametric的方法： 2.2.3 多段线 多段线的优势，管理方法、可计算总长与围成的面积等。比如用于多个线段或圆弧组成的线、箭头等时 多段线的分类：优化多段线（2维平面线与圆弧组成）与3维多段线（直线） 创建方法：ModelSpace对象的AddLightweightPolyline RetVal = object.AddLightweightPolyline(VerticesList) 编辑修改方法： .AppendVertex Point .GetWidth Index, StartWidth, EndWidth .Coordinate(index) LOGO AutoCAD中约定凸度为0是直线顶点它与下一个顶点连接为一直线凸度不为0是圆弧顶点，它与下一个顶点连接为一圆弧，凸度值为负表示顺时针圆弧凸度值为正表示逆时针圆弧凸度绝对值小于1表示圆弧包角小于180°凸度绝对值大于1表示圆弧包角大于180°。凸度与圆弧包角的关系是：圆弧包角= 4×arctan|凸度值|。 要求（1）问题的解决思路的分析 （2）代码（要求写成VBA函数的形式,并有测试代码）例如： Sub GetArc( ptBegin as Variant,ptEnd as Variant,Bulge as double,AngBeginOut as double ,AngEndOut as double)