乐筑天下

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

如何复制选择集?

[复制链接]

37

主题

151

帖子

1

银币

后起之秀

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

铜币
299
发表于 2007-1-30 00:08:00 | 显示全部楼层 |阅读模式
我用的是set 语句把s2传递给了s1,但是s2中的33个元素却只有前10个被传递给了s1,
请问这是怎么回事?怎样才是正确的复制方法?谢谢。
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

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

铜币
448
发表于 2007-1-30 08:55:00 | 显示全部楼层
我测试没错啊
  1. Sub text()
  2. On Error Resume Next
  3. Dim s1, s2 As AcadSelectionSet
  4. ThisDrawing.SelectionSets("s1").Delete
  5. Set s1 = ThisDrawing.SelectionSets.Add("s1")
  6. s1.SelectOnScreen
  7. MsgBox s1.Count
  8. Set s2 = s1
  9. MsgBox s2.Count
  10. End Sub
回复

使用道具 举报

37

主题

151

帖子

1

银币

后起之秀

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

铜币
299
发表于 2007-1-30 23:13:00 | 显示全部楼层

是啊,我也奇怪,怎么一到Set语句后,元素个数立刻变成10个了,怎么也找不到原因。
谢谢明总和wyj7485版主的帮助,问题已经解决了,是我中间过程处理有误,出现重合元素。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2007-1-31 08:56:00 | 显示全部楼层
你的代码呢,不要光说,只让大家猜。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 09:53 , Processed in 1.786111 second(s), 60 queries .

© 2020-2025 乐筑天下

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