this is the coding that i have so far. I haven't figured a way to end the loop yet, and still reading on how to evaluate each line in the delimited file, TSV as delimiterCode:(vl-load-com) (setq acadDocument (vla-get-activedocument (vlax-get-acad-object))) (setq layertable (vla-get-layers acadDocument)) (repeat (setq Lay (tblnext "LAYER" 1)) (while (setq layLT (cdr (assoc 6 lay)) layCOLOR (cdr (assoc 62 lay)) layNM (cdr (assoc 2 lay)) );setq (open C:\\Documents and Settings\\moorerb\\Desktop\\scripting-lisp\\standardlayers.txt "r")





Reply With Quote
Bookmarks