乐筑天下

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

这个程序怎么了?

[复制链接]

39

主题

89

帖子

6

银币

后起之秀

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

铜币
245
发表于 2003-12-29 11:17:00 | 显示全部楼层 |阅读模式
Sub Ch4_AddToASelectionSet()
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")
' 提示用户选择对象并将它们添加到选择集中。
' 要完成选择,按回车。
sset.SelectOnScreen
' 在选择集中循环并将每一对象的颜色改为蓝色。
Dim entry As AcadEntity
For Each entry In sset
entry.Color = acBlue
entry.Update
Next entry
End Sub
-------------------------------------------------------------------------------------------------------------------
调试时总出现错误   实时错误‘--2147467259(80004005)’:方法‘Add作用于对象IAcadselectonsets’时失败。请教各位,谢谢!
回复

使用道具 举报

28

主题

117

帖子

4

银币

后起之秀

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

铜币
229
发表于 2003-12-29 11:21:00 | 显示全部楼层
  1. Sub Ch4_AddToASelectionSet()
  2. ' 创建新的选择集
  3. Dim sset As AcadSelectionSet
  4. On Error Resume Next
  5. Set sset = ThisDrawing.SelectionSets("SS1")
  6. If Err Then
  7. Err.Clear
  8. Set sset = ThisDrawing.SelectionSets.Add("SS1")
  9. End If
  10. sset.clear
  11. ' 提示用户选择对象并将它们添加到选择集中。
  12. ' 要完成选择,按回车。
  13. sset.SelectOnScreen
  14. ' 在选择集中循环并将每一对象的颜色改为蓝色。
  15. Dim entry As AcadEntity
  16. For Each entry In sset
  17. entry.Color = acBlue
  18. entry.Update
  19. Next entry
  20. End Sub
回复

使用道具 举报

39

主题

89

帖子

6

银币

后起之秀

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

铜币
245
发表于 2003-12-29 11:48:00 | 显示全部楼层
谢谢楼上,为什么这样改?
回复

使用道具 举报

28

主题

117

帖子

4

银币

后起之秀

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

铜币
229
发表于 2003-12-29 12:15:00 | 显示全部楼层
因为你第一次运行Set sset = ThisDrawing.SelectionSets.Add("SS1")的时候,名为SS1的选择集就已经存在了,第二次运行Set sset = ThisDrawing.SelectionSets.Add("SS1"),由于SS1已经存在,所以不能再创建一个相同名字的选择集
回复

使用道具 举报

39

主题

89

帖子

6

银币

后起之秀

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

铜币
245
发表于 2003-12-29 19:48:00 | 显示全部楼层
thanks!
回复

使用道具 举报

12

主题

135

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
183
发表于 2004-1-3 16:49:00 | 显示全部楼层
高手太多,一点发言的机会都没有。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 11:47 , Processed in 0.346747 second(s), 64 queries .

© 2020-2025 乐筑天下

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