[分享]CAD VBA过滤器、选择集分享

rjh2001r

好东西，正是我想要的!

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

yagoole

谢谢楼主分享

dxhy

学习学习!!!

雪山飞狐_lzh

这里最好改下？

Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet

    Dim ss As AcadSelectionSet
    On Error Resume Next
    Set ss = ThisDrawing.SelectionSets(ssName)
    If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
    ss.Clear
    Set CreateSelectionSet = ss

End Function

-》

Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet    On Error Resume Next

    ThisDrawing.SelectionSets(ssName).delete
    Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(ssName)

End Function

zazhz123

路过，观看高手

lsx2012

好东西 看不懂

断箭

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

2017forverd

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

lbl520240

学习啦，谢谢分享

wyy623

请问楼主，怎样向已经含有对象的选择集中添加对象呢？