Allen
YES, THANK YOU. I got the following to work. Now it's back to recompiling the list.
(defun ARCH:CreateIndex (lst / indexlist file)
(setq indexlist (getindex lst))
(if (member "acetutil.arx" (arx))(ACET-UI-PROGRESS-DONE)) ;;added progress bar finish
;|
(setq file (open "C:\\Temp\\SheetIndex.txt" "w"))
(repeat
(length indexlist)
(setq a (car indexlist) indexlist (cdr indexlist))
(write-line (strcat (car a) "\t" (cdr a)) file)
)
(close file)
(command ".shell" "notepad C:\\Temp\\SheetIndex.txt")
|;
(princ indexlist)
)
I did a small test on one drawing that has both blocks and this is the result:
Block one is 2436TBA .....this is the sheet attribute which contains sheet number and name
Block two is IRREV .........this is revison delta with revision number and date
(ARCH:CreateIndex '(("2436TBA"
"A-01" "SHT_TTL")("IRREV" "XX" "X")))
((((XX . 20 May 2002) (X . 2))))(((("XX" . "20 May 2002") ("X" . "2"))))
So, now its back to working with the resulting list, and making the following work:
(repeat
(length indexlist)
(setq a (car indexlist) indexlist (cdr indexlist))
(write-line (strcat (car a) "\t" (cdr a)) file)
)
Thank you again for your time Allen (and to Jeff and Tim).
Gary (I found the light switch, now can someone reach it)