Jump to content

[Help] Layer except off lisp

nanocad lisp

  • You cannot reply to this topic
No replies to this topic

#1 hkgom


  • Members
  • Pip
  • 1 posts

Posted 27 July 2018 - 08:09 AM

is anyone have lisp for layer except off ?

i found layer off lisp however i coundnt find layer off except i selected layers

below command is for Autocad but it is not working promptly

(defun c:ww(/ ss n k en cly oly)
(setq ss (ssget))
(setq n (sslength ss))
(setq k 0)
(setq cly (cdr (assoc 8 (entget (ssname ss (1- n))))))
(command "layer" "s" cly "")
(command "layer" "off" "*" "" "")
(while (<= 1 n)
(setq en (ssname ss k))
(setq oly (cdr (assoc 8 (entget en))))
(command "layer" "on" oly "")
(setq n (- n 1))
(setq k (+ k 1))

is there any method to change above command? or new command ?


1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users