[Vladimir_Sergeevich]

не так давно на нашем форуме стибрил функцию создания фильтра слов.

Код:

[Выделить все]

 (defun dict:MlayerF (NAME FILTER / LayTbl ExtDict LayColl
ExtDictData GrpList NewDict
Temp XdLst XrecData NewXRec
)
(setq LayTbl (cdr (assoc 330 (entget (tblobjname "LAYER" "0")))))
(setq ExtDict (cdr (assoc 360 (entget LayTbl))))
(if
(not ExtDict)
(progn
(vl-load-com)
(setq LayColl (vla-get-layers (vla-get-activedocument
(vlax-get-acad-object))))
(setq ExtDict (vla-GetExtensionDictionary LayColl))
(setq ExtDict (vlax-vla-object->ename ExtDict))
)
)
(setq ExtDictData (entget ExtDict))
(while ExtDictData
(setq Temp
(if (= (caar ExtDictData) 3)
(list (cons (cdr (car ExtDictData))
(cdr (cadr ExtDictData))))
)
ExtDictData (cdr ExtDictData)
)
(setq GrpList (append GrpList Temp))
)
(if
(or (not GrpList)
(not (cdr (assoc "ACAD_LAYERFILTERS" GrpList))))
(progn
(setq DictList (list (cons 0 "DICTIONARY")
(cons 100 "AcDbDictionary")))
(setq NewDict (entmakex DictList))
(setq NewDict (dictadd ExtDict "ACAD_LAYERFILTERS" NewDict))
)
(setq NewDict (cdr (assoc "ACAD_LAYERFILTERS" GrpList)))
)
(setq ExtDictData Nil Temp Nil GrpList Nil)
(setq ExtDictData (entget NewDict))
(while ExtDictData
(setq Temp
(if (= (caar ExtDictData) 3)
(list (cons (cdr (car ExtDictData))
(cdr (cadr ExtDictData))))
)
ExtDictData (cdr ExtDictData)
)
(setq GrpList (append GrpList Temp))
)
(if
(or (not GrpList)
(not (cdr (assoc FILTER GrpList)))
)
(progn
(setq XdLst (list (cons 0 "XRECORD")
(cons 100 "AcDbXrecord")))
(setq XrecData
(append XdLst
(list (cons 1 NAME)(cons 1 FILTER)(cons 1 "*")(cons 1 "*")
(cons 70 0)(cons 1 "*")(cons 1 "*")))
)
(setq NewXRec (entmakex XRecData))
(dictadd NewDict Name NewXRec)
)
Nil
)
)

вызываю её (dict:MLayerF "проектные слои" "~*|*")
и фильтр вроде бы как и появляется, токо с одним НО.
при активном фильтре в селекторе слоев болтаются ВСЕ слои. скрин прикладываю.
если закрыть чертеж и открыть снова или создать другой фильтр - все начинает работать как надо.

и вот собственно вопрос: этот баг - результат недоделанности кода или же дело в самом автокаде?
з.ы. акад 2010 рус

[Кулик Алексей aka kpblc]

Если такой фильтр создать руками - какой будет результат?

[Vladimir_Sergeevich]

Когда создавал руками - сразу показывает только слои по фильтру. это обычный фильтр по свойствам с маской по имени.
Когда надоело на каждом новом чертеже делать одно и то же - нашел функцию создания этого фильтра, но вот обнаружил такую неприятность небольшую.
Повторю еще один момент: если создать другой фильтр (я его и удалал сразу), созданный программно начинает работать как должен.