乐筑天下

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

vba cad 选择集 激活

[复制链接]
Bingo940

2

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
10
发表于 2016-7-5 23:29:00 | 显示全部楼层 |阅读模式
cad vba里，我新建了一个选择集myss，怎样激活这个选择集里所有的图元，效果就像在cad里直接手动选择一样的？          代码：
           Set myss = ThisDrawing.SelectionSets.Add("myss")
           gpcode(0) = 8: datavalue(0) = "*"
           gpcode(1) = 0: datavalue(1) = "*"
           myss.Select acSelectionSetAll, , , gpcode, datavalue
           效果如照片所示效果图

atjckmppenb.png

atjckmppenb.png
回复

使用道具 举报

yzg_208

8

主题

22

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
54
发表于 2016-8-6 19:49:00 | 显示全部楼层
CAD可以传递选择集到VBA，而VBA没有方法传递选择集到CAD。
回复

使用道具 举报

wyy623

0

主题

19

帖子

2

银币

初来乍到

Rank: 1

铜币
19
发表于 2018-5-17 18:10:00 | 显示全部楼层
就是没有办法吗？
回复

使用道具 举报

dong20030432

16

主题

129

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
196
发表于 2018-5-18 17:01:00 | 显示全部楼层
方法1：选择完成后，发送命令到CAD，代码：Thsidrawing.SendCommand "(sssetfirst nil (ssget ""P"")) "
方法2：引用VLAX.cls类，运行选择集夹点显示过程
回复

使用道具 举报

jikasurvey

3

主题

16

帖子

2

银币

初来乍到

Rank: 1

铜币
28
发表于 2018-7-6 21:08:00 | 显示全部楼层

以上两个方法好像都不是很理想。
方法1  无法重复执行上次命令，
方法2 在命令执行完成后才显示夹点，如果希望在命令执行过程中就显示夹点，可以使用ThisDrawing.Regen acActiveViewport，但这一句又会造成闪屏，不知道大家有没有好的方法。
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 03:27 , Processed in 0.484511 second(s), 65 queries .

© 2020-2025 乐筑天下

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