[Scorpion_n]

Приветствую,
вопрос как в титуле:
Пытаюсь создать фильтр слоёв программно, точнее сказать используя только коммандную строку.
(вписать в диалоговом окне маску фильтра уже научился :-), нужен скрипт)

Делаю так:

_.-layer
_filter
_New
_P
_All
Enter property filter definition: Ну и тут облом, ничего не могу найти на тему как должен выглядеть 'этот "Definition".
Третий день играюсь, перетрусил уже кучу форумов...

Подскажите, плиз, кто знает.

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

http://www.google.ru/cse?cx=partner-...%B2&gsc.page=1

[Scorpion_n]

Я это всё видел, но нигде не могу найти как программно создать дефиницию фильтра.
Везде только функции манипулирования (переключить фильтр, удалить, активировать и т.д.)

Вопрос, как вписать в коммандной строке что я хочу фильтр слоёв с именами "235*" на пример...

[VVA]

http://www.theswamp.org/index.php?topic=36745.0

Код:

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

; MLF.lsp
; December 2010  (The swamp.org) 
;====================================================================================================
(defun c:MLF(/ FILTLST LFILTOBJ SAFECODE SAFEFILT) 
  (vl-load-com) 
  (setq FILTLST  (list 
                  	 ;;name  	Lay 	col  	lt  flags 	lw  	plot 
                   (list "Group_00" 	"0*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_10" 	"1*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_20" 	"2*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_30" 	"3*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_40" 	"4*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_50" 	"5*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_60"	"6*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_70"	"7*"	"*"	"*" 0 		"*"	"*") 
                   (list "Group_80"	"8*"	"*"	"*" 0	 	"*"	"*") 
                   (list "Group_90"	"9*"	"*"	"*" 0 		"*"	"*") 
                   
                 ) 
        LFILTOBJ (vla-addobject 
                   (vla-GetExtensionDictionary 
                     (vla-Get-Layers 
                       (vla-Get-ActiveDocument 
                         (vlax-Get-Acad-Object) 
                       ) 
                     ) 
                   ) 
                   "ACAD_LAYERFILTERS" 
                   "AcDbDictionary" 
                 ) 
        SAFECODE (vlax-make-safearray 2 '(0 . 6)) 
        SAFEFILT (vlax-make-safearray 12 '(0 . 6)) 
  ) 
  (vlax-safearray-fill SAFECODE (list 1 1 1 1 70 1 1)) 
  (foreach 
         SUBLST FILTLST 
    (vlax-safearray-fill 
      SAFEFILT 
      (mapcar '(lambda (X) (vlax-make-variant X 8)) SUBLST) 
    ) 
    (vla-addxrecord LFILTOBJ (nth 0 SUBLST)) 
    (vla-setxrecorddata 
      (vla-item LFILTOBJ (nth 0 SUBLST)) 
      SAFECODE 
      SAFEFILT 
    ) 
  ) 
  (princ) 
  (princ "\nAll Layer Filters have been created.") 
  (princ) 
)

В твоем случае

Код:

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

; MLF.lsp
; December 2010  (The swamp.org) 
;====================================================================================================
(defun c:MLF(/ FILTLST LFILTOBJ SAFECODE SAFEFILT) 
  (vl-load-com) 
  (setq FILTLST  (list 
                  	 ;;name  	Lay 	col  	lt  flags 	lw  	plot 
                   (list "Scorpion_n" 	"235*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_10" 	"1*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_20" 	"2*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_30" 	"3*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_40" 	"4*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_50" 	"5*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_60"	"6*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_70"	"7*"	"*"	"*" 0 		"*"	"*") 
;;;                   (list "Group_80"	"8*"	"*"	"*" 0	 	"*"	"*") 
;;;                   (list "Group_90"	"9*"	"*"	"*" 0 		"*"	"*") 
                   
                 ) 
        LFILTOBJ (vla-addobject 
                   (vla-GetExtensionDictionary 
                     (vla-Get-Layers 
                       (vla-Get-ActiveDocument 
                         (vlax-Get-Acad-Object) 
                       ) 
                     ) 
                   ) 
                   "ACAD_LAYERFILTERS" 
                   "AcDbDictionary" 
                 ) 
        SAFECODE (vlax-make-safearray 2 '(0 . 6)) 
        SAFEFILT (vlax-make-safearray 12 '(0 . 6)) 
  ) 
  (vlax-safearray-fill SAFECODE (list 1 1 1 1 70 1 1)) 
  (foreach 
         SUBLST FILTLST 
    (vlax-safearray-fill 
      SAFEFILT 
      (mapcar '(lambda (X) (vlax-make-variant X 8)) SUBLST) 
    ) 
    (vla-addxrecord LFILTOBJ (nth 0 SUBLST)) 
    (vla-setxrecorddata 
      (vla-item LFILTOBJ (nth 0 SUBLST)) 
      SAFECODE 
      SAFEFILT 
    ) 
  ) 
  (princ) 
  (princ "\nAll Layer Filters have been created.") 
  (princ) 
)

Еще хорошие ссылки
http://forums.augi.com/showpost.php?...47&postcount=3
http://cadxp.com/index.php?/topic/20...res-de-calque/

[Scorpion_n]

Выбрасывает ошибку:
error: Automation Error. AcRxClassName entry is not in the system registry


:-(