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

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

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

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

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

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

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

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

<p>我使用insertblock时，name值给出图形地址，可不执行。语句如下：</p><p>&nbsp;&nbsp;&nbsp; Dim blockObj As AcadBlock<br/>&nbsp;&nbsp;&nbsp; Dim insertionPnt(0 To 2) As Double<br/>&nbsp;&nbsp;&nbsp; Dim t As String<br/>&nbsp;&nbsp;&nbsp; insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#<br/>&nbsp;&nbsp;&nbsp; Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")<br/>&nbsp;&nbsp;&nbsp; t = "d:\lyt\5tk5"<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0<br/>&nbsp;&nbsp;&nbsp; Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, t, 1#, 1#, 1#, 0)<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ZoomAll<br/>&nbsp;&nbsp;&nbsp; </p>

雪山飞狐_lzh 发表于 2007-3-17 21:39:00

t = "d:\lyt\5tk5.dwg"<br/>
页: [1]
查看完整版本: 如何更改替换现有图形中的已有块，使用VBA，请高手赐教