[编程交流] GroupLayerFil之间的关系

; Helper functions:
(defun DT ( o / ) (if (= (type o) 'VLA-OBJECT) (vlax-dump-object o T))) ; Dump True (I'm using it as a shortcut)
(defun GetExtDict ( o / ) (if (and (= (type o) 'VLA-OBJECT) (vlax-method-applicable-p o 'GetExtensionDictionary)) (vlax-invoke o 'GetExtensionDictionary)))
(defun DTColl ( coll / ) (if (= (type coll) 'VLA-OBJECT) (vlax-for o coll (vlax-dump-object o T)))) ; Dump True (everything inside of a collection)
(defun Coll->Lst ( #Collection / Lst ) (vlax-for o #Collection (setq Lst (cons o Lst))) (reverse Lst)); convert Collection into List
; Start digging:
(setq AcLay (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq ExtDictAcLay (GetExtDict AcLay))
(setq LayColl (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq ExtDictCollOfLayersColl (GetExtDict LayColl))
; (DTColl ExtDictCollOfLayersColl) ; inside of it there are: ACAD_LAYERFILTERS ACAD_LAYERSTATES ACLYDICTIONARY
(setq LAYERFILTERS (vla-item ExtDictCollOfLayersColl "ACAD_LAYERFILTERS"))
(setq LAYERSTATES (vla-item ExtDictCollOfLayersColl "ACAD_LAYERSTATES"))
(setq ACLYDICTIONARY (vla-item ExtDictCollOfLayersColl "ACLYDICTIONARY"))
_$ (DTcoll LAYERFILTERS)
; IAcadXRecord: XRecord objects are used to store and manage arbitrary data
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff78a999110>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000002a7ec52b78>
;   Handle (RO) = "20C"
;   HasExtensionDictionary (RO) = 0
;   Name = "Group1"
;   ObjectID (RO) = 42
;   ObjectName (RO) = "AcDbXrecord"
;   OwnerID (RO) = 43
;   TranslateIDs = -1
; Methods supported:
;   Delete ()
;   GetExtensionDictionary ()
;   GetXData (3)
;   GetXRecordData (2)
;   SetXData (2)
;   SetXRecordData (2)
; IAcadXRecord: XRecord objects are used to store and manage arbitrary data
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff78a999110>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000002a7ec52b78>
;   Handle (RO) = "20E"
;   HasExtensionDictionary (RO) = 0
;   Name = "Group2"
;   ObjectID (RO) = 44
;   ObjectName (RO) = "AcDbXrecord"
;   OwnerID (RO) = 43
;   TranslateIDs = -1
; Methods supported:
;   Delete ()
;   GetExtensionDictionary ()
;   GetXData (3)
;   GetXRecordData (2)
;   SetXData (2)
;   SetXRecordData (2)
; IAcadXRecord: XRecord objects are used to store and manage arbitrary data
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff78a999110>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000002a7ec52b78>
;   Handle (RO) = "210"
;   HasExtensionDictionary (RO) = 0
;   Name = "Group3"
;   ObjectID (RO) = 45
;   ObjectName (RO) = "AcDbXrecord"
;   OwnerID (RO) = 43
;   TranslateIDs = -1
; Methods supported:
;   Delete ()
;   GetExtensionDictionary ()
;   GetXData (3)
;   GetXRecordData (2)
;   SetXData (2)
;   SetXRecordData (2)
; IAcadXRecord: XRecord objects are used to store and manage arbitrary data
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff78a999110>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000002a7ec52b78>
;   Handle (RO) = "212"
;   HasExtensionDictionary (RO) = 0
;   Name = "Group4"
;   ObjectID (RO) = 46
;   ObjectName (RO) = "AcDbXrecord"
;   OwnerID (RO) = 43
;   TranslateIDs = -1
; Methods supported:
;   Delete ()
;   GetExtensionDictionary ()
;   GetXData (3)
;   GetXRecordData (2)
;   SetXData (2)
;   SetXRecordData (2)
T
_$ 

; To create the test Layers with their LayerGroupFilters:
(defun C:ForTest ( / LayGroupNames LayLstGroup1 LayLstGroup2 LayLstGroup3 LayLstGroup4 n)
(defun CreateLayer ( #Name / )
        (entmake 
                (list
                        (cons 0 "LAYER")
                        (cons 100 "AcDbSymbolTableRecord")
                        (cons 100 "AcDbLayerTableRecord")
                        (cons 2 #Name)
                        (cons 70 0)
                )
        )
)
(setq LayGroupNames '("Group1" "Group2" "Group3" "Group4"))
(setq 
        LayLstGroup1 '("Group1-Lay1" "Group1-Lay2" "Group1-Lay3" "Group1-Lay4" "Group1-Lay5" "Group1-Lay6" "Group1-Lay7")
        LayLstGroup2 '("Group2-Lay1" "Group2-Lay2" "Group2-Lay3" "Group2-Lay4" "Group2-Lay5" "Group2-Lay6" "Group2-Lay7")
        LayLstGroup3 '("Group3-Lay1" "Group3-Lay2" "Group3-Lay3" "Group3-Lay4" "Group3-Lay5" "Group3-Lay6" "Group3-Lay7")
        LayLstGroup4 '("Group4-Lay1" "Group4-Lay2" "Group4-Lay3" "Group4-Lay4" "Group4-Lay5" "Group4-Lay6" "Group4-Lay7")
)
(setq n 0)
(foreach x (list LayLstGroup1 LayLstGroup2 LayLstGroup3 LayLstGroup4)
        (mapcar 'CreateLayer x)
        (command "._-layer" "filter" "new" "property" "All" (strcat "NAME=="" (nth n LayGroupNames) "*"") (nth n LayGroupNames) "X" nil)
        (setq n (1+ n))
)
(princ)
); defun C:ForTest

(defun C:test ( / ld AllLyrNames LayersColl LFtContainer MyLayerFilterNames Lst FtsLst)
(while (setq ld (tblnext "LAYER" (not ld)))
        (setq AllLyrNames (cons (cdr (assoc 2 ld)) AllLyrNames))
)
(setq LayersColl (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq LFtContainer (vla-item (vla-GetExtensionDictionary LayersColl) "ACAD_LAYERFILTERS"))
(vlax-map-collection LFtContainer '(lambda (x) (setq MyLayerFilterNames (cons (vla-get-Name x) MyLayerFilterNames))))
; (if MyLayerFilterNames
; (foreach x (reverse MyLayerFilterNames)
; (print (HowMyLayerFilterIsCreated x))
; )
; )
(if MyLayerFilterNames
        (progn
                (if (not Lst) (setq Lst (list)))
                (setq FtsLst (mapcar 'HowMyLayerFilterIsCreated MyLayerFilterNames))
                (foreach Ft FtsLst
                        (setq Lst (append Lst (mapcar '(lambda (x) (if (wcmatch x (cadr Ft)) (cons (car Ft) x))) AllLyrNames)))
                )
                (setq Lst (reverse (vl-remove nil Lst)))
                (foreach x Lst (print x))
        )
); if MyLayerFilterNames
(princ)
); defun C:test
(defun HowMyLayerFilterIsCreated ( LyrFilterName / LayersColl LFtContainer MyLayerFilter XRecordDataLst MyLayerFilterXRecordDataType MyLayerFilterXRecordData )
(if 
        (and
                (setq LayersColl (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
                (setq LFtContainer (vla-item (vla-GetExtensionDictionary LayersColl) "ACAD_LAYERFILTERS"))
                (setq MyLayerFilter (vla-item LFtContainer LyrFilterName))
        )
        (progn
                (vla-GetXRecordData MyLayerFilter 'MyLayerFilterXRecordDataType 'MyLayerFilterXRecordData)
                (setq XRecordDataLst (mapcar 'vlax-variant-value (vlax-safearray->list MyLayerFilterXRecordData)))
        )
)
XRecordDataLst
);| defun HowMyLayerFilterIsCreated |; (or (vlax-get-acad-object) (vl-load-com))

Command: TEST
("Group1" . "Group1-Lay1")
("Group1" . "Group1-Lay2")
("Group1" . "Group1-Lay3")
("Group1" . "Group1-Lay4")
("Group1" . "Group1-Lay5")
("Group1" . "Group1-Lay6")
("Group1" . "Group1-Lay7")
("Group2" . "Group2-Lay1")
("Group2" . "Group2-Lay2")
("Group2" . "Group2-Lay3")
("Group2" . "Group2-Lay4")
("Group2" . "Group2-Lay5")
("Group2" . "Group2-Lay6")
("Group2" . "Group2-Lay7")
("Group3" . "Group3-Lay1")
("Group3" . "Group3-Lay2")
("Group3" . "Group3-Lay3")
("Group3" . "Group3-Lay4")
("Group3" . "Group3-Lay5")
("Group3" . "Group3-Lay6")
("Group3" . "Group3-Lay7")
("Group4" . "Group4-Lay1")
("Group4" . "Group4-Lay2")
("Group4" . "Group4-Lay3")
("Group4" . "Group4-Lay4")
("Group4" . "Group4-Lay5")
("Group4" . "Group4-Lay6")
("Group4" . "Group4-Lay7")

'("Group1" . '("Group1-Lay1" "Group1-Lay2" "Group1-Lay3" "Group1-Lay5" "Group1-Lay6" "Group1-Lay7"))
'("Group2" . '("Group2-Lay1" "Group2-Lay2" "Group2-Lay3" "Group2-Lay5" "Group2-Lay6" "Group2-Lay7"))
'("Group3" . '("Group3-Lay1" "Group3-Lay2" "Group3-Lay3" "Group3-Lay5" "Group3-Lay6" "Group3-Lay7"))
'("Group4" . '("Group4-Lay1" "Group4-Lay2" "Group4-Lay3" "Group4-Lay5" "Group4-Lay6" "Group4-Lay7"))

groupname = "Group1"
lsttemp = ("Group1-Lay1" "Group1-Lay2" "Group1-Lay3" "Group1-Lay5" "Group1-Lay6" "Group1-Lay7"))

(defun C:test ( / LayersColl LFtContainer MyLayerFilterNames )
(setq LayersColl (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq LFtContainer (vla-item (vla-GetExtensionDictionary LayersColl) "ACAD_LAYERFILTERS"))
(vlax-map-collection LFtContainer '(lambda (x) (setq MyLayerFilterNames (cons (vla-get-Name x) MyLayerFilterNames))))
(if MyLayerFilterNames
        (foreach x (reverse MyLayerFilterNames)
                (print (HowMyLayerFilterIsCreated x))
        )
)
(princ)
); defun C:test
(defun HowMyLayerFilterIsCreated ( LyrFilterName / LayersColl LFtContainer MyLayerFilter XRecordDataLst MyLayerFilterXRecordDataType MyLayerFilterXRecordData )
(if 
        (and
                (setq LayersColl (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
                (setq LFtContainer (vla-item (vla-GetExtensionDictionary LayersColl) "ACAD_LAYERFILTERS"))
                (setq MyLayerFilter (vla-item LFtContainer LyrFilterName))
        )
        (progn
                (vla-GetXRecordData MyLayerFilter 'MyLayerFilterXRecordDataType 'MyLayerFilterXRecordData)
                (setq XRecordDataLst (mapcar 'vlax-variant-value (vlax-safearray->list MyLayerFilterXRecordData)))
        )
)
XRecordDataLst
);| defun HowMyLayerFilterIsCreated |; (or (vlax-get-acad-object) (vl-load-com))

copy

Command: TEST
("Group1" "Group1*" "*" "*" 0 "*" "*")
("Group2" "Group2*" "*" "*" 0 "*" "*")
("Group3" "Group3*" "*" "*" 0 "*" "*")
("Group4" "Group4*" "*" "*" 0 "*" "*")

也许用每个层名对cadr进行wcmatch，然后以某种方式与car（代表组名）进行对比。
我认为我的这些清单与这一行有关：

 
恐怕你是对的，罗伊，因为我正在使用这一行创建这些示例属性过滤器：

copy

(command "._-layer" "filter" "new" "property" "All" (strcat "NAME=="" (nth n LayGroupNames) "*"") (nth n LayGroupNames) "X" nil)

我真的不知道这两者之间的区别：

但现在我看到，双击带有groupfilter名称的文件夹时，上面的对话框“Layer Filter Properties”只出现在创建的“Property”过滤器上，而不是“Group”过滤器上。
虽然我不确定我会为“群组”找到什么信息（HowMyLayerFilterIsCreated）。
我会进一步实验，至少我现在得到了我需要的“信息”。。。因此，这就成了一个列表构建/操作的问题。

(KGA_Sys_Apply 'vla-item (list (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "DoesNotExist"))
;;; ======================================================================
;;; Lib function: KGA_Sys_Apply
;;; Purpose:      Shortcut for standard "vl-catch-all construction".
;;; Arguments:    expr   - Expression to evaluate.
;;;               varLst - List of variables.
;;; Return value: Varies. Note: A nil value can mean two things: there was
;;;               an error or the expression returned nil.
;;;               Use (KGA_Sys_ApplyAlt) if this is a problem.
;;; Remarks:      None.
;;; Examples:
;;; (KGA_Sys_Apply 'strcat '("a" "bb" "ccc" 1))      => nil
;;; (KGA_Sys_Apply 'strcat '("a" "bb" "ccc" "dddd")) => "abbcccdddd"
;;; ======================================================================
(defun KGA_Sys_Apply (expr varLst / ret)
 (if (not (vl-catch-all-error-p (setq ret (vl-catch-all-apply expr varLst))))
   ret
 )
)
;;; Similar to (KGA_Sys_Apply) but the return value is T or nil (there was an error).
(defun KGA_Sys_ApplyAlt (expr varLst)
 (not (vl-catch-all-error-p (vl-catch-all-apply expr varLst)))
)

; modeT - if is set to true: then the return would be 'T or nil, otherwise the returned value or nil
; Examples: ;;; (ErrCatch nil '/ '(4 2)) -> 2 ;;; (ErrCatch T '/ '(4 2)) -> T ;;; (ErrCatch nil '/ '(4 0)) -> nil ;;; (ErrCatch T '/ '(4 0)) -> nil ;;;
(defun ErrCatch ( modeT func varLst / rtn ) (if (not (vl-catch-all-error-p (setq rtn (vl-catch-all-apply func varLst)))) (if modeT 'T rtn)) )

12