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

lnchwangxin 发表于 2007-3-15 09:22:00

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

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

wyj7485 发表于 2007-3-15 15:14:00

用已知的块替换的话，删除原块，按原块的插入点插入现有块
如果修改原块中的某些对象的话可用for each obj in thidrawing.blocks(bname)遍历块中实体对象进行修改

lnchwangxin 发表于 2007-3-16 12:22:00

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

lnchwangxin 发表于 2007-3-16 12:40:00

我使用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 发表于 2007-3-17 21:39:00

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

查看完整版本: 如何更改替换现有图形中的已有块，使用VBA，请高手赐教