Topic: Isolate specific layers

[antistar]

Hi to all,
I need a routine that isolates specific layers via LISP, even though these layers are frozen or off.
The names of layers are: E-MET, E-WOOD, E-PIPE and E-CONC.

Thanks in advance.

[Lee Mac]

LAYISO?

[antistar]

LAYISO?

Hi Lee,
The LAYISO command prompts you to select objects.
I would be isolated to specific layers automatically.

[ronjonp]

Code: [Select]

(defun c:nameit (/)
  (vlax-map-collection
    (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
    (function (lambda (x)
(if (wcmatch (strcase (vla-get-name x)) "E-MET,E-WOOD,E-PIPE,E-CONC")
  (progn (vl-catch-all-apply 'vlax-put (list x 'freeze 0))
(vl-catch-all-apply 'vlax-put (list x 'layeron -1))
  )
  (progn (vl-catch-all-apply 'vlax-put (list x 'freeze -1))
(vl-catch-all-apply 'vlax-put (list x 'layeron 0))
  )
)
      )
    )
  )
  (princ)
)

[Tharwat]

Check this post out
http://www.cadtutor.net/forum/showthread.php?77959-How-to-layiso-special-three-layers-use-autolisp&p=526637&viewfull=1#post526637

[antistar]

Code: [Select]

(defun c:nameit (/)
  (vlax-map-collection
    (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
    (function (lambda (x)
(if (wcmatch (strcase (vla-get-name x)) "E-MET,E-WOOD,E-PIPE,E-CONC")
  (progn (vl-catch-all-apply 'vlax-put (list x freeze 0))
(vl-catch-all-apply 'vlax-put (list x layeron -1))
  )
  (progn (vl-catch-all-apply 'vlax-put (list x freeze -1))
(vl-catch-all-apply 'vlax-put (list x layeron 0))
  )
)
      )
    )
  )
  (princ)
)

Hi ronjonp,
Thank you so much for your time and reply, but doesn't work to me. 

[ronjonp]

I updated my post above missed 4 quotes 

[antistar]

Check this post out
http://www.cadtutor.net/forum/showthread.php?77959-How-to-layiso-special-three-layers-use-autolisp&p=526637&viewfull=1#post526637

Hi Tharwat,
Thanks a lot for your reply.
Works perfectly. 

[Tharwat]

Check this post out
http://www.cadtutor.net/forum/showthread.php?77959-How-to-layiso-special-three-layers-use-autolisp&p=526637&viewfull=1#post526637

Hi Tharwat,
Thanks a lot for your reply.
Works perfectly. 

Happy to hear that .

You're welcome .

[antistar]

I updated my post above missed 4 quotes 

Now runs perfectly.
Thank you very much.

Regards.