FIND MISSING LAYER ?

[jaimuthu]

I have standard layer A B C AND D i draw object use the standard layer a b c  i did not use  layer D find the Missing layer in msgbox

(defun C:FindMissingLayers (/ standardLayers existingLayers missingLayers)
  (setq standardLayers '("A" "B" "C" "D")) ; Define your standard layers here
  (setq existingLayers '())

  (foreach layer standardLayers
    (if (tblsearch "LAYER" (strcat "ACAD_LAYER:" layer))
      (setq existingLayers (cons layer existingLayers))
    )
  )

  (setq missingLayers (vl-remove-if '(lambda (x) (member x existingLayers)) standardLayers))

  (if (null missingLayers)
    (alert "No missing layers found.")
    (alert (strcat "Missing layers: " (apply 'strcat (mapcar '(lambda (x) (strcat x ", ")) missingLayers))))
  )
)

[paullimapa · Accepted solution]

change this:

  (foreach layer standardLayers
    (if (tblsearch "LAYER" (strcat "ACAD_LAYER:" layer))
      (setq existingLayers (cons layer existingLayers))
    )
  )

to this:

(foreach layer standardLayers
    (if (and(tblsearch "LAYER" layer)(ssget"x"(list(cons 8 layer))))
       (setq existingLayers (cons layer existingLayers))
    )
)

[jaimuthu]

THANKS FOR YOUR REPLY ITS WORK FINE

[paullimapa]

glad to have helped...cheers!!!