谁知道vba编程修改autocad图块颜色？

mycad

请教高手：谁知道vba编程修改AutoCAD图块颜色？

gdzhou

取得块定义

在块定义中遍历图元，修改颜色

更新

mycad

gdzhou你好，请问怎样取得块定义啊？

wuyunpeng888

选择块参照获得块名，用块名就可以访问块了

sailorcwx

Sub blockcolor()
Dim blref As AcadBlockReference
Dim pt As Variant
ThisDrawing.Utility.GetEntity blref, pt
Dim bl As AcadBlock
Set bl = ThisDrawing.Blocks(blref.Name)
For Each ent In bl
ent.color = 1
Next
ThisDrawing.Regen (acActiveViewport)
End Sub

sailorcwx

不知道你要修改块的颜色还是块内图元的颜色

sailorcwx

Sub blockcolor()
Dim blref As AcadBlockReference
Dim pt As Variant
ThisDrawing.Utility.GetEntity blref, pt
blref.color = 1
ThisDrawing.Regen (acActiveViewport)
End Sub