TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: mhy3sx on April 05, 2023, 10:03:55 AM

Title: Help : sent back a list of layers
Post by: mhy3sx on April 05, 2023, 10:03:55 AM

Hi, I am trying to set back a list of layers but something is missing. Can any one help ??

Code - Auto/Visual Lisp: [Select]

1. (defun c:test (/ ssb)
2. (command "_.Tilemode" 1) ; To model space
3.  (if (setq ssb ((ssget "_x" (list (8 . "0,lay1,lay2,lay3,lay4")))))
4.    (command "._draworder" ssb "" "_b")
5.  )
6.  (princ)
7. )
8.  
9.  

Thanks

Title: Re: Help : sent back a list of layers
Post by: Tharwat on April 05, 2023, 10:28:50 AM

Compare the following mods with your firstly posted.

Code - Auto/Visual Lisp: [Select]

1. (defun c:test (/ ssb)
2. (command "_.Tilemode" 1) ; To model space
3.  (if (setq ssb (ssget "_x" (list '(8 . "0,lay1,lay2,lay3,lay4"))))
4.    (command "._draworder" ssb "" "_b")
5.  )
6.  (princ)
7. )

Title: Re: Help : sent back a list of layers
Post by: mhy3sx on April 05, 2023, 11:59:30 AM

Thanks Tharwat

Title: Re: Help : sent back a list of layers
Post by: Tharwat on April 05, 2023, 01:15:24 PM

Quote from: mhy3sx on April 05, 2023, 11:59:30 AM

Thanks Tharwat

You're welcome anytime.