菜鸟问个lisp/DCL的问题

福建师大附中

1. mjbz:dialog{
   
2.               label="面积标注插件";
   
3.               :text{
   
4.                               label="zhw--12测绘";
   
5.                         alignment=centered;    //向中对齐
   
6.                    }
   
7.                :boxed_row{
   
8.                                label="字体高度设定";
   
9.                                fixed_width=true;
   
10.                                alignment=centered;
    
11.                         :edit_box{                        //编辑框对象
    
12.                                               label="字高";    //编辑框卷标
    
13.                                               key="txtzg";
    
14.                                                edit_width=10;   //编辑框高度
    
15.                                         }
    
16.                                :popup_list{
    
17.                                                key="popzg";
    
18.                                                edit_width=10;
    
19.                                           }
    
20.                                 }
    
21.                                 
    
22.                :boxed_row{
    
23.                                label="小数点设定";
    
24.                                fixed_width=true;
    
25.                                alignment=centered;
    
26.                         :edit_box{                        //编辑框对象
    
27.                                                 label="小数点";    //编辑框卷标
    
28.                                               key="txtxsd";
    
29.                                                edit_width=10;   //编辑框高度
    
30.                                         }
    
31.                                :popup_list{
    
32.                                                key="popxsd";
    
33.                                                edit_width=10;
    
34.                                           }
    
35.                                }
    
36.                               
    
37.               :boxed_row{
    
38.                                label="标注单位";
    
39.                                :button{
    
40.                                              label="平方米标注";
    
41.                                              key="pfmbz";
    
42.                                      }
    
43.                                :button{
    
44.                                        label="亩标注";
    
45.                                        key="mbz";
    
46.                                      }
    
47.                                :button{
    
48.                                        label="公顷标注";
    
49.                                        key="gqbz";
    
50.                                        }
    
51.                              }
    
52.               spacer_1;                //空白一行
    
53.               ok_cancel;
    
54.               }[code=lisp](defun c:mjbz()
    
55.   (setvar "cmdecho" 0)
    
56.   (setq popzg_list '("1" "2" "3" "4" "5" "8" "10" "12" "15" "20" "30"))
    
57.   (chk_style)
    
58.   (dcl_mjbz)
    
59.   (prin1)
    
60. )
    
61. 
    
62. (defun dcl_mjbz()
    
63.   (setq dcl_id (load_dialog "f:\\a\\chugao.dcl"))
    
64.   (new_dialog "mjbz" dcl_id)
    
65.   (show_list "popzg" popzg_list)      ;显示字高下拉框
    
66.   (set_tile "txtzg" "1")              ;预设字高文字框显示为“1”
    
67.   (action_tile "popzg" "(sub_popzg $value)")              ;触发DCL对象，并执行其后指定动作，同时产生六个变量
    
68.   (action_tile "pfmbz" "(sub_pfmbz)(done_dialog 2)")
    
69.   (action_tile "mbz" "(sub_mbz)(done_dialog 3)")
    
70.   (action_tile "gqbz" "(sub_gqbz)(done_dialog 4)")
    
71.   (setq dd(start_dialog))               ;将控制权交给DCL
    
72.   (cond
    
73.       ((= dd 2)
    
74.       (setq pt (getpoint"\请点取计算面积书写位置：" ))
    
75.       (SETQ STA (BPOLY PT))
    
76.       (IF (= STA NIL) (EXIT))　　　　　　　　　;因AutoCAD的原因，有可能找不到边界
    
77.       (COMMAND "AREA" "E" "L")
    
78.       (SETQ QAREA (rtos (GETVAR "AREA") 2 3))　  ;最后面的数字2是十进制，3是控制标注的小数点位数
    
79.       (command "layer" "m" "面积" "c" "" "" "")
    
80.       (COMMAND "TEXT" PT txtzg "0" (strcat QAREA "平方米"))  ;1字体大小，0角度
    
81.       )
    
82.       ((= dd 3)
    
83.       (setq pt (getpoint"\请点取计算面积书写位置：" ))
    
84.       (SETQ STA (BPOLY PT))
    
85.       (IF (= STA NIL) (EXIT))　　　　　　　　　;因autocad的原因，有可能找不到边界
    
86.       (COMMAND "AREA" "E" "L")
    
87.       (SETQ QAREA (rtos (* (/ (GETVAR "AREA") 10000) 15) 2 3))　  ;最后面的数字2是十进制，3是控制标注的小数点位数
    
88.       (command "layer" "m" "面积" "c" "" "" "")
    
89.       (COMMAND "TEXT" PT txtzg "0" (strcat QAREA "亩"))  ;1字体大小，0角度
    
90.       )
    
91.       ((= dd 4)
    
92.       (setq pt (getpoint"\请点取计算面积书写位置：" ))
    
93.       (SETQ STA (BPOLY PT))
    
94.       (IF (= STA NIL) (EXIT))　　　　　　　　　;因autocad的原因，有可能找不到边界
    
95.       (COMMAND "AREA" "E" "L")
    
96.       (SETQ QAREA (rtos (/ (GETVAR "AREA") 10000) 2 3))　  ;最后面的数字2是十进制，3是控制标注的小数点位数
    
97.       (command "layer" "m" "面积" "c" "" "" "")
    
98.       (COMMAND "TEXT" PT txtzg "0" (strcat QAREA "公顷"))  ;1字体大小，0角度
    
99.       )
    
100.     )
     
101.   )
     
102. 
     
103. (defun show_list(key newlist)     ;调用显示选单数据子程序
     
104.   (start_list key)            ;;;;;;;;;开始处理选单对象
     
105.   (mapcar 'add_list newlist)   ;逐一加入信息至选单
     
106.   (end_list)                   ;结束处理选单
     
107.   )
     
108. 
     
109. (defun sub_popzg(vvs)
     
110.   (set_tile "txtzg" (nth (atoi vvs) popzg_list))         ;设定字高编辑框
     
111.   )
     
112. 
     
113. (defun sub_pfmbz()
     
114.   (setq txtzg (get_tile "txtzg"))
     
115.   (setq txtxsd (get_tile "txtxsd"))
     
116.   )
     
117. 
     
118. (defun sub_mbz()
     
119.   (setq txtzg (get_tile "txtzg"))
     
120.   (setq txtxsd (get_tile "txtxsd"))
     
121.   )
     
122. 
     
123. (defun sub_gqbz()
     
124.   
     
125.   (setq txtzg (get_tile "txtzg"))
     
126.   (setq txtxsd (get_tile "txtxsd"))
     
127.   )
     
128. 
     
129. (defun chk_style()   ;检查字型
     
130.   (setq chksty (tblsearch "style" "Standard"))
     
131.   (if (null chksty)                                 ;如果不存在，则新建字形
     
132.     (command "_style" "Standard" "宋体" "" "" "" "" "")
     
133.     )
     
134.   (setq chklay (tblsearch "layer" "面积"))        ;检测图层是否存在
     
135.   (if (null chklay)                              ;如果不存在，则新建图层
     
136.     (command "_layer" "m" "面积" "c" "3" "面积" "")
     
137.     )
     
138.   (setvar "clayer" "面积")                        ;预设目前图层
     
139.   (setvar "textstyle" "Standard")                       ;预设目前字形
     
140.   )
     

mjbz:dialog{<br />               label="面积标注<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">插件</a>";<br />               :text{<br />                               label="zhw--12测绘";<br />                         alignment=centered;    //向中对齐<br />                    }<br />                :boxed_row{<br />                                label="字体高度设定";<br />                                fixed_width=true;<br />                                alignment=centered;<br />                         :edit_box{                        //编辑框对象<br />                                               label="字高";    //编辑框卷标<br />                                               key="txtzg";<br />                                                edit_width=10;   //编辑框高度<br />                                         }<br />                                :popup_list{<br />                                                key="popzg";<br />                                                edit_width=10;<br />                                           }<br />                                 }<br />                                 <br />                :boxed_row{<br />                                label="小数点设定";<br />                                fixed_width=true;<br />                                alignment=centered;<br />                         :edit_box{                        //编辑框对象<br />                                                 label="小数点";    //编辑框卷标<br />                                               key="txtxsd";<br />                                                edit_width=10;   //编辑框高度<br />                                         }<br />                                :popup_list{<br />                                                key="popxsd";<br />                                                edit_width=10;<br />                                           }<br />                                }<br />                                <br />               :boxed_row{<br />                                label="标注单位";<br />                                :button{<br />                                              label="平方米标注";<br />                                              key="pfmbz";<br />                                      }<br />                                :button{<br />                                        label="亩标注";<br />                                        key="mbz";<br />                                      }<br />                                :button{<br />                                        label="公顷标注";<br />                                        key="gqbz";<br />                                        }<br />                              }<br />               spacer_1;                //空白一行<br />               ok_cancel;<br />               }[code=lisp](defun c:mjbz()<br />   (setvar "cmdecho" 0)<br />   (setq popzg_list '("1" "2" "3" "4" "5" "8" "10" "12" "15" "20" "30"))<br />   (chk_style)<br />   (dcl_mjbz)<br />   (prin1)<br /> )<br /> <br /> (defun dcl_mjbz()<br />   (setq dcl_id (load_dialog "f:\\a\\chugao.dcl"))<br />   (new_dialog "mjbz" dcl_id)<br />   (show_list "popzg" popzg_list)      ;显示字高下拉框<br />   (set_tile "txtzg" "1")              ;预设字高文字框显示为“1”<br />   (action_tile "popzg" "(sub_popzg $value)")              ;触发DCL对象，并执行其后指定动作，同时产生六个变量<br />   (action_tile "pfmbz" "(sub_pfmbz)(done_dialog 2)")<br />   (action_tile "mbz" "(sub_mbz)(done_dialog 3)")<br />   (action_tile "gqbz" "(sub_gqbz)(done_dialog 4)")<br />   (setq dd(start_dialog))               ;将控制权交给DCL<br />   (cond<br />       ((= dd 2)<br />       (setq pt (getpoint"\请点取计算面积书写位置：" ))<br />       (SETQ STA (BPOLY PT))<br />       (IF (= STA NIL) (EXIT))　　　　　　　　　;因<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>的原因，有可能找不到边界<br />       (COMMAND "AREA" "E" "L")<br />       (SETQ QAREA (rtos (GETVAR "AREA") 2 3))　  ;最后面的数字2是十进制，3是控制标注的小数点位数<br />       (command "layer" "m" "面积" "c" "" "" "")<br />       (COMMAND "TEXT" PT txtzg "0" (strcat QAREA "平方米"))  ;1字体大小，0角度<br />       )<br />       ((= dd 3)<br />       (setq pt (getpoint"\请点取计算面积书写位置：" ))<br />       (SETQ STA (BPOLY PT))<br />       (IF (= STA NIL) (EXIT))　　　　　　　　　;因autocad的原因，有可能找不到边界<br />       (COMMAND "AREA" "E" "L")<br />       (SETQ QAREA (rtos (* (/ (GETVAR "AREA") 10000) 15) 2 3))　  ;最后面的数字2是十进制，3是控制标注的小数点位数<br />       (command "layer" "m" "面积" "c" "" "" "")<br />       (COMMAND "TEXT" PT txtzg "0" (strcat QAREA "亩"))  ;1字体大小，0角度<br />       )<br />       ((= dd 4)<br />       (setq pt (getpoint"\请点取计算面积书写位置：" ))<br />       (SETQ STA (BPOLY PT))<br />       (IF (= STA NIL) (EXIT))　　　　　　　　　;因autocad的原因，有可能找不到边界<br />       (COMMAND "AREA" "E" "L")<br />       (SETQ QAREA (rtos (/ (GETVAR "AREA") 10000) 2 3))　  ;最后面的数字2是十进制，3是控制标注的小数点位数<br />       (command "layer" "m" "面积" "c" "" "" "")<br />       (COMMAND "TEXT" PT txtzg "0" (strcat QAREA "公顷"))  ;1字体大小，0角度<br />       )<br />     )<br />   )<br /> <br /> (defun show_list(key newlist)     ;调用显示选单数据子程序<br />   (start_list key)            ;;;;;;;;;开始处理选单对象<br />   (mapcar 'add_list newlist)   ;逐一加入信息至选单<br />   (end_list)                   ;结束处理选单<br />   )<br /> <br /> (defun sub_popzg(vvs)<br />   (set_tile "txtzg" (nth (atoi vvs) popzg_list))         ;设定字高编辑框<br />   )<br /> <br /> (defun sub_pfmbz()<br />   (setq txtzg (get_tile "txtzg"))<br />   (setq txtxsd (get_tile "txtxsd"))<br />   )<br /> <br /> (defun sub_mbz()<br />   (setq txtzg (get_tile "txtzg"))<br />   (setq txtxsd (get_tile "txtxsd"))<br />   )<br /> <br /> (defun sub_gqbz()<br />   <br />   (setq txtzg (get_tile "txtzg"))<br />   (setq txtxsd (get_tile "txtxsd"))<br />   )<br /> <br /> (defun chk_style()   ;检查字型<br />   (setq chksty (tblsearch "style" "Standard"))<br />   (if (null chksty)                                 ;如果不存在，则新建字形<br />     (command "_style" "Standard" "宋体" "" "" "" "" "")<br />     )<br />   (setq chklay (tblsearch "layer" "面积"))        ;检测图层是否存在<br />   (if (null chklay)                              ;如果不存在，则新建图层<br />     (command "_layer" "m" "面积" "c" "3" "面积" "")<br />     )<br />   (setvar "clayer" "面积")                        ;预设目前图层<br />   (setvar "textstyle" "Standard")                       ;预设目前字形<br />   )<br />

[/code]

想要插入一段能够改变面积的小数点位数的编码（如0.0,0.00,0.000,0.0000），应该要怎么写

ZZXXQQ

2. mjbz:dialog{
   
3. label="面积标注插件";
   
4. alignment=centered; //向中对齐
   
5. :text{label="zhw--12测绘";}
   
6. :popup_list{label="字高";key="popzg";edit_width=10;}
   
7. :popup_list{label="小数点";key="popxsd";edit_width=10;}
   
8. :radio_row{
   
9.   label="标注单位";
   
10.   key="bzdw";
    
11.   :radio_button{label="平方米";key="pfmbz";value=1;}
    
12.   :radio_button{label="亩";key="mbz";value=0;}
    
13.   :radio_button{label="公顷";key="gqbz";value=0;}
    
14. }
    
15. spacer_1;                //空白一行
    
16. ok_cancel;
    
17. }
    

mjbz:dialog{<br /> label="面积标注插件";<br /> alignment=centered; //向中对齐<br /> :text{label="zhw--12测绘";}<br /> :popup_list{label="字高";key="popzg";edit_width=10;}<br /> :popup_list{label="小数点";key="popxsd";edit_width=10;}<br /> :radio_row{<br />   label="标注单位";<br />   key="bzdw";<br />   :radio_button{label="平方米";key="pfmbz";value=1;}<br />   :radio_button{label="亩";key="mbz";value=0;}<br />   :radio_button{label="公顷";key="gqbz";value=0;}<br /> }<br /> spacer_1;                //空白一行<br /> ok_cancel;<br /> }<br />

2. (defun c:mjbz()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq popzg_list '("1" "2" "3" "4" "5" "8" "10" "12" "15" "20" "30"))
   
5.   (setq popxsd_list '("0.0" "0.00" "0.000" "0.0000" "0.00000" "0.000000" "0.0000000"))
   
6.   (chk_style)
   
7.   (dcl_mjbz)
   
8.   (prin1)
   
9. )
   
10. (defun readata ()
    
11. (setq bzdw (get_tile "bzdw"))
    
12. (setq bl (cond((= bzdw "pfmbz") 1)((= bzdw "mbz") (/ 10000 15.0))((= bzdw "gqbz") 10000)))
    
13. (setq bzdw (cond((= bzdw "pfmbz") "平方米")((= bzdw "mbz") "亩")((= bzdw "gqbz") "公顷")))
    
14. (setq txtzg (itoa (nth (itoa (get_tile "popzg")) popzg_list)))
    
15. (setq xsd (1+ (itoa (get_tile "popxsd"))))
    
16. )
    
17. (defun dcl_mjbz()
    
18. (if (> (setq dcl_id (load_dialog "mjbz.dcl")) 0) (progn
    
19.   (if (new_dialog "mjbz" dcl_id) (progn
    
20.   (show_lst "popzg" popzg_list)
    
21.   (set_tile "popzg" "0")
    
22.   (show_lst "popxsd" popxsd_list)
    
23.   (set_tile "popxsd" "2")
    
24.   (action_tile "cancel" "(done_dialog 0)")
    
25.   (action_tile "accept" "(readata)(done_dialog 1)")
    
26.   (setq dd(start_dialog))               ;将控制权交给DCL
    
27.   )
    
28.    (princ "\n无法显示对话框！")
    
29.   )
    
30.   (unload_dialog dcl_id)
    
31. )
    
32.   (princ "\n无法加载对话框！")
    
33. )
    
34. (if (= dd 1) (progn
    
35.   (setq pt (getpoint "\请点取计算面积书写位置：" ))
    
36.   (if (setq STA (bpoly PT)) (progn
    
37.    (command "AREA" "E" "L")
    
38.    (setq QAREA (rtos (/ (getvar "AREA") bl) 2 xsd)) ;2 = 十进制，xsd = 小数点位数
    
39.    (command "TEXT" PT txtzg "0" (strcat QAREA bzdw))  ;txtzg=字高，0角度
    
40.   ))
    
41. ))
    
42. )
    
43. (defun show_list(key newlist) ;调用显示选单数据子程序
    
44. (start_list key)             ;开始处理选单对象
    
45. (mapcar 'add_list newlist)   ;逐一加入信息至选单
    
46. (end_list)                   ;结束处理选单
    
47. )
    
48. (defun chk_style()   ;检查字型
    
49. (setq chksty (tblsearch "style" "Standard"))
    
50. (if (null chksty)                                 ;如果不存在，则新建字形
    
51.   (command "_style" "Standard" "宋体" "" "" "" "" "")
    
52. )
    
53. (command "_layer" "m" "面积" "c" "3" "" "")
    
54. (setvar "clayer" "面积")                        ;预设目前图层
    
55. (setvar "textstyle" "Standard")                 ;预设目前字形
    
56. )
    

(defun c:mjbz()<br />   (setvar "cmdecho" 0)<br />   (setq popzg_list '("1" "2" "3" "4" "5" "8" "10" "12" "15" "20" "30"))<br />   (setq popxsd_list '("0.0" "0.00" "0.000" "0.0000" "0.00000" "0.000000" "0.0000000"))<br />   (chk_style)<br />   (dcl_mjbz)<br />   (prin1)<br /> )<br /> (defun readata ()<br /> (setq bzdw (get_tile "bzdw"))<br /> (setq bl (cond((= bzdw "pfmbz") 1)((= bzdw "mbz") (/ 10000 15.0))((= bzdw "gqbz") 10000)))<br /> (setq bzdw (cond((= bzdw "pfmbz") "平方米")((= bzdw "mbz") "亩")((= bzdw "gqbz") "公顷")))<br /> (setq txtzg (itoa (nth (itoa (get_tile "popzg")) popzg_list)))<br /> (setq xsd (1+ (itoa (get_tile "popxsd"))))<br /> )<br /> (defun dcl_mjbz()<br /> (if (> (setq dcl_id (load_dialog "mjbz.dcl")) 0) (progn<br />   (if (new_dialog "mjbz" dcl_id) (progn<br />   (show_lst "popzg" popzg_list)<br />   (set_tile "popzg" "0")<br />   (show_lst "popxsd" popxsd_list)<br />   (set_tile "popxsd" "2")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "accept" "(readata)(done_dialog 1)")<br />   (setq dd(start_dialog))               ;将控制权交给DCL<br />   )<br />    (princ "\n无法显示对话框！")<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= dd 1) (progn<br />   (setq pt (getpoint "\请点取计算面积书写位置：" )) <br />   (if (setq STA (bpoly PT)) (progn<br />    (command "AREA" "E" "L")<br />    (setq QAREA (rtos (/ (getvar "AREA") bl) 2 xsd)) ;2 = 十进制，xsd = 小数点位数<br />    (command "TEXT" PT txtzg "0" (strcat QAREA bzdw))  ;txtzg=字高，0角度<br />   ))<br /> ))<br /> )<br /> (defun show_list(key newlist) ;调用显示选单数据子程序<br /> (start_list key)             ;开始处理选单对象<br /> (mapcar 'add_list newlist)   ;逐一加入信息至选单<br /> (end_list)                   ;结束处理选单<br /> )<br /> (defun chk_style()   ;检查字型<br /> (setq chksty (tblsearch "style" "Standard"))<br /> (if (null chksty)                                 ;如果不存在，则新建字形<br />   (command "_style" "Standard" "宋体" "" "" "" "" "")<br /> )<br /> (command "_layer" "m" "面积" "c" "3" "" "")<br /> (setvar "clayer" "面积")                        ;预设目前图层<br /> (setvar "textstyle" "Standard")                 ;预设目前字形<br /> )<br />

kewyst

很不错啊，看见大神的回复，正在学习dcl，能把dcl打包到lsp里面吗？

(setq txtzg (itoa (nth (itoa (get_tile "popzg")) popzg_list))) 这句有问题！
(defun show_list(key newlist)    (show_lst "popzg" popzg_list) 也有问题

feng83

(defun c:mjbz()
  (setvar "cmdecho" 0)
  (setq popzg_list '("1" "2" "3" "4" "5" "8" "10" "12" "15" "20" "30"))
  (setq popxsd_list '("0.0" "0.00" "0.000" "0.0000" "0.00000" "0.000000" "0.0000000"))
  (chk_style)
  (dcl_mjbz)
  (prin1)
)
(defun readata ()
  (setq bzdw (get_tile "bzdw"))
  (setq bl (cond((= bzdw "pfmbz") 1)
                ((= bzdw "mbz") (/ 10000 15.0))
                ((= bzdw "gqbz") 10000)))
  (setq bzdw (cond((= bzdw "pfmbz") "平方米")
                  ((= bzdw "mbz") "亩")
                  ((= bzdw "gqbz") "公顷")))
  (setq txtzg (nth (atoi (get_tile "popzg")) popzg_list)  )
  (setq xsd (1+ (atoi (get_tile "popxsd"))))
  )
(defun dcl_mjbz()
(if (> (setq dcl_id (load_dialog "c:/mjbz.dcl")) 0)
   (progn
     (if (new_dialog "mjbz" dcl_id)
       (progn
         (show_list "popzg" popzg_list)
         (set_tile "popzg" "0")
         (show_list "popxsd" popxsd_list)
         (set_tile "popxsd" "2")
         (action_tile "cancel" "(done_dialog 0)")
         (action_tile "accept" "(readata)(done_dialog 1)")
         (setq dd(start_dialog))               ;将控制权交给DCL
         )
       (princ "\n无法显示对话框！")
       )
     (unload_dialog dcl_id)
     )
   (princ "\n无法加载对话框！")
   )
  (if (= dd 1)
    (progn
      (setq pt (getpoint "\请点取计算面积书写位置：" ))
      (if (setq STA (bpoly PT))
        (progn
          (command "AREA" "E" "L")
          (setq QAREA (rtos (/ (getvar "AREA") bl) 2 xsd)) ;2 = 十进制，xsd = 小数点位数
          (command "TEXT" PT txtzg "0" (strcat QAREA bzdw))  ;txtzg=字高，0角度
          ))
      ))
  )
(defun show_list(key newlist) ;调用显示选单数据子程序
(start_list key)             ;开始处理选单对象
(mapcar 'add_list newlist)   ;逐一加入信息至选单
(end_list)                   ;结束处理选单
)
(defun chk_style()   ;检查字型
(setq chksty (tblsearch "style" "Standard"))
(if (null chksty)                                 ;如果不存在，则新建字形
  (command "_style" "Standard" "宋体" "" "" "" "" "")
)
(command "_layer" "m" "面积" "c" "3" "" "")
(setvar "clayer" "面积")                        ;预设目前图层
(setvar "textstyle" "Standard")                 ;预设目前字形
)
只是改了几处错误，让程序可以运行