菜鸟提问一个关于Lisp的问题

福建师大附中

1. dia8a:dialog{
   
2.         label="图像辅助【参数设计】范例";
   
3.         :row{
   
4.                 :boxed_radio_column{
   
5.                         label="设计样式";
   
6.                         :radio_button{label="L基本型";key="rb1";}
   
7.                         :radio_button{label="L+圆型";key="rb2";}
   
8.                         :radio_button{label="L+双圆型";key="rb3";}
   
9.                         :radio_button{label="L+弧型";key="rb4";}
   
10.                 }
    
11.                 :image{
    
12.                         key="kimage";
    
13.                         color=-2;
    
14.                         width=30;
    
15.                         aspect_ratio=0.66;   //图像高度宽度比值
    
16.                 }
    
17.         }
    
18.         :row{
    
19.                 :edit_box{label="宽度ww";key="kww";}
    
20.                 :edit_box{label="高度hh";key="khh";}
    
21.         }
    
22.         spacer_1;
    
23.         ok_cancel;
    
24.         }

dia8a:dialog{<br />         label="图像辅助【参数设计】范例";<br />         :row{<br />                 :boxed_radio_column{<br />                         label="设计样式";<br />                         :radio_button{label="L基本型";key="rb1";}<br />                         :radio_button{label="L+圆型";key="rb2";}<br />                         :radio_button{label="L+双圆型";key="rb3";}<br />                         :radio_button{label="L+弧型";key="rb4";}<br />                 }<br />                 :image{<br />                         key="kimage";<br />                         color=-2;<br />                         width=30;<br />                         aspect_ratio=0.66;   //图像高度宽度比值<br />                 }<br />         }<br />         :row{<br />                 :edit_box{label="宽度ww";key="kww";}<br />                 :edit_box{label="高度hh";key="khh";}<br />         }<br />         spacer_1;<br />         ok_cancel;<br />         }

1. (defun c:dia8a()
   
2.   (setvar "cmdecho" 0)
   
3.   (dcl_dia8a)
   
4.   (prin1)
   
5.   )
   
6. (defun dcl_dia8a()
   
7.   (setq dcl_id (load_dialog "f:\\VP\\dia8a.dcl"))
   
8.   (new_dialog "dia8a" dcl_id)    ;激活dcl对话框画面
   
9.   (sub_rb1)            ;调用子程序，展示默认SLD
   
10.   (set_tile "rb1" "1")      ;默认第一组
    
11.   (set_tile "kww" "100")     ;默认高度
    
12.   (set_tile "khh" "100")     ;默认宽度
    
13.   (action_tile "rb1" "(sub_rb1)")
    
14.   (action_tile "rb2" "(sub_rb2)")
    
15.   (action_tile "rb3" "(sub_rb3)")
    
16.   (action_tile "rb4" "(sub_rb4)")
    
17.   (action_tile "accept" "(ok_dia8a)(done_dialog 1)")
    
18.   (setq dd(start_dialog))
    
19.   (if (= dd 1) (draw_dia8a))
    
20.   )
    
21. (defun sub_rb1()     ;展示L基本型
    
22.   (setq ddtype 1)
    
23.   (show_sld "kimage" "dia8a1")
    
24.   )
    
25. (defun sub_rb2()
    
26.   (setq ddtype 2)
    
27.   (show_sld "kimage" "dia8a2")
    
28.   )
    
29. (defun sub_rb3()
    
30.   (setq ddtype 3)
    
31.   (show_sld "kimage" "dia8a3")
    
32.   )
    
33. (defun sub_rb4()
    
34.   (setq ddtype 4)
    
35.   (show_sld "kimage" "dia8a4")
    
36.   )
    
37. (defun show_sld(key sld)              ;两个自变量key和sld
    
38.   (setq x (dimx_tile key))         ;取得图像的右下角x坐标
    
39.   (setq y (dimy_tile key))         ;取得图像的右下角y坐标
    
40.   (start_image key)               ;开始处理图像对象
    
41.   (fill_image 0 0 x y -2)         ;先以背景色填满图像
    
42.   (slide_image 0 0 x y sld)       ;展示幻灯片
    
43.   (end_image)                     ;结束处理图像对象
    
44.   )
    
45. (defun ok_dia8a()
    
46.   (setq ww (atof (get_tile "kww")))  ;取得对话框内的ww值
    
47.   (setq hh (atof (get_tile "khh")))  ;取得对话框内的hh值
    
48.   )
    
49. (defun draw_dia8a()
    
50.   (setq pt1 (getpoint "左下角基准点:"))
    
51.   ;以下为三个模块共享的点坐标变量
    
52.   (setq pt2 (polar pt1 0 ww))
    
53.   (setq pt3 (polar pt2 (/ pi 2) hh))
    
54.   (setq pt4 (polar pt3 pi (* ww 0.5)))
    
55.   (setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5)))
    
56.   (setq pt6 (polar pt5 pi (* ww 0.5)))
    
57.   ;以下依据不同的类别，调用不同的绘图模式
    
58.   (cond ((= ddtype 1) (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c"))
    
59.         ((= ddtype 2) (command "pline" pt6 pt1 pt2 pt3 pt4  "")
    
60.                       (command "circle" "2p" pt4 pt6))
    
61.         ((= ddtype 3) (command "pline" pt1 pt2 pt3 "")
    
62.                       (command "pline" pt4 pt5 pt6 "")
    
63.                       (command "circle" "2p" pt3 pt4)
    
64.                       (command "circle" "2p" pt6 pt1))
    
65.         ((= ddtype 4) (command "pline" pt1 pt2 pt3 pt4 "a" "a" -18c pt6 "L" "c"))
    
66.         )
    
67.   )

(defun c:dia8a()<br />   (setvar "cmdecho" 0)<br />   (dcl_dia8a)<br />   (prin1)<br />   )<br /> (defun dcl_dia8a()<br />   (setq dcl_id (load_dialog "f:\\VP\\dia8a.dcl"))<br />   (new_dialog "dia8a" dcl_id)    ;激活dcl对话框画面<br />   (sub_rb1)            ;调用子程序，展示默认SLD<br />   (set_tile "rb1" "1")      ;默认第一组<br />   (set_tile "kww" "100")     ;默认高度<br />   (set_tile "khh" "100")     ;默认宽度<br />   (action_tile "rb1" "(sub_rb1)")<br />   (action_tile "rb2" "(sub_rb2)")<br />   (action_tile "rb3" "(sub_rb3)")<br />   (action_tile "rb4" "(sub_rb4)")<br />   (action_tile "accept" "(ok_dia8a)(done_dialog 1)")<br />   (setq dd(start_dialog))<br />   (if (= dd 1) (draw_dia8a))<br />   )<br /> (defun sub_rb1()     ;展示L基本型<br />   (setq ddtype 1)<br />   (show_sld "kimage" "dia8a1")<br />   )<br /> (defun sub_rb2()<br />   (setq ddtype 2)<br />   (show_sld "kimage" "dia8a2")<br />   )<br /> (defun sub_rb3()<br />   (setq ddtype 3)<br />   (show_sld "kimage" "dia8a3")<br />   )<br /> (defun sub_rb4()<br />   (setq ddtype 4)<br />   (show_sld "kimage" "dia8a4")<br />   )<br /> (defun show_sld(key sld)              ;两个自变量key和sld<br />   (setq x (dimx_tile key))         ;取得图像的右下角x坐标<br />   (setq y (dimy_tile key))         ;取得图像的右下角y坐标<br />   (start_image key)               ;开始处理图像对象<br />   (fill_image 0 0 x y -2)         ;先以背景色填满图像<br />   (slide_image 0 0 x y sld)       ;展示幻灯片<br />   (end_image)                     ;结束处理图像对象<br />   )<br /> (defun ok_dia8a()<br />   (setq ww (atof (get_tile "kww")))  ;取得对话框内的ww值<br />   (setq hh (atof (get_tile "khh")))  ;取得对话框内的hh值<br />   )<br /> (defun draw_dia8a()<br />   (setq pt1 (getpoint "左下角基准点:"))<br />   ;以下为三个模块共享的点坐标变量<br />   (setq pt2 (polar pt1 0 ww))<br />   (setq pt3 (polar pt2 (/ pi 2) hh))<br />   (setq pt4 (polar pt3 pi (* ww 0.5)))<br />   (setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5)))<br />   (setq pt6 (polar pt5 pi (* ww 0.5)))<br />   ;以下依据不同的类别，调用不同的绘图模式<br />   (cond ((= ddtype 1) (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c"))<br />         ((= ddtype 2) (command "pline" pt6 pt1 pt2 pt3 pt4  "")<br />                       (command "circle" "2p" pt4 pt6))<br />         ((= ddtype 3) (command "pline" pt1 pt2 pt3 "")<br />                       (command "pline" pt4 pt5 pt6 "")<br />                       (command "circle" "2p" pt3 pt4)<br />                       (command "circle" "2p" pt6 pt1))<br />         ((= ddtype 4) (command "pline" pt1 pt2 pt3 pt4 "a" "a" -18c pt6 "L" "c"))<br />         )<br />   )

为什么image图框中不会显示一选择的图形范例

kozmosovia

应该需要给boxed_radio_column定义一个key，然后action_tile那个key，得到对应的radio_button的key值。
然后再调用相应的函数。

ZZXXQQ

去掉或注释掉这一行
  (set_tile "rb1" "1")      ;默认第一组

福建师大附中

ZZXXQQ 发表于 2016-1-22 07:17
去掉或注释掉这一行
  (set_tile "rb1" "1")      ;默认第一组

范例框还是没东西，，，这是什么问题？

kozmosovia

参照 http://bbs.mjtd.com/thread-91788-1-1.html

知行ooo李肖坪

同步学习中…………