CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

ScaleEntity 方法（ActiveX）

2024-5-18 16:53| 发布者: admin| 查看: 330| 评论: 0|原作者: admin|来自: AutoCAD

在 X、Y 和 Z 方向上平均缩放对象。

支持的平台：仅限 Windows

签名

VBA：

object.ScaleEntity BasePoint, ScaleFactor

对象

类型：所有绘图对象、AttributeReference、尺寸

此方法应用到的对象。

基点

访问：仅输入

类型：变体（双打的三元素阵列）

指定基点的 3D WCS 坐标。

比例因子

访问：仅输入

类型：双

缩放对象所依据的因子。对象的尺寸乘以比例因子。大于 1 的比例因子将放大对象。介于 0 和 1 之间的比例因子会减少对象。比例因子必须大于 0.0。

返回值（RetVal）

无返回值。

言论

ScaleFactor = 0.5 和 ScaleFactor = 2

例子

VBA：

Sub Example_ScaleEntity()
    ' This example creates a lightweight polyline
    ' and then scales that polyline.
    
    ' Create the polyline
    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
            
    MsgBox "Scale the polyline by 0.5", , "ScaleEntity Example"
    
    ' Define the scale
    Dim basePoint(0 To 2) As Double
    Dim scalefactor As Double
    basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
    scalefactor = 0.5
    
    ' Scale the polyline
    plineObj.ScaleEntity basePoint, scalefactor
    
    ZoomAll
    MsgBox "Scale completed.", , "ScaleEntity Example"
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_ScaleEntity()
    ;; This example creates a lightweight polyline
    ;; and then scales that polyline.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Create the polyline
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 11)))
    (vlax-safearray-fill points '(1 2
                                  1 3
                                  2 3
                                  3 3
                                  4 4
                                  4 2
                                 )
    )

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq plineObj (vla-AddLightWeightPolyline modelSpace points))
    (vla-put-Closed plineObj :vlax-true)
    (vla-ZoomAll acadObj)
            
    (alert "Scale the polyline by 0.5")
    
    ;; Define the scale
    (setq basePoint (vlax-3d-point 4 4.25 0)
          scalefactor 0.5)
    
    ;; Scale the polyline
    (vla-ScaleEntity plineObj basePoint scalefactor)
    
    (vla-ZoomAll acadObj)
    (alert "Scale completed.")
)