对话框切换问题

xyp1964

1. (defun c:tt ()
   
2.   (defun aa ()
   
3.     (setq Dlst'(("bu1" "下一个对话框" "button" "(bb)")("bu2" "取消" "button" "(princ)")))
   
4.     (xyp-Dcl-Init Dlst "【DCL界面切换1】" t)
   
5.     (princ)
   
6.   )
   
7.   (defun bb ()
   
8.     (setq Dlst'(("bu3" "图中选择" "button" "(cc)")("bu4" "回前菜单" "button" "(aa)")))
   
9.     (xyp-Dcl-Init Dlst "【DCL界面切换2】" t)
   
10.     (princ)
    
11.   )
    
12.   (defun cc()(setq s1(car(entsel"\n选择: "))))
    
13.   (aa)
    
14.   (princ)
    
15. )
    

(defun c:tt ()<br />   (defun aa ()<br />     (setq Dlst'(("bu1" "下一个对话框" "button" "(bb)")("bu2" "取消" "button" "(princ)")))<br />     (xyp-Dcl-Init Dlst "【DCL界面切换1】" t)<br />     (princ)<br />   )<br />   (defun bb ()<br />     (setq Dlst'(("bu3" "图中选择" "button" "(cc)")("bu4" "回前菜单" "button" "(aa)")))<br />     (xyp-Dcl-Init Dlst "【DCL界面切换2】" t)<br />     (princ)<br />   )<br />   (defun cc()(setq s1(car(entsel"\n选择: "))))<br />   (aa)<br />   (princ)<br /> )<br />

x_s_s_1

在热心网友帮助下，完成了！再次感谢各位

mercio

恭喜，并且前来学习

AndyWang

很有含量的帖子

海盗曹

mark一下，以备学习

jvzigame

楼主发贴辛苦了，谢谢楼主分享！

999999

谢谢大神们的分享，有一个问题，出现好几个思路，好几个解决的方法，谢谢大神们的出手