DR Get corner rounding

version 6.0

DR Get corner rounding (area; scope) Number

Parameter	Type		Description
area	Longint		4D Draw area
scope	Longint		-2=Default
			-1=All
			0=Selected
			>0=Object ID
Function result	Number		Corner rounding of the objects in area
			described by scope

The command DR Get corner rounding returns the corner rounding of the objects in area described by scope.

The corner rounding is expressed in base units. Use the DR Base to scale function to convert from base units to scale units.

• If scope equals -2, the command returns the default corner rounding for new round rectangles.

• If scope equals -1, the command returns the corner rounding for all objects in the document.

• If scope equals 0, the command returns the corner rounding for the selected objects. If the corner rounding is not the same for all of the objects described by scope, DR Get corner rounding returns -32000, and DR Error returns error number 29.

• If scope is greater than 0, it must be equal to a specific object's ID; the command returns that object's corner rounding. If the object does not exist, DR Get corner rounding returns -32000 and DR Error returns 2.

The following example gets the corner rounding of the selected objects and then increments it by 0.1 base units.

   $Temp := DR Get corner rounding (Area;0)
   If ($Temp # -32000)
      DR SET CORNER ROUNDING (Area;0;$Temp + 0.1)
   End if

DR Get ID, DR SET CORNER ROUNDING.