Product:	MicroStation
	Version:	CONNECT
	Environment:	N\A
	Area:	Base Geometry
	Subarea:	N\A

Problem

Key-in to change Arc Angle in Cloud tool.

From User…
How can I set default revision cloud settings.

Solution

There is no key-in to set Arc Angle, Radius. However, you can record a Macro, set the required parameters and save it as a VBA.

Check this Wiki for Macro recording.

Here is a sample recorded VBA that has been edited to place clouds with Angles 100, 120. 

Sub CloudAng100()
'   Send a keyin that can be a command string
    CadInputQueue.SendKeyin "place revcloud points"
 
'   Set a variable associated with a dialog box
    SetCExpressionValue "cloudParams.radius", (ActiveModelReference.UORsPerMasterUnit * 0), "CURVE"
    SetCExpressionValue "cloudParams.sweepAngle", 100, "CURVE"
End Sub

Sub CloudAng120()
'   Send a keyin that can be a command string
    CadInputQueue.SendKeyin "place revcloud points"
 
'   Set a variable associated with a dialog box
    SetCExpressionValue "cloudParams.radius", (ActiveModelReference.UORsPerMasterUnit * 0), "CURVE"
    SetCExpressionValue "cloudParams.sweepAngle", 120, "CURVE"
End Sub

Check this Wiki for executing VBAs via key-ins.

Following are sample Key-ins to Load and Execute VBAs.
macro vba load TestCloud; macro vba execute CloudAng100
macro vba load TestCloud; macro vba execute CloudAng120

VBA attached for reference.

communities.bentley.com/.../TestCloud.mvba

See Also

Cloud Tool

Editing Cloud tool settings

Other Language Sources

Original Author:

Leonard Jones