Clean up

[flowerrobot]

Hi all,

Im feed up like many with people not useing layers, so when you come to some ones dwg's to copy,edit,upgrade

it leaves things quite painfull for me at times.

 

So using the filter command im thinking of a list that will place all red lines on the red layer with all settings set to bylayer.

simple, well yer,

but how would i go about doing that with all the blocks in the dwg's, so the stuff in the blocks are set by layer aswell.

but the trick thing is, how would i set some blocks to be left alone?.

eg i dnt want a block called a3 to be touched at all, as its my border, and things like this?

[wizman]

mr. michael kolomiyets have a routine suits for you. have a look for brp.lsp at cadalyst.com

[Lee Mac]

HI Flowerrobot,

 

This LISP contains something like what you are after - you could alter it to suit your needs.

 

; Txtlay, created by Lee McDonnell October 2008



(defun c:txtlay (/ ss ans)
   
   (setvar "cmdecho" 0)
   (setq laylist '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" 
           "BORDER" "Defpoints" "DIM" "SIGNATURE")
   ) ; end setq

   ; for each Layer in laylist
   (foreach n laylist
       (if 
           (setq ss (ssget "X" 
                   (list 
                       (cons 0 "TEXT")
                       (cons 410 (getvar "ctab"))
                       (cons 8 n)
                   ) ; end list
               ) ; end ssget
           ) ; end setq
           (progn
               (sssetfirst nil ss)
               (initget "Yes No")
               (setq ans (getkword "Change Selected Entities to Text Layer? [Yes/No] <Yes> :" ))
               (if
                   (/= ans "No")
                   (progn
                       (command "_.chprop"
                           ss ""
                           "LA"
                           "TEXT"
                           "C"
                           "bylayer"
                           ""
                       ) ; end property change
                   ) ; end progn
               ) ; end if
           ) ; end progn
       ) ; end if
   ) ; end foreach
   (setvar "cmdecho" 1)
   (prompt "\nFunction Complete.")
   (princ)
) ; end program