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

AutoCAD 2024 开发者帮助

Explode 方法（ActiveX）

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

Explode 方法（ActiveX）

将复合对象分解为子实体。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.Explode

对象

类型：3DPolyline、BlockReference、ComparedReference、ExternalReference、LWPolyline、MInsertBlock、PolygonMesh、折线、区域

此方法应用到的对象。

返回值（RetVal）

类型：变体（对象数组）

分解对象的数组。

言论

根据要爆炸的复合物体的类型，会出现不同的结果。有关可分解对象及其结果的详细列表，请参见《AutoCAD 命令参考》中的 EXPLODE 命令主题。

您不必为了操纵其组成实体而分解块。所有块定义都有一个方法，允许您在不分解块定义本身的情况下操作块中的实体。Item

注意：和对象继承此方法，但此方法在使用时不会影响任一对象类型。ComparedReferenceExternalReferenceBlockReference

例子

VBA：

Sub Example_Explode()
    ' This example creates a lightweight polyline in model space.
    ' It then explodes the polyline.
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    points(10) = 4: points(11) = 1
        
    ' Create a lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
    ' Set the bulge on one segment to vary the
    ' type of objects in the polyline
    plineObj.SetBulge 3, -0.5
    ZoomAll
    
    ' Explode the polyline
    MsgBox "Explode the polyline?", , "Explode Example"
    Dim explodedObjects As Variant
    explodedObjects = plineObj.Explode
    
    ' Loop through the exploded objects
    Dim I As Integer
    For I = 0 To UBound(explodedObjects)
        explodedObjects(I).Update
        MsgBox "Exploded Object " & I & ": " & explodedObjects(I).ObjectName, , "Explode Example"
        explodedObjects(I).Color = acByLayer
        explodedObjects(I).Update
    Next
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Explode()
    ;; This example creates a lightweight polyline in model space.
    ;; It then explodes the polyline.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; Define the 2D polyline points
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 11)))
    (vlax-safearray-fill points '(1 1
				                              1 2
				                              2 2
				                              3 2
				                              4 4
				                              4 1
				                             )
    )
        
    ;; Create a lightweight Polyline object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq plineObj (vla-AddLightWeightPolyline modelSpace points))
    (vla-put-Color plineObj acRed)
  
    ;; Set the bulge on one segment to vary the
    ;; type of objects in the polyline
    (vla-SetBulge plineObj 3 -0.5)
    (vla-ZoomAll acadObj)
    
    ;; Explode the polyline
    (alert "Explode the polyline?")
    (setq explodedObjects (vlax-variant-value (vla-Explode plineObj)))
    
    ;; Loop through the exploded objects
    (setq I 0)
    (while (>= (vlax-safearray-get-u-bound explodedObjects 1) I)
        (vla-Update (vlax-safearray-get-element explodedObjects I))
        (alert (strcat "Exploded Object " (itoa I) ": " (vla-get-ObjectName (vlax-safearray-get-element explodedObjects I))))
        (vla-put-Color (vlax-safearray-get-element explodedObjects I) acByLayer)
        (vla-Update (vlax-safearray-get-element explodedObjects I))    
        (setq I (1+ I))
    )
)