Topic: Layer Counter, No Xref Layers

[V-Man]

I have the following code to tell me how many layers reside in the current drawing. How do I OMIT XREF layers?

Code: [Select]


(setq table-list3 nil)
(setq lay3 (tblnext "layer" T))
(while lay3
(setq lname3 (cdr (assoc 2 lay3))
lclr3 (cdr (assoc 62 lay3))
)
(if (/= lname3 "0")
(setq laytype3 (cdr (assoc 6 lay3))
table-list3 (cons lname3 table-list3)
)
)
(setq lay3 (tblnext "layer"))
)
(setq table-list3
(reverse table-list3)
cnt3 0
)
(setq bad-list3 nil)
(setq res-str3 (strcat "This drawing has "
(itoa (length table-list3))
" layers in it\n"
)
)


[CAB]

You could try this.

Code: [Select]

(defun c:laycount ()
  (setq table-list3 nil)
  (setq lay3 (tblnext "layer" t))
  (while lay3
    (setq lname3 (cdr (assoc 2 lay3))
 lclr3 (cdr (assoc 62 lay3))
    )
    (if (null (or (= lname3 "0") (wcmatch lname3 "*|*")))
      (setq laytype3 (cdr (assoc 6 lay3))
   table-list3 (cons lname3 table-list3)
      )
    )
    (setq lay3 (tblnext "layer"))
  )
  (setq table-list3
(reverse table-list3)
cnt3 0
  )
  (setq bad-list3 nil)
  (setq res-str3 (strcat "\nThis drawing has "
(itoa (length table-list3))
" layers in it"
)
  )
)