I'm not CAB, but you should be able to just change this line ( shown in red ). You have to copy the whole code that John posted three posts up.
(defun c:CreateIndex (/ indexlist)
[color=red] (setq indexlist (getindex "A1-Landscape" '("TITLE1" "TITLE2" "TITLE3")))[/color]
(princ "\n")
(repeat
(length indexlist)
(setq a (car indexlist)
indexlist (cdr indexlist)
)
(princ (car a))
(princ "\t")
(princ (strcat (cdr (car (cdr a))) " " (cdr (cadr (cdr a))) " " (cdr (caddr (cdr a)))))
;;; (princ "\t")
;;; (princ (cadr a))
;;; (princ "\t")
;;; (princ (caadr a))
(princ "\n")
(princ)
)
)
To
(setq indexlist (getindex "Drawing-Title" '("NUM" "Title-1" "Title-2" "Title-3)))
Might want to watch out on the tag strings though, as in the past they all were capital, and now they can be mix cased, so just watch out for that. The order the tags are fed to the routine, is the way they will print out, IIRC.