Topic: list layer in popup list

[amc.dicsac]

Hi I'm trying to have a list of layers in a drawing in my popup_list but can not find the solution 

attached a piece of code

  : Popup_list {width = 40; key = "listlayer"; }

  (Action_tile "listlayer" "(setq * screenpointE2 * (done_dialog 9))")
  (If (= ddiag 9) (AX: list))

(Defun AX: list (/ a b)
   (If (setq a (tblnext "layer" t))
     (While at
       (Setq b (cons (cdr (assoc 2)) b)
to (tblnext "layer"))))
   (Reverse b))

[roy_043]

Some useful links:
http://www.afralisp.net/dialog-control-language/
http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm

[Lee Mac]

A couple of existing solutions:

List Box
List Box with Filter

Example:

Code - Auto/Visual Lisp: [Select]

1. (defun c:test1 ( )
2.     (LM:listbox "Select a Layer" (layers) 1)
3. )
4. (defun c:test2 ( )
5.     (LM:filtlistbox "Select a Layer" (layers) t)
6. )
7. (defun layers ( / x l )
8.     (while (setq x (tblnext "layer" (not x)))
9.         (setq l (cons (cdr (assoc 2 x)) l))
10.     )
11. )