Visual LISP, AutoLISP and General Customization

[#1]

---

Lineabove wrote:

EXCELLENT !

Thank you.

---

Glad you found what you need Lineabove

FWIW: Heres a mini rouitne to demonstrate CTAB [from an old routine of mine]

(defun c:tab ( / CDiaStr ListBoxDia StrDiaFnme lname)
;;;	pBe 12Jan2013	;;;
(defun CDiaStr (/ fnSTR)
  (setq StrDiaFnme
         (vl-filename-mktemp "tmp.DCL" ))
  (setq fnSTR (open StrDiaFnme "a"))
  (write-line
    "dcl_settings : default_dcl_settings { audit_level = 3; }
  ListofLayoutTabs : dialog 
  { label = \"\"; key= \"Base\";
  : list_box { key = \"StrListS\"; 
  width = 20; height = 20; } spacer ;
  ok_cancel;
  }" fnSTR )
  (close fnSTR)
  T
  )

(defun ListBoxDia  (DiaName Title Lst / el x)
            (setq StrDIA (load_dialog StrDiaFnme))
            (if (not (new_dialog DiaName StrDIA))
                  (exit)
                  )
            (start_list "StrListS")
            (mapcar 'add_list Lst)
            (end_list)
            (set_tile "Base" Title)
            (action_tile "StrListS" "(setq el (get_tile $key))")
            (action_tile "accept" "(done_dialog 1)(setq x T)")
            (action_tile "cancel" "(done_dialog 0)")
            (start_dialog)
            (unload_dialog StrDIA)
            (if x (read (strcat "(" el ")")))
            )
(cond ((and
	(CDiaStr)
	(setq lname (ListBoxDia
	   "ListofLayoutTabs"
	   "Select Layout Name"
	   (layoutlist)))
	   (vl-file-delete StrDiaFnme)
           (setvar 'ctab (nth (car lname) (layoutlist))
           )
        )
       )
      )
      (princ)
  )

HTH