rjh2001r 发表于 2008-12-31 23:28:00

<p>好东西，正是我想要的!</p><p>不过还有一事不明，请教各位高人：关于acSelectionSetlast的用法，我试了一下，要想把最后一个创建的图形选入选择集，还得保证最后创建的图形是屏幕上可现的(也就是说这个图形必须是在当前屏幕范围内的，如果你的图形画到当前屏幕不可见的区域，就不能被加入到选择集)，有没有办法解决这个问题呢？</p>

yagoole 发表于 2009-3-22 08:20:00

谢谢楼主分享

dxhy 发表于 2009-3-26 17:48:00

<p>学习学习!!!</p>

雪山飞狐_lzh 发表于 2009-4-3 22:00:00

<p>这里最好改下？</p><p>Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet</p><p>&nbsp;&nbsp;&nbsp; Dim ss As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Set ss = ThisDrawing.SelectionSets(ssName)<br/>&nbsp;&nbsp;&nbsp; If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)<br/>&nbsp;&nbsp;&nbsp; ss.Clear<br/>&nbsp;&nbsp;&nbsp; Set CreateSelectionSet = ss</p><p>End Function</p><p>-》</p><p>Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet&nbsp;&nbsp;&nbsp; On Error Resume Next</p><p>&nbsp;&nbsp;&nbsp; ThisDrawing.SelectionSets(ssName).delete<br/>&nbsp;&nbsp;&nbsp; Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(ssName)</p><p>End Function</p>

zazhz123 发表于 2012-5-4 09:04:26

路过，观看高手

lsx2012 发表于 2012-7-3 10:59:01

好东西 看不懂

断箭 发表于 2018-2-6 15:46:10

本帖最后由 断箭 于 2018-2-6 15:47 编辑

请问高手们，CAD中选择过滤器保存的过滤器列表如何编程的形式变为工具条的形式，需要的时候直接点过滤器的名称即可选择需要的对象？？若能提供类似的插件，仅有的几个明经币请拿去:handshake

2017forverd 发表于 2018-2-6 16:12:57

最主要的是dxf码表的选择，这个很关键

lbl520240 发表于 2018-4-23 10:58:36

学习啦，谢谢分享

wyy623 发表于 2018-5-11 16:37:02

请问楼主，怎样向已经含有对象的选择集中添加对象呢？
页: 1 [2] 3
查看完整版本: [分享]CAD VBA过滤器、选择集分享