CAD对话框中单选按钮设计的问题

灬我爱我家

如图 ，单选按钮想实现点击[焊内侧]，左边显示焊内侧的图片，点击[焊外侧]，左边显示焊外侧的图片，但是实际情况是，焊内侧和焊外侧的图片一起显示，不知道哪里出问题了？部分代码在下面

2. (defun c:xxx()
   
3. 
   
4. 
   
5. 
   
6. (setq sdt 0 a 0 t 0)
   
7. (setq dcl_id (load_dialog "d:/AutoCAD2004/xxx/xxx.dcl"))  
   
8. (if (< dcl_id 0)(exit))
   
9. (initdlg1)
   
10. (while (> sdt 3)
    
11. 
    
12. (if (= a 1)(initdlg2))
    
13. (if (= a 2)(initdlg3))
    
14. 
    
15. )
    
16. (unload_dialog dcl_id)
    
17. (if (= sdt 3) (draw_xxx))
    
18. (princ)
    
19. )
    
20. 
    
21. (defun initdlg1 ()
    
22. (if (not (new_dialog "xxx" dcl_id))(exit))
    
23. (action_tile "gl1" "(setq a 1)")
    
24. (action_tile "gl2" "(setq a 2)")
    
25. (action_tile "accept" "(done_dialog 4)")
    
26. (action_tile "cancel" "(done_dialog -1)")
    
27. (setq sdt (start_dialog))
    
28. )
    
29. 
    
30. (defun initdlg2 ()
    
31. (if (not (new_dialog <span style="line-height: 1.5;">"xxx1" </span><span style="line-height: 1.5;">dcl_id))(exit))</span>

(defun c:xxx()<br /> <br /> <br /> <br /> (setq sdt 0 a 0 t 0)<br /> (setq dcl_id (load_dialog "d:/<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>2004/xxx/xxx.dcl"))  <br /> (if (< dcl_id 0)(exit))<br /> (initdlg1)<br /> (while (> sdt 3)<br /> <br /> (if (= a 1)(initdlg2))<br /> (if (= a 2)(initdlg3))<br /> <br /> )<br /> (unload_dialog dcl_id) <br /> (if (= sdt 3) (draw_xxx))<br /> (princ)<br /> )<br /> <br /> (defun initdlg1 ()<br /> (if (not (new_dialog "xxx" dcl_id))(exit))<br /> (action_tile "gl1" "(setq a 1)") <br /> (action_tile "gl2" "(setq a 2)") <br /> (action_tile "accept" "(done_dialog 4)") <br /> (action_tile "cancel" "(done_dialog -1)")<br /> (setq sdt (start_dialog))<br /> )<br /> <br /> (defun initdlg2 ()<br /> (if (not (new_dialog <span style="line-height: 1.5;">"xxx1" </span><span style="line-height: 1.5;">dcl_id))(exit))</span>

xshrimp

填充幻灯片的前  (fill_image  0 0 (dimx_tile key) (dimy_tile key) -15)

灬我爱我家

非常感谢 问题已解决

技术工作室

顶一个，