如何更改替换现有图形中的已有块，使用VBA，请高手赐教

lnchwangxin

现遇到问题，原有图中的块改变了，想重新替换，利用VBA，不知道如何实现

wyj7485

用已知的块替换的话，删除原块，按原块的插入点插入现有块

如果修改原块中的某些对象的话可用for each obj in thidrawing.blocks(bname)遍历块中实体对象进行修改

lnchwangxin

谢谢你的指点，不过块是外部单独的图形，而且块名不变，内容变化。相当于重新插入新块，但块名不变。如何插入外部图形作为本图的块，用什么语句？谢谢

lnchwangxin

我使用insertblock时，name值给出图形地址，可不执行。语句如下：

    Dim blockObj As AcadBlock
    Dim insertionPnt(0 To 2) As Double
    Dim t As String
    insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
    Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
    t = "d:\lyt\5tk5"
  
    insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, t, 1#, 1#, 1#, 0)
   
    ZoomAll
   

雪山飞狐_lzh

t = "d:\lyt\5tk5.dwg"