37
151
1
后起之秀
使用道具 举报
13
396
5
Sub text() On Error Resume Next Dim s1, s2 As AcadSelectionSet ThisDrawing.SelectionSets("s1").Delete Set s1 = ThisDrawing.SelectionSets.Add("s1") s1.SelectOnScreen MsgBox s1.Count Set s2 = s1 MsgBox s2.Count End Sub
158
2315
10
顶梁支柱
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-7-7 09:53 , Processed in 1.786111 second(s), 60 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端