Editing Drawing Objects
分组对象
在很多情况下,有助于将多个图形对象一起,使它们充当一个大的对象。
以下示例将两个绘图对象:
Dim Doc As Object
Dim页面中对象
Dim正方形As Object
Dim圆As Object
Dim形状对象
Dim组对象
Dim点Point新
Dim大小为新.awt.Size
Dim用作新Point
Dim高度长整数
Dim宽度为长整数
Doc=StarDesktop.CurrentComponent
页=Doc.drawPages(0)
=3000
=3000
=3000
=3000
'建立正方形绘图元素
正方形=Doc.createInstance("")
=大小
=
=rgb()
Page.add(方)
'建立圆形绘图元素
圆=Doc.createInstance("")
=大小
=
=rgb()
=rgb(255,0)
Page.add(信任环)
'将正方形和圆形绘图元素
形状=createUnoService("")
(方)
(信任环)
group=(图形)
中心组合的绘图元素
height=
宽度=
=/2
=高度/2
height=
宽度=
=-宽度/2
=高/2
=
此代码建立了一个矩形和一个圆,然后将它们插入到页面中。 然后,它将创建一个对象,它支持/服务,并使用 Add 方法将矩形和圆加入到此对象。 将 ShapeCollection 加入到页面使用 组 方法并返回实际 组 对象中可编辑像编辑单个 形状。
如果要格式化的单个对象的组,采用格式,然后将其添加到组中。 您不能修改后对象中。
运算符==旋转和修剪绘图对象==
所有绘图对象都在上面各节还可旋转和修剪使用/服务。
此服务提供了以下属性:
- RotateAngle(长整数)
- 旋转角度,以百分之一度为单位
- ShearAngle(长整数)
- 修剪角度以百分之一度为单位
以下示例会建立一个矩形,将其旋转30度使用 RotateAngle 属性:
lang="">
Dim Doc As Object Dim页面中对象 Dim RectangleShape As Object Dim点Point新 Dim大小为新.awt.Size
=1000
=1000
=10000
=10000
Doc=StarDesktop.CurrentComponent
页=Doc.drawPages(0)
RectangleShape=Doc.createInstance("")
=大小
=
=3000
Page.add(RectangleShape)
</source>
以下示例将创建一样的矩形上一个示例,而这个将其修剪30度使用 ShearAngle 属性。
lang="">
Dim Doc As Object Dim页面中对象 Dim RectangleShape As Object Dim点Point新 Dim大小为新.awt.Size
=1000
=1000
=10000
=10000
Doc=StarDesktop.CurrentComponent
页=Doc.drawPages(0)
RectangleShape=Doc.createInstance("")
=大小
=
=3000
Page.add(RectangleShape)
</source>
搜索运算符==并替换==
与文本文档、绘图文档提供了一个函数用于搜寻和替换。 此功能与使用的文本文档中所述 [[文档/Basic_Guide</text_文档|Text Documents]]。 但是,在绘图文档的描述符对象用于搜寻和替换未直接建立通过文档对象,而是通过相关的字符级。 以下示例演示了中的替换过程绘图:
lang="">
Dim Doc As Object Dim页面中对象 Dim ReplaceDescriptor对象 Dim I as Integer
Doc=StarDesktop.CurrentComponent
页=Doc.drawPages(0)
使用ReplaceDescriptor=()
=""
="是"
For I=0To-1
页=Doc.drawPages(i)
Page.ReplaceAll(ReplaceDescriptor)
Next I
</source>
此代码使用第一个 绘图 文档建立一个 ReplaceDescriptor ,然后将此描述符以循环的所有页面中绘图文档。
| Content on this page is licensed under the Public Documentation License (PDL). |
