请问怎么将已有的图块进行修改

xiaopei520

请问怎么将已有的图块进行修改,


\如:在TuLi.dwg里中有若干个图快分别叫a1,a2,,,,,现将a1拿出来,修改其中的一段文字,在保存回去,怎么改???

xiaopei520

各位高手,help me

wyj7485

在CAD下用REFEDIT命令

雪山飞狐_lzh

set pBlock=thisdrawing.blocks("a1")


然后对pBlock历遍，找到欲修改的文字修改即可

xiaopei520

谢谢了

雪域

对图块进行修改分两种情况，一是对图块结构进行修改，二是对图块的属性进行修改。不同的情况修改方式不一样。

兰州人

我编了一个小程序,可以遍历图块中每个图元。

  Dim Ent As AcadEntity
  Dim pblock, Obj
  For Each Ent In ThisDrawing.ModelSpace
    Debug.Print Ent.Handle, Ent.ObjectName
    For Each Obj In ThisDrawing.Blocks("aa")
      Debug.Print Obj.ObjectName, Obj.Handle

'图块中的图元名和句柄号

'AcDbCircle    8E
'AcDbLine      8F
'AcDbPolyline  90
'AcDbPolyline  91

      Obj.Highlight True

'在运行中不变亮，也不变颜色
      Obj.color = 1
      MsgBox "Wait"
      Obj.Highlight False
    Next Obj
  Next Ent

问：各位大侠，有什么办法，能让图块中的图元变颜色或变亮。

palagon

我都不知道怎么遍历啊，老是提示“类型不匹配”