用户可以通过指定基点和长度（作为基于当前图形单位的缩放比例）来缩放对象。可以缩放所有的图形对象和属性参考对象。
要缩放对象，请使用该对象的 ScaleEntity 方法。这个方法在 X、Y 和 Z 方向等比缩放对象。它需要输入缩放的基点和缩放比例。基点是由三个双精度数组成的变量数组。这些双精度数代表开始缩放的点的三维 WCS 坐标。缩放比例是缩放对象时采用的系数，缩放时用对象的尺寸乘以缩放比例。缩放比例大于 1 时将放大对象，缩放比例大于 0 小于 1 时将缩小对象。
有关进行缩放的详细信息，请参见《用户手册》中的“调整对象的大小和形状”。
本例创建一条闭合的优化多段线，然后以 0.5 的缩放比例调整该多段线。
Sub Ch4_ScalePolyline()
' 创建多段线
Dim plineObj As AcadLWPolyline
Dim points(0 To 11) As Double
points(0) = 1: points(1) = 2
points(2) = 1: points(3) = 3
points(4) = 2: points(5) = 3
points(6) = 3: points(7) = 3
points(8) = 4: points(9) = 4
points(10) = 4: points(11) = 2
Set plineObj = ThisDrawing.ModelSpace. _
AddLightWeightPolyline(points)
plineObj.Closed = True
ZoomAll
' 定义缩放
Dim basePoint(0 To 2) As Double
Dim scalefactor As Double
basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
scalefactor = 0.5
' 缩放多段线
plineObj.ScaleEntity basePoint, scalefactor
plineObj.Update
End Sub