Scales an object
equally in the X, Y, and Z directions.
Signature
VBA :
object.ScaleEntity BasePoint, ScaleFactor
VL : (vla-ScaleEntity
object BasePoint ScaleFactor)
(vla-ScaleEntity obj bp sc)
-
Object : All
Drawing Objects, AttributeReference
The object or objects this method applies to.
-
BasePoint :
Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying the base point.
-
ScaleFactor :
Double; input-only
The factor by which to scale the object. The dimensions of the
object are multiplied by the scale factor. A scale factor greater
than 1 enlarges the object. A scale factor between 0 and 1 reduces
the object. The scale factor must be greater than 0.0.
Example :
(defun c:al-scaleentity ()
(vl-load-com)
(setq util (vla-get-utility
(vla-get-activedocument
(vlax-get-acad-object))))
(vla-getentity util 'obj 'ip "\nSelect Object: ")
(setq bp (vla-getpoint util nil "\nBase Point: "))
(setq sc (vla-GetReal util "\nScale Factor: "))
(vla-ScaleEntity obj bp sc)
(princ)
);defun
|
|