[讨论] 关于图层的隔离！！！

chenjian2159

关于图层的隔离，即选择图元后，被选择图元所在的层保持开的状态，别的图层关闭。现在下面的    lisp有个问题，不管选择一个层上的图元还是多个层上的图元，结果都只能隔离一个图层，不能隔离多个图层，希望高手能帮着改一下！！！谢谢！！！

 

(defun c:ee (/ ent entlist lname selent m)
  (setq selent(ssget) m -1)
  (while (< (setq m(1+ m)) (sslength selent))
    (setq entlist (entget (ssname selent m)))
    (setq lname (cdr(assoc 8 entlist)))
    (command "layer" "off" "*" "y" "on" lname "")
  ) 
)

chenjian2159

另外感觉这个lisp不是很完美，希望高手能写一个完美的。感激不尽！！！

masterlong

(defun c:lo()
 (setvar "cmdecho" 0)
 (setq sels (ssget) )
 (if sels (lomain) )
(princ)
)

(defun lomain()
 (setq n (sslength sels) )
 (setq llist '() )
 (repeat n
  (setq a (ssname sels (setq n (1- n))) )
  (setq b (cdr (assoc 8 (entget a))) )
  (if (member b llist)
   ()
    (setq llist (cons b llist) )
   )
  )
 )
   (if (member (getvar "clayer") llist)
     ()
     (setvar "clayer" (setq lay (last llist)))
   )

   (command "layer" "off" "*" "y")
   (foreach x llist (command "on" x))
   (command "")
)

AMTONNY

这个好简单哦

atone

留个记号，好贴

叁點壹肆

插【实用的