REPLACE A LISP IN THIS MACRO

[tonyvent]

I HAVE THIS CURRENT MACRO THAT WORKS, BUT I NED IT TO DO MORE. IT ASKS WHAT PLAN YOUR WORKING IN, AFTER THE USER SELECTS THE OPTION, IT READS AN EXCELL FILE WITH A LIST OF LAYERS AND THE GIVEN TRANSPARENCY IN THE NEXT COLUMN. I WOULD ESSENTIALLY NEED TO ADD A THIRD COLUMN TO THE EXCELL FILE TO CHANGE THE COLOR OF THE LAYER ASWELL. CAN ANYONE HELP ME WITH THIS? I HAVE BEEN TOLD THE "LAYERS FROM FILE" IS A LISP THAT READS THE LAYER AND THE SECOND COLUMN BUT I CANT SEEM TO LOCATE THAT LISP. SO I WOULD NEED TO CREATE A NEW ONE, CAN ANYONE HELP ME?

 

CURRENT WORKING MACRO: 

^C^C^P(LayersFromFile (strcat "FADE-" (cadr (assoc (progn (initget "Site Grading Drainage Utility Landscape lIghting erOsion Vehicle") (getkword "What plan are you working in? [Site/Grading/Drainage/Utility/Landscape/lIghting/erOsion/Vehicle]: ")) '(("Site" "Site") ("Grading" "Grade") ("Drainage" "Drain") ("Utility" "Util") ("Landscape" "Land") ("lIghting" "Light") ("erOsion" "Soil") ("Vehicle" "Vehicle")))) ".xlsx") "Transparency")

 

SNIPIT OF HOW THE EXCELL FILES ARE SETUP:

 

SO AGAIN, I WOULD ESSENTIALLY NEED TO ADD IN COLUMN C A "COLOR" OPTION TO CHANGE THE LAYER COLOR. 

 

ALSO IF I CHAGE THE WORD "TRANSPARENCY" TO "COLOR" IN BOTH THE MACRO AND THE EXCELL FILE, IT WORKS. SO I KNOW IT CAN BE DONE, BUT I NEED TO DO THEM TOGETHER. 

 

THANK YOU

[BIGAL]

Just me, your running a preloaded lisp so why not go back one step and edit that lisp to have the macro steps.

 

 

^C^C^P(load "your excel layers program")

 

The (LayersFromFile  is a defun from a seperate lisp not posted.

 

Oh yeah a dwg and lisps and excel would be good to comment on.