Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

vporrash141089
1022 Vistas, 8 Respuestas

Looking for some help to write a Lisp routine

Hi all!

 

Recently we have made  some modifications where I work and now we need to do extra work and very repetitively for example I need to open 100 different drawings one by one and select a hatch and change it from color red to bylayer which is magenta color 6. also I need to select a line/polyline which is in color green and need to manually change it to color 82.

 

I found this lisp by Lee Mac that does something similar but not quite what I need.

 

(defun c:cc (/ usercol ss)
 (while (or (not (setq usercol (getint "\nSpecify Colour Code >  ")))
        (not (<= 0 usercol 256))))
 (prompt "Select all object to change to one color.")
 (if (setq ss (ssget))
   (command "_.ChProp" ss "" "_C" usercol ""))
 (princ))?

 

This ask for user input to determine the desired color and then requests to select the entity and does it perfectly but I need my tool to do it automatically since it is 2 exact processes.

 

To recap I need help with a lisp that will

 

  • Select hatch any hatch but if the hatch name is needed I can provide it does not need to get into blocks just the one hatch.
  • Select green lines/polylines and change color to 82.
  • After this process is done I run my plot script.

I will very much appreciate all help provided or any guidance on how I can modify the lisp above to do as I need.

 

Thanks in advance,

Victor P.