|
发表于 2006-12-24 12:03:00
|
显示全部楼层
改了一下程序,图块在的一个图元可以变颜色
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
'在运行中不变亮,也不变颜色
If Obj.Handle = "92" Then
Obj.color = 1
ThisDrawing.Regen (acActiveViewport)
'刷新活动窗口,图块中一个图元变颜色
MsgBox "Wait"
End If
Next Obj
Next Ent |
|