Topic: Challenge ( layer report )

[CAB]

OK Evgeniy, thanks for keeping me honest.

Code: [Select]

(defun c:layreport (/ delset elay etype ent sset)
  (and
    (setq ent (car (entsel)))
    (setq sset (ssget "x" (list (cons 8 (setq elay (cdr (assoc 8 (entget ent))))))))
    (while (setq ent (ssname sset 0))
      (setq etype (cdr (assoc 0 (entget (ssname sset 0)))))
      (setq delset (ssget "x" (list (cons 0 etype) (cons 8 elay))))
      (princ (strcat "\n--------->" etype "(" (itoa (sslength delset)) ")"))
      (while (setq ent (ssname delset 0))
        (ssdel ent sset)
        (ssdel ent delset)
      )
    )
  )
  (princ)
)
Outstanding as always Michael.