Procedure HRotate rotates the referenced object about a coordinate point location. rotationAngle is in degrees.
PROCEDURE HRotate(
h : HANDLE;
centerX,centerY : REAL;
rotationAngle : REAL);def vs.HRotate(h, center, rotationAngle):
return None| Name | Type | Description |
|---|---|---|
| h | HANDLE | Handle to object. |
| center | REAL | X-Y coordinates of center point of rotation. |
| rotationAngle | REAL | Angle of rotation. |
HRotate(objHd,3,5,60d);def Example():
vs.HRotate(vs.FSActLayer(),3,5,60)
Example()BEGIN
SysBeep;
createErrorMessage2 (errorText, x0, y0);
HRotate (LNewObj, x0, y0, -GetSymRot (pluginH));
getData := FALSE;
END {of NOT validPathAndFile}
BEGIN
getData := FALSE;
createErrorMessage2( errorText, kErrMsgTextSize, GetFontID( kErrMsgTextFont ), kErrMsgWidth, gX0, gY0, kBeep );
HRotate( LNewObj, gX0, gY0, -GetSymRot( gPluginH ) );
END
BEGIN
SysBeep;
createErrorMessage2 (errorText, x0, y0);
HRotate (LNewObj, x0, y0, -GetSymRot (pluginH));
getData := FALSE;
ENDimport vs
# Procedure HRotate rotates the referenced object about a coordinate point
# location.
h = vs.FSActLayer() # handle to the first selected object on the active layer
center = (0, 0)
rotationAngle = 45.0
vs.HRotate(h, center, rotationAngle)Availability: from MiniCAD6.0