Topic: Layer Checker

[V-Man]

Enclosed is a progie that I have been working on for checking a drawings layers for compliance. (i.e. Color & Linetype). I would like for this to also check for the Layers NAME for compliance. How do I go aboout adding to this and which is the best way?

Code: [Select]


(defun layercheck (layername color linetype / layername color linetype)
        (if (setq entlist (tblsearch "LAYER" (strcat layername)))
          (progn
            (setq colorx (rtos (abs (cdr (assoc 62 entlist))) 2 0))
            (setq linetypex (cdr (assoc 6 entlist)))
            (if (or (/= color colorx)(/= (strcase linetype) (strcase linetypex)))
              (progn
                    (setq openval (findfile valname))
           (if (null openval)
              (setq vfile (open valname "w"))
              (setq vfile (open valname "a"))
           )              
                (princ (strcat "\nLayer " layername " is color " colorx
                           " but should be color " color ".\n"
                           "\nLayer " layername " is linetype " linetypex
                           " but should be linetype " linetype ".\n")vfile)
                           (close vfile)
              )
            ) ;end if
          )
          (progn)
        )
     )

;;Call Function

   (layercheck "A-ANNO-TEXT-SHEL" "1" "CONTINUOUS")
   (layercheck "A-ANNO-TEXT-TENT" "30" "CONTINUOUS")


Thanks,

Don

[Mark]

What do you mean by "compliance" ? If the layer isn't in the dwg the program returns nil.

[V-Man]

I mean, have a list if layers and have the routine check the layers in the drawing against the layer list in the routine for compliance. If you have a layer that should not be in a drawing, then it will be flagged to the user.