贝塞尔曲线控制点.doc_第1页
贝塞尔曲线控制点.doc_第2页
贝塞尔曲线控制点.doc_第3页
贝塞尔曲线控制点.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

(0,0)(72,72)(100,40)(20,50)(90,120)(60,30)(150,90)Sub BezierCurve() Dim sngArray(1 To 7, 1 To 2) As Single sngArray(1, 1) = 0 sngArray(1, 2) = 0 sngArray(2, 1) = 72 sngArray(2, 2) = 72 sngArray(3, 1) = 100 sngArray(3, 2) = 40 sngArray(4, 1) = 20 sngArray(4, 2) = 50 sngArray(5, 1) = 90 sngArray(5, 2) = 120 sngArray(6, 1) = 60 sngArray(6, 2) = 30 sngArray(7, 1) = 150 sngArray(7, 2) = 90 ActiveDocument.Shapes.AddCurve _ SafeArrayOfPoints:=sngArray, _ Anchor:=ActiveDocument.Paragraphs(1).RangeEnd SubAddCurve 方法。返回一个 Shape 对象，该对象代表绘图画布上的贝赛尔曲线。expression.AddCurve(SafeArrayOfPoints)expression 必需。该表达式返回一个 CanvasShapes 对象。SafeArrayOfPoints Variant 类型，必需。指定该曲线的顶点和控制点的坐标对 （坐标对：一对值，表示两维数组中存储的点的 x 和 y 坐标，该数组中包含许多点的坐标。）数组。首先指定的是起始顶点，随后指定的两个点是第一段贝塞尔曲线的控制点。如果该曲线还有其他段，则每段都应该指定一个顶点和两个控制点。最后指定该曲线的终止顶点。请注意，一般情况下您应该指定 3n+1 个点，此处 n 为曲线的段数。应用于 Shapes 对象的 AddCurve 方法。返回一个 Shape 对象，该对象代表文档中的贝赛尔曲线。expression.AddCurve(SafeArrayOfPoints, Anchor)expression 必需。该表达式返回一个 Shapes 对象。SafeArrayOfPoints Variant 类型，必需。指定该曲线的顶点和控制点的坐标对 （坐标对：一对值，表示两维数组中存储的点的 x 和 y 坐标，该数组中包含许多点的坐标。）数组。首先指定的是起始顶点，随后指定的两个点是第一段贝塞尔曲线的控制点。如果该曲线还有其他段，则每段都应该指定一个顶点和两个控制点。最后指定该曲线的终止顶点。请注意，一般情况下您应该指定 3n + 1 个点，此处 n 为曲线的段数。Anchor Variant 类型，可选。指定一个代表文本的 Range 对象，该曲线将出现在此文本中。如果指定了 An
人人文库> 全部分类> 应用文书 > 技术指导

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论