[求助]：用initdia的方式调用layer对话框的返回值？

nuance

可以返回选中的层名吗？

XDSoft

最初由 nuance 发布
[B]可以返回选中的层名吗？ [/B]

要获得什么返回值？
对话框本身肯定返回是 NIL的，但是很多设置后，都记录在系统变量了，需要的可以查看系统变量值，比如当前层等。

nuance

其实我是想通过调用层对话框的方法得到一个选中的层名．
做一个dcl对我来说太难，一点都不会．

心梦相随

用LIST控键
(defun show_list(k1 l1)(start_list k1)(mapcar'add_list l1)(end_list))
其中K1为键

nuance

请楼上详细解释

cy956

先(setq layb(cy_lay_filt "LAYER"))求图层表
然后用doslib的函数单选

2. 
   
3. (defun cy_lay_filt(filt);;;filt="LAYER""LTYPE""VIEW""STYLE""BLOCK""UCS""APPID""DIMSTYLE""VPORT"
   
4.   (setq lay0(tblnext filt t)
   
5.         LAYB(list (dxf 2 lay0)))
   
6.   (WHILE (setq lay0(tblnext filt))
   
7.     (setq layb(append layb (list (dxf 2 lay0))))
   
8.   )
   
9. )
   
10. 
    
11. 
    

<br /> (defun cy_lay_filt(filt);;;filt="LAYER""LTYPE""VIEW""STYLE""BLOCK""UCS""APPID""DIMSTYLE""VPORT"<br />   (setq lay0(tblnext filt t)<br />         LAYB(list (dxf 2 lay0)))<br />   (WHILE (setq lay0(tblnext filt))<br />     (setq layb(append layb (list (dxf 2 lay0))))<br />   )<br /> )<br /> <br /> <br />