乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 59|回复: 3

[求助]怎样将Block里面的Hatch改变颜色?

[复制链接]

61

主题

109

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
353
发表于 2004-11-19 12:33:00 | 显示全部楼层 |阅读模式
主要问题是怎样能够浏览block里面的东西,然后挑选出Hatch
Public Function ChangeHatchColorInBlock(Block As AcadBlock)
Dim elem As Object
                                                                ?
                                                         For each elem in Block //这是会产生错误的。
                                                 ?
                                                                                         
End Function
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-11-19 20:48:00 | 显示全部楼层
If elem.ObjectName = "AcDbHatch" Then elem.Color = acRed '你所要的颜色
回复

使用道具 举报

61

主题

109

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
353
发表于 2004-11-20 09:28:00 | 显示全部楼层
这个我知道,只是不知道block这个类里面的东西怎么访问,它的层次结构是怎么样的?block里面陷套的block里面的东西又怎么访问?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-11-20 21:47:00 | 显示全部楼层
  1. Sub ChgColor()
  2. Dim pnt, ent As AcadEntity
  3.        ThisDrawing.Utility.GetEntity ent, pnt
  4.        ChangColor ent.Name
  5.        Regen acActiveViewport
  6. End Sub
  7. Sub ChangeColor(BlockName As String)
  8.        Dim ent As AcadEntity
  9.        For Each ent In ThisDrawing.Blocks(BlockName)
  10.                Debug.Print ent.ObjectName
  11.                If ent.ObjectName = "AcDbHatch" Then ent.color = acRed
  12.                If ent.ObjectName = "AcDbBlockReference" Then ChangColor ent.Name
  13.        Next
  14. End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 13:49 , Processed in 0.428345 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表