[VBA函数]：关于插入块

a2joe

VBA中能不能直接插入炸了的块，即不存在blocks中的
我只知道插入块后可以炸.望回复

eachy

不在Blocks中的还叫块？！

a2joe

sorry,就是把图形插入图内，就象在插入块的对话框中选explode

fjw_ok

直接插入，再炸开。，不就的了？凡事可以变通。
object.Explode

a2joe

那怎么从blocks中把它清除，谢谢.
没办法，刚开始学，所以什么都不知道.

fjw_ok

Sub Example_Delete()
    ' This example creates a Layer named "TEST".
    ' It then iterates the Layers collection and displays
    ' the names of the available layers.
    ' It then deletes the layer "TEST", and again iterates
    ' the layers collection and displays the names of
    ' available layers.
   
    Dim layerObj As AcadLayer
   
    ' Create the new layer
    Set layerObj = ThisDrawing.Layers.Add("TEST")
   
    ' Display the names of the layers in the drawing
    GoSub DISPLAYLAYERS
   
    ' Delete the layer "TEST"
    layerObj.Delete
   
    ' Display the names of the layers remaining in the drawing
    GoSub DISPLAYLAYERS
   
    Exit Sub
   
DISPLAYLAYERS:
    Dim entry As AcadLayer
    Dim layerNames As String
    layerNames = ""
    For Each entry In ThisDrawing.Layers
       layerNames = layerNames & entry.name & ", "
    Next
    MsgBox "The drawing consists of the following layers:" & Chr(13) & Chr(10) & layerNames, , "Delete Example"
    Return
   
End Sub

看看这个，改一下即可

a2joe

"' Delete the layer "TEST"
layerObj.Delete"
改为 blockobj.Delete
就是删除原来已经插入的块
但能删除在blocks中这个块吗？
就像用purge后的删除方法的

fjw_ok

试一下不就知道了？