Description

Returns the rotation angle of the point, set by call to WalkShape (in tenths of degree).

Syntax

object

Required. Object name, returned by Dim elem as ElementProp = Page.SelElement()

Example

Create a text frame on the beginning of the selected shape

Dim elem as ElementProp = Page.SelElement()

elem.StoreShape

elem.WalkShape (0)

dim x = elem.Walkx

dim y = elem.Walky

dim a = elem.walka

page.addframeex (x,y,20000,20000,0)

page.objsetangle (a/10,1)

 

Create a text frame on the end of the selected shape

Dim elem as ElementProp = Page.SelElement()

elem.StoreShape

dim step = 1000

dim dist = 0

While elem.WalkShape(dist)

 dist=dist+1000 ' move further

End while

dim iShapeLength = dist

elem.WalkShape (dist)

dim x = elem.Walkx

dim y = elem.Walky

dim a = elem.walka

page.addframeex (x,y,20000,20000,0)

page.objsetangle (a/10,1)