TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: MSTG007 on July 17, 2017, 12:06:03 PM
-
The lisp below does most of what I need it to do. Basically "for me" its similar to layerisolate. I then select all on the screen.
(defun C:SELECTLAYER ( / e lay)
(setq e (nentsel "Select entity on a layer: "))
(if e (ssget "_X" (list(cons 8 (cdr(assoc 8 (entget(car e))))))))
(command "_select" "previous")
)
(C:SELECTLAYER)
I can usually run the routine but hit cancel, type in select previous and I get the result I am looking for. Am I missing another line? Thanks!!!
-
Maybe this?
(defun c:selectlayer
(/ e
) )
)
-
Sometimes, ( I wanna smack myself in the head ). Thanks for the save again!
-
Hi
Here's a way which honors pickfirst and can also be used within a "Select object" prompt (entering (ssl) expression).
-
Neat... Thank you for sharing!
-
This works the same as ronjonp's [ if not worse ] :
I'm just playin around and practice.
-
FWIW, '(lambda (x) (eval x)) could be 'eval
-
FWIW, '(lambda (x) (eval x)) could be 'eval
Duhh!
Thanks, Lee! :)