如何通过vba删除块中的某些对象？

xxxtttxxx

在已知块名的情况下，应该可以应用选择集来进行选择过滤吧？

然后objectidtoobject 得到 block对象？

chensj

非常感谢管理员！

不过还得请教：该如何实现您说的“通过块名就可以【查到块定义】，你可以通过【遍历】的方法来查看块定义中的所有图元。”呢？

其实我只是想实现这样一个功能：比如已有一个块名叫“1”的块，我想在重新导入绘图参数以后，可以通过删除“1”块定义中原来的对象，再加入新的对象，重新定义这个块，那么对应的各个块参照自然更新了。所以如果能够直接得到块定义中各个对象的话就不用炸开块再操作了！希望管理员同志，不吝赐教！

也希望各位大侠们多多指点！

yadg0

不知道你要改哪些参数?

试试 ThisDrawing.SendCommand "-Bedit " + block.name + Chr(13)

后再操作看能不能满足你要求吧

英雄无敌

在网上找了找，原来块本身就是一个集合，可以用for ... each来取得子图元，以下是源程序：

‘没有加注示，如果不明白可以查CAD的帮助

Option Explicit

Sub Example_Select()
    On Error Resume Next
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("sset")
    If Err Then
        Err.Clear
   
        Set ssetObj = ThisDrawing.SelectionSets.Item("sset")
    End If

    ssetObj.Clear
    Dim mode As Integer
    Dim corner1(0 To 2) As Double
    Dim corner2(0 To 2) As Double
   
  
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "insert"
   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ssetObj.Select acSelectionSetAll, , , groupCode, dataCode
    Dim i As Integer
    Dim blkobj As AcadBlock, blkn As String
    For i = 0 To ssetObj.Count - 1
      Set blkobj = ThisDrawing.Blocks(ssetObj.Item(i).Name)
      blkn = blkobj.Name
      Debug.Print "block", i, "'sname="; blkn
      Ltoc blkobj
    Next
    ThisDrawing.Regen acActiveViewport
End Sub

Sub Ltoc(blk As AcadBlock)
Dim Sube As AcadEntity, p1 As Variant, p2 As Variant, pcen(2) As Double, rad As Double
For Each Sube In blk
    Debug.Print Sube.ObjectName
    If Sube.ObjectName = "AcDbBlockReference" Then
      Ltoc ThisDrawing.Blocks(Sube.Name)
    ElseIf Sube.ObjectName = "AcDbLine" Then
        p1 = Sube.StartPoint
        p2 = Sube.EndPoint
        pcen(0) = (p1(0) + p2(0)) / 2
        pcen(1) = (p1(1) + p2(1)) / 2
        pcen(2) = (p1(2) + p2(2)) / 2
        rad = Sube.Length / 2
       
        Sube.Delete
        blk.AddCircle pcen, rad
       
   
    End If
Next
End Sub

chensj

英雄无敌，果然还是无敌啊！非常感谢！

原来块只要for ... each循环就可以遍历其各个子对象啊！

恍然大悟！

dong20030432

mccad 发表于 2007-8-20 12:15
图纸除了模型空间、图纸空间外，还有一个是块空间，也就是一个块定义有一个块空间。你可以和操作模型空间一 ...

请问怎么用VBA把选择集中的对象添加到已经建好的块中？请高手赐教！！！