乐筑天下

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

选择问题集

[复制链接]

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2005-2-23 17:40:17 | 显示全部楼层 |阅读模式
我可以成功创建选择集,但我正在尝试使用
Sset。选择 acSelectionSetLast
要选择插入到图形中的最后一个图元,同时我想创建一个图层并将插入的块放置到该图层上。
有什么建议吗?
我很感激
马克

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

0

主题

8

帖子

4

银币

初来乍到

Rank: 1

铜币
9
发表于 2005-2-23 19:58:51 | 显示全部楼层
标记,这段代码适用于我获取最后一个VISIBLE创建的对象:
  1. Dim ss As AcadSelectionSet
  2. Set ss = ThisDrawing.PickfirstSelectionSet
  3. ss.Select acSelectionSetLast
  4. Debug.Print ss.Item(0).ObjectName

获取模型空间中最后一个创建的对象,无论可见性如何:
  1. Dim ent As AcadEntity
  2. Set ent = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
  3. Debug.Print ent.ObjectName

回复

使用道具 举报

0

主题

8

帖子

5

银币

初来乍到

Rank: 1

铜币
10
发表于 2005-2-24 09:07:46 | 显示全部楼层
嘿Jeff,
我真的很感谢你的帮助。我不完全确定你是否理解了我的问题,或者可能是我的措辞错误。
我想使用Sset.SelectacSelectionSetLast
acSelectionSetLast(根据帮助屏幕)获取绘图中的最后一个实体并将其添加到您的选择集中。
所以,我想渐变最后一个插入的实体,然后使用VBA将该实体放置在指定的图层上。
这真的是我正在寻找的代码,或者是如何实现它的想法。
再次感谢
Mark
回复

使用道具 举报

0

主题

9

帖子

7

银币

初来乍到

Rank: 1

铜币
11
发表于 2005-2-24 09:36:58 | 显示全部楼层
嘿,Jeff
根据您的代码示例,看起来我已经明白了:
谢谢您
Mark代码2]
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 19:50 , Processed in 0.369619 second(s), 60 queries .

© 2020-2025 乐筑天下

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