明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2221|回复: 6

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

[复制链接]
发表于 2009-4-29 16:28:00 | 显示全部楼层 |阅读模式

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

发表于 2009-4-30 11:16:00 | 显示全部楼层

取得块定义

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

更新

 楼主| 发表于 2009-4-30 15:30:00 | 显示全部楼层
gdzhou你好,请问怎样取得块定义啊?
发表于 2009-4-30 21:01:00 | 显示全部楼层
选择块参照获得块名,用块名就可以访问块了
发表于 2009-4-30 21:44:00 | 显示全部楼层
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
发表于 2009-4-30 21:45:00 | 显示全部楼层

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

发表于 2009-4-30 21:46:00 | 显示全部楼层
Sub blockcolor()
Dim blref As AcadBlockReference
Dim pt As Variant
ThisDrawing.Utility.GetEntity blref, pt
blref.color = 1
ThisDrawing.Regen (acActiveViewport)
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 03:32 , Processed in 0.201083 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表