帮忙编写一个dcl对话框面积计算的lisp程序

福建师大附中

2. mjbz:dialog{
   
3.         label="面积标注";
   
4.         :boxed_radio_row{
   
5.             label="转换单位";
   
6.             :radio_button{
   
7.                 label="平方米";
   
8.                 key="mm";
   
9.                          }
   
10.             :radio_button{
    
11.                 label="亩";
    
12.                 key="mu";
    
13.                 value="1";      //预设选项
    
14.                    }
    
15.               }
    
16. 
    
17.               
    
18.         :boxed_row{
    
19.              label="标注方式";
    
20.              :button{
    
21.                      label="单一标注";
    
22.                      key="dybz";
    
23.                    }
    
24.              :button{
    
25.                      label="批量标注";
    
26.                      key="plbz";
    
27.                    }
    
28.                  }
    
29.         spacer_1;                //空白一行
    
30.         ok_cancel;
    
31.         }

mjbz:dialog{<br />         label="面积标注";<br />         :boxed_radio_row{<br />             label="转换单位";<br />             :radio_button{<br />                 label="平方米";<br />                 key="mm";<br />                          }<br />             :radio_button{<br />                 label="亩";<br />                 key="mu";<br />                 value="1";      //预设选项<br />                    }<br />               }<br /> <br />               <br />         :boxed_row{<br />              label="标注方式";<br />              :button{<br />                      label="单一标注";<br />                      key="dybz";<br />                    }<br />              :button{<br />                      label="批量标注";<br />                      key="plbz";<br />                    }<br />                  }<br />         spacer_1;                //空白一行<br />         ok_cancel;<br />         }

希望最后提供源码，想要学习一下

ZZXXQQ

2. mjbz:dialog{
   
3. label="面积标注";
   
4. :boxed_radio_row{
   
5.   label="转换单位";
   
6.         key="zhdw";
   
7.   :radio_button{label="平方米";key="mm";}
   
8.   :radio_button{label="亩";key="mu";value="1";}      //预设选项
   
9. }
   
10. :boxed_row{
    
11.   label="标注方式";
    
12.   :button{label="单一标注";key="dybz";}
    
13.   :button{label="批量标注";key="plbz";}
    
14. }
    
15. spacer_1;                //空白一行
    
16. ok_cancel;
    
17. }

mjbz:dialog{<br /> label="面积标注";<br /> :boxed_radio_row{<br />   label="转换单位";<br />         key="zhdw";<br />   :radio_button{label="平方米";key="mm";}<br />   :radio_button{label="亩";key="mu";value="1";}      //预设选项<br /> }<br /> :boxed_row{<br />   label="标注方式";<br />   :button{label="单一标注";key="dybz";}<br />   :button{label="批量标注";key="plbz";}<br /> }<br /> spacer_1;                //空白一行<br /> ok_cancel;<br /> }

2. (defun c:mjbz ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq re 2)
   
5. (if (> (setq dcl_id (load_dialog "mjbz.dcl")) 0) (progn
   
6.   (while (> re 1)
   
7.    (if (new_dialog "mjbz" dcl_id) (progn
   
8.     (action_tile "dybz" "(getdata)(done_dialog 2)")
   
9.     (action_tile "plbz" "(getdata)(done_dialog 3)")
   
10.     (action_tile "accept" "(done_dialog 1)")
    
11.     (action_tile "cancel" "(done_dialog 0)")
    
12.     (setq re (start_dialog))
    
13.    )
    
14.     (princ "\n无法显示对话框！")
    
15.    )
    
16.    (cond
    
17.     ((= re 2)
    
18.      (if (setq pt (getpoint "\n区域内一点: ")) (progn
    
19.       (command "bondory" pt "")
    
20.       (command "area" "e" "l" "" "ERASE" "L" "")
    
21.       (setq mj (strcat (rtos (/ (getvar "AREA") x) 2 3) " " zhdw))
    
22.       (command "TEXT" pt "" "" 0 mj)
    
23.      ))
    
24.     )
    
25.     ((= re 3)
    
26.      (while (setq pt (getpoint "\n区域内一点: "))
    
27.       (command "bondory" pt "")
    
28.       (command "area" "e" "l" "" "ERASE" "L" "")
    
29.       (setq mj (strcat (rtos (/ (getvar "AREA") x) 2 3) " " zhdw))
    
30.       (command "TEXT" pt "" "" 0 mj)
    
31.      )
    
32.     )
    
33.    )
    
34.   )
    
35.   (unload_dialog dcl_id)
    
36. )
    
37.   (princ "\n无法加载对话框！")
    
38. )
    
39. (princ)
    
40. )
    
41. (defun getdata ()
    
42. (setq x (if (= (get_tile "zhdw") "mm") 1 666666.667));2000000/3
    
43. )
    

(defun c:mjbz ()<br /> (setvar "CMDECHO" 0)<br /> (setq re 2)<br /> (if (> (setq dcl_id (load_dialog "mjbz.dcl")) 0) (progn<br />   (while (> re 1)<br />    (if (new_dialog "mjbz" dcl_id) (progn<br />     (action_tile "dybz" "(getdata)(done_dialog 2)")<br />     (action_tile "plbz" "(getdata)(done_dialog 3)")<br />     (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (setq re (start_dialog))<br />    )<br />     (princ "\n无法显示对话框！")<br />    )<br />    (cond<br />     ((= re 2)<br />      (if (setq pt (getpoint "\n区域内一点: ")) (progn<br />       (command "bondory" pt "")<br />       (command "area" "e" "l" "" "ERASE" "L" "")<br />       (setq mj (strcat (rtos (/ (getvar "AREA") x) 2 3) " " zhdw))<br />       (command "TEXT" pt "" "" 0 mj)<br />      ))<br />     )<br />     ((= re 3)<br />      (while (setq pt (getpoint "\n区域内一点: "))<br />       (command "bondory" pt "")<br />       (command "area" "e" "l" "" "ERASE" "L" "")<br />       (setq mj (strcat (rtos (/ (getvar "AREA") x) 2 3) " " zhdw))<br />       (command "TEXT" pt "" "" 0 mj)<br />      )<br />     )<br />    )<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (princ)<br /> )<br /> (defun getdata ()<br /> (setq x (if (= (get_tile "zhdw") "mm") 1 666666.667));2000000/3<br /> )<br />

福建师大附中

ZZXXQQ 发表于 2016-2-6 08:09

命令: mjbz
区域内一点: 未知命令“MJBZ”。按 F1 查看帮助。
; 错误: 参数类型错误: stringp nil
加载之后会出现这个错误是怎么回事

vladimirputin

不错的资料， 谢谢分享啊。

390311997

试试，谢谢分享！！！！

hn10183051

有问题，~~~~~~~~~~~

趣意人生

试试，谢谢分享！！！！

song宋_74729

===================================================
   (setq dcl_file (open (setq tmp-dcl-file-name (vl-filename-mktemp nil nil  ".DCL")) "w"))
              (progn
                 (foreach x
                   '(  

                     "mjbz:dialog{"  
                     "        label=\"面积标注\";"  
                     "        :boxed_radio_row{"  
                     "            label=\"转换单位\";"  
                     "            :radio_button{"  
                     "                label=\"平方米\";"  
                     "                key=\"mm\";"  
                     "                         }"  
                     "            :radio_button{"  
                     "                label=\"亩\";"  
                     "                key=\"mu\";"  
                     "                value=\"1\";      //默认选项"  
                     "                   }"  
                     "              }"  
                     "              "  
                     "        :boxed_row{"  
                     "             label=\"标注方式\";"  
                     "             :button{"  
                     "                     label=\"单一标注\";"  
                     "                     key=\"dybz\";"  
                     "                   }"  
                     "             :button{"  
                     "                     label=\"批量标注\";"  
                     "                     key=\"plbz\";"  
                     "                   }"  
                     "                 }"  
                     "        spacer_1;                //空白一行"  
                     "        ok_cancel;"  
                     "        }"  
     ) (write-line x dcl_file) )
     (setq dcl_file (close dcl_file)))

    (defun c:mjbz ()
     (setvar "CMDECHO" 0)
     (setq re 2)
     (if (> (setq dcl_id (load_dialog tmp-dcl-file-name)) 0) (progn
      (while (> re 1)
       (if (new_dialog "mjbz" dcl_id) (progn
        (action_tile "dybz" "(getdata)(done_dialog 2)")
        (action_tile "plbz" "(getdata)(done_dialog 3)")
        (action_tile "accept" "(done_dialog 1)")
        (action_tile "cancel" "(done_dialog 0)")
        (setq re (start_dialog))
       )
        (princ "\n无法显示对话框！")
       )
       (cond
        ((= re 2)
         (if (setq pt (getpoint "\n区域内一点: ")) (progn
          (command "bondory" pt "")
          (command "area" "e" "l" "" "ERASE" "L" "")
          (setq mj (strcat (rtos (/ (getvar "AREA") x) 2 3) " " zhdw))
          (command "TEXT" pt "" "" 0 mj)
         ))
        )
        ((= re 3)
         (while (setq pt (getpoint "\n区域内一点: "))
          (command "bondory" pt "")
          (command "area" "e" "l" "" "ERASE" "L" "")
          (setq mj (strcat (rtos (/ (getvar "AREA") x) 2 3) " " zhdw))
          (command "TEXT" pt "" "" 0 mj)
         )
        )
       )
      )
      (unload_dialog dcl_id)
     )
      (princ "\n无法加载对话框！")
     )
     (princ)
    )
    (defun getdata ()
     (setq x (if (= (get_tile "zhdw") "mm") 1 666666.667));2000000/3
    )

技术工作室

不错，学习、学习

xj6019

源码大佬已经给你很多了，换种新玩法
需要两个文件同时加载，才有效，一种高效便捷的dcl玩法，嘿嘿嘿！！！！！！

摘自附件文件内的对话框部分的代码，如下：
(defun C:NM (/ acttlst dclcidian key2str lst_str)
        (setq dclcidian "mianji-cidian")
        (setq lst_str
                (append(dcl-name "面积标注" )                        
                        (dcl-vh '("BH" "转换单位"))                        
                        (dcl-dan '(("平方米" "INGFANG" "5") ("亩" "MU" "5")) "")
                        (dcl-vh "e")
                        (dcl-vh '("BH" "标注方式"))               
                        (dcl-an  '(("单一标注" "DANYI" "8" "2")("批量标注" "ILIANG" "8" "2"))"")
                        (dcl-vh "e")
                        (dcl-oc)        ;确认按钮                                                               
                )
        )   
        (setq key2str(val2str '(1 0 0 0)))        
        (setq acttlst '(("DANYI" "3" "(dcl-DANYI)")("ILIANG" "4" "(dcl-PILIANG)")))
        (xj-dcl-k  dclcidian  lst_str  key2str nil acttlst)        
        (princ)
)