怎么把图层信息添加到控件里面，谢谢

永不言弃

怎么把图层信息添加到控件里面，谢谢

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "cmdecho" 0)
   
4. (setq lalst (list) lay nil)
   
5. (while (setq lay (tblnext "LAYER" (not lay)))
   
6.   (setq lalst (cons (cdr(assoc 2 lay)) lalst))
   
7. )
   
8. (if (> (setq dcl_id (load_dialog "tucheng")) 0) (progn
   
9.   (if (new_dialog "tucheng" dcl_id) (progn
   
10.   (start_list "n1")
    
11.   (mapcar 'add_list lalst)
    
12.   (end_list)
    
13.   (action_tile "accept" "(ok_tucheng)(done_dialog 1)")
    
14.   (setq dd (start_dialog))                                ;调用对话框子程序
    
15.   )
    
16.    (princ "\n无法显示对话框！")
    
17.   )
    
18.   (unload_dialog dcl_id)
    
19. )
    
20.   (princ "\n无法加载对话框！")
    
21. )
    
22. (if (= dd 1) (princ lnm))
    
23. (prin1)
    
24. )
    
25. 
    
26. (defun ok_tucheng ()
    
27.   (setq lnm (nth (atoi (get_tile "n1")) lalst))        ;取得对话框内的ww值
    
28. )
    

(defun c:tt ()<br /> (setvar "cmdecho" 0)<br /> (setq lalst (list) lay nil)<br /> (while (setq lay (tblnext "LAYER" (not lay)))<br />   (setq lalst (cons (cdr(assoc 2 lay)) lalst))<br /> )<br /> (if (> (setq dcl_id (load_dialog "tucheng")) 0) (progn<br />   (if (new_dialog "tucheng" dcl_id) (progn<br />   (start_list "n1")<br />   (mapcar 'add_list lalst)<br />   (end_list)<br />   (action_tile "accept" "(ok_tucheng)(done_dialog 1)")<br />   (setq dd (start_dialog))                                ;调用对话框子程序<br />   )<br />    (princ "\n无法显示对话框！")<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= dd 1) (princ lnm))<br /> (prin1)<br /> )<br /> <br /> (defun ok_tucheng ()<br />   (setq lnm (nth (atoi (get_tile "n1")) lalst))        ;取得对话框内的ww值<br /> )<br />

永不言弃

非常谢谢