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

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

现遇到问题，原有图中的块改变了，想重新替换，利用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，请高手赐教

发表回复

精选推荐