Rotates the object the specified number of radians around the specified point. | |
Syntax: | object.RotateAroundPoint Radians, X, Y |
Parameters: |
Radians As
float -
X As
long -
Y As
long -
|
Description: | The coordinates of the point are specified in
TWIPS. Example: Sub GefObject_RotateAroundPoint() Dim oCimObj As GefObject Set oCimObj = CimGetObject oCimObj.RotateAroundPoint (pi / 4), 1
* 20, 1 * 20 CimGetScreen.Refresh False End Sub |