AutoCAD performs those calculations for you. ■ Note There is no direct equivalent to the SCALE command's Reference option. 'Scale the object objDrawingObject.ScaleEntity varBasePoint, dblScaleFactor objDrawingObject.Update End Sub "Pick a base point for the scale:") dblScaleFactor = ("Enter the scale factor: ") MsgBox "You did not choose an object" Exit Sub End If varBasePoint = (, _ "Please pick an entity to scale: " If objDrawingObject Is Nothing Then objDrawingObject, varEntityPickedPoint, _ This example shows how to implement this method:ĭim objDrawingObject As AcadEntity Dim varEntityPickedPoint As Variant Dim varBasePoint As Variant Dim dblScaleFactor As Double A scale factor greater than 1 enlarges the object, while a scale factor less than 1 shrinks the object. Each of the object's dimensions, measured from the base point, is multiplied by this parameter. ScaleEntity Method ParametersĪ three-element array of doubles that specifies the 3-D WCS coordinates of the scale's base point.Ī positive number that represents how much to scale the object relative to its current size. Table 10-7 explains this method's parameters. This method has the following syntax:ĭrawingObject.ScaleEntity BasePoint, ScaleFactor The ScaleEntity method scales a drawing object uniformly in all directions around a base point.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |