社区 › VB › 命名层过滤器

Matersammichman 发表于 2006-6-7 13:18:00

命名层过滤器

两个问题：
1. 有人有清除命名层过滤器的代码吗？
2. 属性筛选器、组筛选器和标准筛选器之间有什么区别？
**** Hidden Message *****

Maverick® 发表于 2006-6-7 13:24:16

1） 这是快速和肮脏的一段时间前。我记得它工作得很好。
Option Explicit
'Private Sub AcadDocument_BeginSave(ByVal FileName As String)
Sub purge_em()
Dim strSubName As String
Dim objDictionary As AcadDictionary
Dim objFilter As AcadObject
On Error GoTo Err_Ctrl
strSubName = "PurgeFilter.DVB"
Set objDictionary = ThisDrawing.Layers.GetExtensionDictionary("ACAD_LAYERFILTERS")
For Each objFilter In objDictionary
objFilter.Delete
Next
If Left(ThisDrawing.GetVariable("ACADVER"), 2) = "16" Then
Set objDictionary = ThisDrawing.Layers.GetExtensionDictionary("ACLYDICTIONARY")
For Each objFilter In objDictionary
    objFilter.Delete
Next objFilter
End If
Exit_Here:
Exit Sub

Err_Ctrl:
Select Case Err.Number
    Case -2145386476
      Err.Clear
      Resume Next
    Case Else
      MsgBox "An Error occurred in " & strSubName & "." & vbCr & vbCr _
      & "Error number: " & Err.Number & vbCr & Err.Description & vbCr & vbCr _
      & "DUM DIGga DUM DIGga DIGga DIGga DUM", vbCritical, _
      "Error in " & strSubName
      GoTo Exit_Here
End Select
      
End Sub

2）

Bryco 发表于 2006-6-7 14:32:41

有一个特立独行的人，把所有这些都变得至关重要。

查看完整版本: 命名层过滤器