| Author |
Message |
jazu
Guest
|
 Posted:
Mon Aug 29, 2005 8:10 am Post subject:
Lisp needed |
|
|
Hi
I'm looking for lisp that lock all layer except the picked entity, next
unlock layers back.
thanks
|
|
| Back to top |
|
 |
Longshot
Guest
|
| Posted:
Mon Aug 29, 2005 4:10 pm Post subject:
Re: Lisp needed |
|
|
express tools has a similar option. go to layer manager & lock all, then
pick on the entity you which to unlock the layer of.
"jazu" <nospam> wrote in message news:11h5auhej5ilpee@corp.supernews.com...
| Quote: | Hi
I'm looking for lisp that lock all layer except the picked entity, next
unlock layers back.
thanks
|
|
|
| Back to top |
|
|
jazu
Guest
|
| Posted:
Thu Sep 01, 2005 8:10 am Post subject:
Re: Lisp needed |
|
|
this is the way im doing, so I want faster metod
"Longshot" <Longshot@aol.com> wrote in message
news:c8DQe.74063$084.48523@attbi_s22...
| Quote: | express tools has a similar option. go to layer manager & lock all, then
pick on the entity you which to unlock the layer of.
"jazu" <nospam> wrote in message
news:11h5auhej5ilpee@corp.supernews.com...
Hi
I'm looking for lisp that lock all layer except the picked entity, next
unlock layers back.
thanks
|
|
|
| Back to top |
|
|
Jim Claypool
Guest
|
| Posted:
Thu Sep 01, 2005 4:10 pm Post subject:
Re: Lisp needed |
|
|
This will do what you want. Use layerp to return layers to their previous
state.
(defun c:layerlock ( / ename layname)
(while (not (setq ename (entsel "\nSelect object on desired layer: "))))
(setq ename (car ename))
(setq layname (cdr (assoc 8 (entget ename))))
(command ".layer" "s" layname "lo" "*" "U" layname "")
(princ (strcat "\nAll layers locked except " layname))
(princ)
)
"jazu" <nospam> wrote in message news:11hcunh8ss1399b@corp.supernews.com...
| Quote: | this is the way im doing, so I want faster metod
"Longshot" <Longshot@aol.com> wrote in message
news:c8DQe.74063$084.48523@attbi_s22...
express tools has a similar option. go to layer manager & lock all, then
pick on the entity you which to unlock the layer of.
"jazu" <nospam> wrote in message
news:11h5auhej5ilpee@corp.supernews.com...
Hi
I'm looking for lisp that lock all layer except the picked entity, next
unlock layers back.
thanks
|
|
|
| Back to top |
|
|
jazu
Guest
|
| Posted:
Fri Sep 02, 2005 8:10 am Post subject:
Re: Lisp needed |
|
|
thanks
Is it possible unlocking some layers by picking them? Say I have some
layers. Using ur lisp I lock all except one. Next I want to unlock just one
layer by picking it.
jazu
"Jim Claypool" <jclaypool(removethis)@kc.rr.com> wrote in message
news:d0FRe.19293$mb4.15501@tornado.rdc-kc.rr.com...
| Quote: | This will do what you want. Use layerp to return layers to their previous
state.
(defun c:layerlock ( / ename layname)
(while (not (setq ename (entsel "\nSelect object on desired layer: "))))
(setq ename (car ename))
(setq layname (cdr (assoc 8 (entget ename))))
(command ".layer" "s" layname "lo" "*" "U" layname "")
(princ (strcat "\nAll layers locked except " layname))
(princ)
)
"jazu" <nospam> wrote in message
news:11hcunh8ss1399b@corp.supernews.com...
this is the way im doing, so I want faster metod
"Longshot" <Longshot@aol.com> wrote in message
news:c8DQe.74063$084.48523@attbi_s22...
express tools has a similar option. go to layer manager & lock all, then
pick on the entity you which to unlock the layer of.
"jazu" <nospam> wrote in message
news:11h5auhej5ilpee@corp.supernews.com...
Hi
I'm looking for lisp that lock all layer except the picked entity, next
unlock layers back.
thanks
|
|
|
| Back to top |
|
|
Michael Bulatovich
Guest
|
| Posted:
Fri Sep 02, 2005 4:10 pm Post subject:
Re: Lisp needed |
|
|
There is a Bonus/Express tool to do this, which you may have. Used to be
"LAYULK"
--
MichaelB
www.michaelbulatovich.ca
"jazu" <nospam> wrote in message news:11hfqkaip5locc8@corp.supernews.com...
| Quote: | thanks
Is it possible unlocking some layers by picking them? Say I have some
layers. Using ur lisp I lock all except one. Next I want to unlock just
one layer by picking it.
jazu
"Jim Claypool" <jclaypool(removethis)@kc.rr.com> wrote in message
news:d0FRe.19293$mb4.15501@tornado.rdc-kc.rr.com...
This will do what you want. Use layerp to return layers to their previous
state.
(defun c:layerlock ( / ename layname)
(while (not (setq ename (entsel "\nSelect object on desired layer: "))))
(setq ename (car ename))
(setq layname (cdr (assoc 8 (entget ename))))
(command ".layer" "s" layname "lo" "*" "U" layname "")
(princ (strcat "\nAll layers locked except " layname))
(princ)
)
"jazu" <nospam> wrote in message
news:11hcunh8ss1399b@corp.supernews.com...
this is the way im doing, so I want faster metod
"Longshot" <Longshot@aol.com> wrote in message
news:c8DQe.74063$084.48523@attbi_s22...
express tools has a similar option. go to layer manager & lock all,
then
pick on the entity you which to unlock the layer of.
"jazu" <nospam> wrote in message
news:11h5auhej5ilpee@corp.supernews.com...
Hi
I'm looking for lisp that lock all layer except the picked entity,
next
unlock layers back.
thanks
|
|
|
| Back to top |
|
|
Jim Claypool
Guest
|
| Posted:
Fri Sep 02, 2005 4:10 pm Post subject:
Re: Lisp needed |
|
|
Basically the same thing.
(defun c:layerunlock ( / ename layname)
(while (not (setq ename (entsel "\nSelect object on desired layer: "))))
(setq ename (car ename))
(setq layname (cdr (assoc 8 (entget ename))))
(command ".layer" "u" layname "")
(princ (strcat "\nLayer " layname " is unlocked"))
(princ)
)
"jazu" <nospam> wrote in message news:11hfqkaip5locc8@corp.supernews.com...
| Quote: | thanks
Is it possible unlocking some layers by picking them? Say I have some
layers. Using ur lisp I lock all except one. Next I want to unlock just
one layer by picking it.
jazu
"Jim Claypool" <jclaypool(removethis)@kc.rr.com> wrote in message
news:d0FRe.19293$mb4.15501@tornado.rdc-kc.rr.com...
This will do what you want. Use layerp to return layers to their previous
state.
(defun c:layerlock ( / ename layname)
(while (not (setq ename (entsel "\nSelect object on desired layer: "))))
(setq ename (car ename))
(setq layname (cdr (assoc 8 (entget ename))))
(command ".layer" "s" layname "lo" "*" "U" layname "")
(princ (strcat "\nAll layers locked except " layname))
(princ)
)
"jazu" <nospam> wrote in message
news:11hcunh8ss1399b@corp.supernews.com...
this is the way im doing, so I want faster metod
"Longshot" <Longshot@aol.com> wrote in message
news:c8DQe.74063$084.48523@attbi_s22...
express tools has a similar option. go to layer manager & lock all,
then
pick on the entity you which to unlock the layer of.
"jazu" <nospam> wrote in message
news:11h5auhej5ilpee@corp.supernews.com...
Hi
I'm looking for lisp that lock all layer except the picked entity,
next
unlock layers back.
thanks
|
|
|
| Back to top |
|
|
|
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in