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

AutoCAD 2022 开发者帮助

AddBox 方法（ActiveX）

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

AddBox 方法（ActiveX）

创建一个边平行于 WCS 轴的 3D 实体框。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.AddBox(Origin, Length, Width, Height)

对象

类型：块、模型空间、纸空间

此方法应用到的对象。

起源

访问：仅输入

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

指定盒子原点的 3D WCS 坐标。此坐标表示对象的边界框的中心，而不是角。

长度

访问：仅输入

类型：双

盒子的长度。必须为正数。

宽度

访问：仅输入

类型：双

框的宽度。必须为正数。

高度

访问：仅输入

类型：双

盒子的高度。必须为正数。

返回值（RetVal）

类型： 3DSolid

作为新创建的框的对象。3DSolid

言论

没有其他评论。

例子

VBA：

Sub Example_AddBox()
    ' This example creates a box in model space.
        
    Dim boxObj As Acad3DSolid
    Dim length As Double, width As Double, height As Double
    Dim center(0 To 2) As Double
    
    ' Define the box
    center(0) = 5#: center(1) = 5#: center(2) = 0
    length = 5#: width = 7: height = 10#
    
    ' Create the box (3DSolid) object in model space
    Set boxObj = ThisDrawing.ModelSpace.AddBox(center, length, width, height)
    
    ' Change the viewing direction of the viewport to better see the box
    Dim NewDirection(0 To 2) As Double
    NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    ThisDrawing.ActiveViewport.direction = NewDirection
    ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    ZoomAll
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_AddBox()
    ;; This example creates a box in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the box
    (setq center (vlax-3d-point 5 5 0)
          boxLength 5
	         boxWidth 7
	         boxHeight 10)
    
    ;; Create the box (3DSolid) object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq boxObj (vla-AddBox modelSpace center boxLength boxWidth boxHeight))
    
    ;; Change the viewing direction of the viewport to better see the box
    (setq NewDirection (vlax-3d-point -1 -1 1))
    (setq activeViewport (vla-get-ActiveViewport doc))
    (vla-put-Direction activeViewport NewDirection)
    (vla-put-ActiveViewport doc activeViewport)
    (vla-ZoomAll acadObj)
)