DCL对话框中 多重选项给定一张SLD预览图

zzmm

  
    以绘图样式的选项 来生成一组预览图
主要以主视图和侧视图为主  以四个选项分为一个SLD预览图
这样可以形成16组选项   选中某组选项 生成对应的预览图  如果主视图为 RB1  方式一为 RB2 螺栓式为RB3  扁钢为RB4  我想吧这四种选项合为一体形成一个预览图 不知道用什么方式去表达  还请各位版主帮帮忙   给个相关的案例瞧瞧  谢谢了
              以下是相应的DCL文件  和  没有编辑完成的LISP文件
cshzzt.dcl (2.61 KB, 下载次数: 0)   

1. (defun c:cshzzt()
   
2.   (setvar "cmdecho" 0)
   
3.   (dcl_cshzzt)
   
4.   (princ)
   
5. )
   
6. (defun dcl_cshzzt()
   
7.    (setq dcl_id (load_dialog "cshzzt"))
   
8.    (new_dialog "cshzzt" dcl_id)
   
9.    (sub_rb1)  
   
10.    (set_tile "rb1" "1")
    
11.    (action_tile "rb1" "(sub_rb1)")
    
12.    (action_tile "rb2" "(sub_rb2)")
    
13.    (action_tile "accept" "(new_samp)(done_dialog 1)")
    
14.    (setq dd(start_dialog))
    
15.    (if (= dd 1)
    
16.         (draw_zthz)
    
17.    )
    
18. )
    
19. (defun sub_rb1()
    
20.   (setq ddtype 1)
    
21.   (show_sld "kimage" "zstys")
    
22. )
    
23. (defun sub_rb2()
    
24.   (setq ddtype 2)
    
25.   (show_sld "kimage" "cstys")
    
26. )
    
27. (defun show_sld(key sld)  
    
28.   (setq x (dimx_tile key))  
    
29.   (setq y (dimy_tile key))
    
30.   (start_image key)   
    
31.   (fill_image 0 0 x y -2)
    
32.   (slide_image 0 0 x y sld)
    
33.   (end_image)  
    
34. )

(defun c:cshzzt()<br />   (setvar "cmdecho" 0)<br />   (dcl_cshzzt)<br />   (princ)<br /> )<br /> (defun dcl_cshzzt()<br />    (setq dcl_id (load_dialog "cshzzt"))<br />    (new_dialog "cshzzt" dcl_id)<br />    (sub_rb1)  <br />    (set_tile "rb1" "1")<br />    (action_tile "rb1" "(sub_rb1)")<br />    (action_tile "rb2" "(sub_rb2)")<br />    (action_tile "accept" "(new_samp)(done_dialog 1)")<br />    (setq dd(start_dialog))<br />    (if (= dd 1)<br />         (draw_zthz)<br />    )<br /> )<br /> (defun sub_rb1()<br />   (setq ddtype 1)<br />   (show_sld "kimage" "zstys")<br /> )<br /> (defun sub_rb2()<br />   (setq ddtype 2)<br />   (show_sld "kimage" "cstys")<br /> )<br /> (defun show_sld(key sld)  <br />   (setq x (dimx_tile key))  <br />   (setq y (dimy_tile key))<br />   (start_image key)    <br />   (fill_image 0 0 x y -2)<br />   (slide_image 0 0 x y sld)<br />   (end_image)  <br /> )

还请各位高手们提示一下  如何才能以组选的方式来生成一个预览图