[求助]：请教DCL对话框嵌套时，lisp程序设计时应该有哪些要点？

wee

我是刚开始学习Vlisp&DCL的菜鸟，碰到DCL对话框时对done_dialog函数的参数没有完全理解，导致对话框嵌套老实现不了。请问版主以及其他高人。

长清

举例:
DCL文件内容:

2. <normalfont>
   
3. ts1:dialog{
   
4.    label="测试对话框";
   
5.    :button{ label="新对话框";key="ts1";}
   
6.    ok_cancel;
   
7. }
   
8. ts2:dialog{
   
9.    label="测试对话框";
   
10.    :edit_box{label="测试";key="box";}
    
11.    :button{label="&sup1;关闭;key="dn2";}
    
12.    ok_cancel;
    
13. }
    
14. LISP文件:
    
15. (defun c:ts ()
    
16.   (defun newdlg ()
    
17.     (new_dialog "ts2" dcl_id)
    
18.     (set_tile "box" "测试文件")
    
19.     (action_tile "dn2" "(done_dialog 2)")
    
20.     (start_dialog)
    
21.   )
    
22.   (setq dcl_id (load_dialog "ts1"))
    
23.   (new_dialog "ts1" dcl_id)
    
24.   (action_tile "ts1" "(newdlg)")
    
25.   (start_dialog)
    
26. )
    
27. </normalfont>

<normalfont><br /> ts1:dialog{<br />    label="测试对话框";<br />    :button{ label="新对话框";key="ts1";}<br />    ok_cancel;<br /> }<br /> ts2:dialog{<br />    label="测试对话框";<br />    :edit_box{label="测试";key="box";}<br />    :button{label="&sup1;关闭;key="dn2";}<br />    ok_cancel;<br /> }<br /> LISP文件:<br /> (defun c:ts ()<br />   (defun newdlg ()<br />     (new_dialog "ts2" dcl_id)<br />     (set_tile "box" "测试文件")<br />     (action_tile "dn2" "(done_dialog 2)")<br />     (start_dialog)<br />   )<br />   (setq dcl_id (load_dialog "ts1"))<br />   (new_dialog "ts1" dcl_id)<br />   (action_tile "ts1" "(newdlg)")<br />   (start_dialog)<br /> )<br /> </normalfont>

自己试一下,这是测试通过的.

注意:
嵌套与done_dialog的参数无关,它的参数一般作为程序分支运行的条件判断依据,也可作为隐藏对话框时使用的依据

zhynt

啊，我正好写了个对话框嵌套的实例，不知对你有没有帮助。
我想关键就是运用结束对话框时的返回值。
程序如下：呵呵长了点啊。

2. 
   
3. bg : dialog {
   
4.    label = "标高标注设置 <作者：张越 2000.6.12>";
   
5.      : column {
   
6.           : row {
   
7.           : boxed_column {
   
8.              label = "基准点：";
   
9.             : button {
   
10.                label = "基准点：〈";
    
11.                key = "pick";
    
12.             }
    
13.            : edit_box {
    
14.                label = "起始标高：";
    
15.                key = "ssbg";
    
16.             }
    
17.          }
    
18.          : boxed_column {
    
19.          label = "标高值：";
    
20.           fixed_width = true ;
    
21.             : toggle {
    
22.                label = "手工输入标高值";
    
23.                  key = "yn";
    
24.             }
    
25.             : edit_box {
    
26.             label = "标高值：";
    
27.             is_enabled = false;
    
28.             key = "bgz";
    
29.             }
    
30.             }
    
31.             }
    
32.             : row {
    
33.              : boxed_column {
    
34.               label = "比例：";
    
35.                fixed_width = true ;
    
36.             : edit_box {
    
37.               label = "作图比例：";
    
38.                fixed_width = true ;
    
39.               key = "scale1";
    
40.               value = "100";
    
41.             }
    
42.             : edit_box {
    
43.               label = "图纸比例：";
    
44.                fixed_width = true ;
    
45.               key = "scale2";
    
46.               value = "100";
    
47.             }
    
48.          }
    
49.             : boxed_column {
    
50.             label = "标高式样：";
    
51.           // fixed_width = true ;
    
52.             : toggle {
    
53.                label = "画出引出线";
    
54.             //    fixed_width = true ;
    
55.                key = "yt";
    
56.             }
    
57.             : toggle {
    
58.                label = "使之与基线平行";
    
59.           //fixed_width = true ;
    
60.                key = "ym";
    
61.             }
    
62.          }
    
63.         
    
64.          }
    
65.         }
    
66.          : boxed_column {
    
67.          label = "选择字型：";
    
68.             : popup_list {
    
69.               label = "选择字型：";
    
70.               key = "styl";
    
71.              }
    
72.                fixed_height = true;
    
73.             : concatenation {
    
74.                 : text_part {
    
75.                     label = "当前字型：";
    
76.                     width = 10;
    
77.                  }
    
78.                  : text_part {
    
79.                    key = "csty";
    
80.                    width = 10;
    
81.                  }
    
82.             }
    
83.          }
    
84.        spacer;
    
85.       : row {
    
86.           ok_cancel;
    
87.           : button {
    
88.              label = "说明(&H)";
    
89.               fixed_width = true;
    
90.               key = "shuoming";
    
91.           }
    
92.           spacer;
    
93.       }
    
94. }
    
95. shuoming : dialog{
    
96.       label= "简要说明";
    
97.              : column {
    
98.                 : button  {
    
99.                    label = "基准点";
    
100.                    key = "shuom1";
     
101.                 }
     
102.                 : button  {
     
103.                    label = "手工输入标高";
     
104.                    key = "shuom2";
     
105.                 }
     
106.                 : button  {
     
107.                    label = "作图比例";
     
108.                    key = "shuom3";
     
109.                 }
     
110.                 : button  {
     
111.                    label = "图纸比例";
     
112.                    key = "shuom4";
     
113.                 }
     
114.                 : button  {
     
115.                    label = "选择字型";
     
116.                    key = "shuom5";
     
117.                 }
     
118.                 : button  {
     
119.                    label = "使之与基线平行";
     
120.                    key = "shuom6";
     
121.                 }
     
122.                 ok_only;
     
123.              }
     
124. }
     
125. shuom1 : dialog {
     
126.       label= "简要说明";
     
127.      : boxed_column {
     
128.       label= "基准点说明";
     
129.         fixed_height = true;
     
130.         fixed_widht = true;
     
131.         : text {
     
132.            label = " 用于设置基准标高值的位置。";
     
133.         }
     
134.      }
     
135.      ok_only;
     
136. }
     
137. shuom2 : dialog {
     
138.       label= "简要说明";
     
139.      : boxed_column {
     
140.       label= "手工标高输入说明";
     
141.         fixed_height = true;
     
142.         fixed_widht = true;
     
143.         : text {
     
144.            label = " 打开时程序将提示你输入标高值。";
     
145.         }
     
146.         : text {
     
147.            label = " 有记忆功能。";
     
148.         }  
     
149.         : text {
     
150.            label = " 关闭时程序将直接画出插入点的标高。";
     
151.         }
     
152.      }
     
153.      ok_only;
     
154. }
     
155. shuom3 : dialog {
     
156.       label= "简要说明";
     
157.      : boxed_column {
     
158.       label= "作图比例说明";
     
159.         fixed_height = true;
     
160.         fixed_widht = true;
     
161.         : text {
     
162.            label = " 即你所要进行标注的大样图或立面图的比例。";
     
163.         }
     
164.      }
     
165.      ok_only;
     
166. }
     
167. shuom4 : dialog {
     
168.       label= "简要说明";
     
169.      : boxed_column {
     
170.         label= "图纸比例说明";
     
171.         fixed_height = true;
     
172.         fixed_widht = true;
     
173.         : text {
     
174.            label = " 即出图时所用的比例。";
     
175.         }
     
176.      }
     
177.      ok_only;
     
178. }
     
179. shuom5 : dialog {
     
180. label= "简要说明";
     
181. : boxed_column {
     
182. label= "选择字型说明";
     
183. fixed_height = true;
     
184. fixed_widht = true;
     
185. : text {
     
186. label = " 即画标高时所用的字型。";
     
187. }
     
188. }
     
189. ok_only;
     
190. }
     
191. shuom6 : dialog {
     
192. label= "简要说明";
     
193. : boxed_column {
     
194. label= "与基线平行说明";
     
195. fixed_height = true;
     
196. fixed_widht = true;
     
197. : text {
     
198. label = " 用于水暖作图时，将标高方向同管道。";
     
199. }
     
200. }
     
201. ok_only;
     
202. }
     

<br /> bg : dialog {<br />    label = "标高标注设置 <作者：张越 2000.6.12>";<br />      : column {<br />           : row {<br />           : boxed_column {<br />              label = "基准点：";<br />             : button {<br />                label = "基准点：〈";<br />                key = "pick";<br />             }<br />            : edit_box {<br />                label = "起始标高：";<br />                key = "ssbg";<br />             }<br />          }<br />          : boxed_column {<br />          label = "标高值：";<br />           fixed_width = true ;<br />             : toggle {<br />                label = "手工输入标高值";<br />                  key = "yn";<br />             }<br />             : edit_box {<br />             label = "标高值：";<br />             is_enabled = false;<br />             key = "bgz";<br />             }<br />             }<br />             }<br />             : row {<br />              : boxed_column {<br />               label = "比例：";<br />                fixed_width = true ;<br />             : edit_box {<br />               label = "作图比例：";<br />                fixed_width = true ;<br />               key = "scale1";<br />               value = "100";<br />             }<br />             : edit_box {<br />               label = "图纸比例：";<br />                fixed_width = true ;<br />               key = "scale2";<br />               value = "100";<br />             }<br />          }<br />             : boxed_column {<br />             label = "标高式样：";<br />           // fixed_width = true ;<br />             : toggle {<br />                label = "画出引出线";<br />             //    fixed_width = true ;<br />                key = "yt";<br />             }<br />             : toggle {<br />                label = "使之与基线平行";<br />           //fixed_width = true ;<br />                key = "ym";<br />             }<br />          }<br />         <br />          }<br />         }<br />          : boxed_column {<br />          label = "选择字型：";<br />             : popup_list {<br />               label = "选择字型：";<br />               key = "styl";<br />              }<br />                fixed_height = true;<br />             : concatenation {<br />                 : text_part {<br />                     label = "当前字型：";<br />                     width = 10;<br />                  }<br />                  : text_part {<br />                    key = "csty";<br />                    width = 10;<br />                  }<br />             }<br />          }<br />        spacer;<br />       : row {<br />           ok_cancel;<br />           : button {<br />              label = "说明(&H)";<br />               fixed_width = true;<br />               key = "shuoming";<br />           }<br />           spacer;<br />       }<br /> }<br /> shuoming : dialog{<br />       label= "简要说明";<br />              : column {<br />                 : button  {<br />                    label = "基准点";<br />                    key = "shuom1";<br />                 }<br />                 : button  {<br />                    label = "手工输入标高";<br />                    key = "shuom2";<br />                 }<br />                 : button  {<br />                    label = "作图比例";<br />                    key = "shuom3";<br />                 }<br />                 : button  {<br />                    label = "图纸比例";<br />                    key = "shuom4";<br />                 }<br />                 : button  {<br />                    label = "选择字型";<br />                    key = "shuom5";<br />                 }<br />                 : button  {<br />                    label = "使之与基线平行";<br />                    key = "shuom6";<br />                 }<br />                 ok_only;<br />              }<br /> }<br /> shuom1 : dialog {<br />       label= "简要说明";<br />      : boxed_column {<br />       label= "基准点说明";<br />         fixed_height = true;<br />         fixed_widht = true;<br />         : text {<br />            label = " 用于设置基准标高值的位置。";<br />         }<br />      }<br />      ok_only;<br /> }<br /> shuom2 : dialog {<br />       label= "简要说明";<br />      : boxed_column {<br />       label= "手工标高输入说明";<br />         fixed_height = true;<br />         fixed_widht = true;<br />         : text {<br />            label = " 打开时程序将提示你输入标高值。";<br />         }<br />         : text {<br />            label = " 有记忆功能。";<br />         }  <br />         : text {<br />            label = " 关闭时程序将直接画出插入点的标高。";<br />         }<br />      }<br />      ok_only;<br /> }<br /> shuom3 : dialog {<br />       label= "简要说明";<br />      : boxed_column {<br />       label= "作图比例说明";<br />         fixed_height = true;<br />         fixed_widht = true;<br />         : text {<br />            label = " 即你所要进行标注的大样图或立面图的比例。";<br />         }<br />      }<br />      ok_only;<br /> }<br /> shuom4 : dialog {<br />       label= "简要说明";<br />      : boxed_column {<br />         label= "图纸比例说明";<br />         fixed_height = true;<br />         fixed_widht = true;<br />         : text {<br />            label = " 即出图时所用的比例。";<br />         }<br />      }<br />      ok_only;<br /> }<br /> shuom5 : dialog {<br /> label= "简要说明";<br /> : boxed_column {<br /> label= "选择字型说明";<br /> fixed_height = true;<br /> fixed_widht = true;<br /> : text {<br /> label = " 即画标高时所用的字型。";<br /> }<br /> }<br /> ok_only;<br /> }<br /> shuom6 : dialog {<br /> label= "简要说明";<br /> : boxed_column {<br /> label= "与基线平行说明";<br /> fixed_height = true;<br /> fixed_widht = true;<br /> : text {<br /> label = " 用于水暖作图时，将标高方向同管道。";<br /> }<br /> }<br /> ok_only;<br /> }<br />

这是调用程序

2. 
   
3. ;;;       ===============================================
   
4. ;;;       |             标高自动标注软件                 |
   
5. ;;;       |         版本: V4.0   作者: 张越 (99.7.9-29)  |
   
6. ;;;       |         修改于2000.6                         |
   
7. ;;;       ===============================================
   
8. (defun C:bg (/           dx         dy    dx1   dx2   dy1         pt    txt   txt2
   
9.              oldsty         lay   pt1   pt2   pt3         pt4   pt5   ptt
   
10.              sc1   sc2
    
11.             )
    
12. (defun dxf (code elist)
    
13.   (cdr (assoc code elist))
    
14. )
    
15.   (setvar "CMDECHO" 0)
    
16.   (setq lay (getvar "clayer"))
    
17.   (command "color" "bylayer")
    
18.   (if (= nil (tblsearch "layer" "wz"))
    
19.     (command "layer" "m" "wz" "c" "7" "" "")
    
20.   )
    
21.   (if (= nil (tblsearch "layer" "bg"))
    
22.     (command "layer" "m" "bg" "c" "9" "" "")
    
23.   )
    
24.   (if (not ztsc)
    
25.     (progn
    
26.       (alert
    
27.         "    您还没有进行必要的设置\n工作，请先使用“sbg”命令。\n祝您工作愉快！\n\n
    
28. ----------------作者：张越"
    
29.       )
    
30.       (exit)
    
31.     )
    
32.   )
    
33.   (setq sc1 (atoi tzsc))
    
34.   (setq sc2 (/ (atof ztsc) 100))
    
35.   (setq os (getvar "osmode"))
    
36.   (setvar "osmode" 547)
    
37.   (if (= ym1 "1")
    
38.     (progn
    
39.       (setq obline (car (entsel "请选择一条基准线")))
    
40.       (command "ucs" "OB" obline)
    
41.     )
    
42.   )
    
43.   (setq pt (getpoint "\n插入点: "))
    
44.   (setvar "osmode" 0)
    
45.   (setq orth (getvar "orthomode"))
    
46.   (setvar "orthomode" 0)
    
47.   (setq ang (getangle pt "\n方向 <用鼠标指取,直接回车为右上>："))
    
48.   (if (= ang nil)
    
49.     (setq ang 0.5)
    
50.   )
    
51.   (setvar "orthomode" orth)
    
52.   (if (= ssbg nil)
    
53.     (setq ssbg1 0.000)
    
54.     (setq ssbg1 (atof ssbg))
    
55.   )
    
56.   (if (= yn1 "1")
    
57.     (progn
    
58.       (prompt "\n输入标高值<")
    
59.       (prompt bgz1)
    
60.       (setq txt2 (getstring ">"))
    
61.       (if (= txt2 "")
    
62.         (setq txt2 bgz1)
    
63.         (setq bgz1 txt2)
    
64.       )
    
65.       (if (or (= txt2 "0") (= txt2 "0.000"))
    
66.         (setq txt2 "%%1290.000")
    
67.       )
    
68.     )
    
69.     (progn
    
70.       (if (= opt nil)
    
71.         (progn
    
72.           (setq opt pt)
    
73.           (setq ypt (cadr opt))
    
74.           (setq xpt (car opt))
    
75.         )
    
76.       )
    
77.       (setq dy (- (cadr pt) ypt))
    
78.       (setq txt (+ (* (/ dy (* sc1 10)) sc2) ssbg1))
    
79.       (setq txt2 (rtos txt 2 3))
    
80.       (if (or (= txt2 "0.000") (= txt2 "0"))
    
81.         (setq txt2 "%%1290.000")
    
82.       )
    
83.     )
    
84.   )
    
85.   (setq pt1 (polar pt 3.14159 (* 6 sc1)))
    
86.   (setq pt2 (polar pt 0 (* 3 sc1)))
    
87.   (setvar "clayer" "bg")
    
88.   (if (= yt1 "1")
    
89.     (command "line" pt1 pt2 "")
    
90.   )
    
91.   (if (/= sty0 nil)
    
92.     (setvar "textstyle" sty0)
    
93.   )
    
94.   (cond
    
95.     ((and (> ang 0)
    
96.           (< ang (/ pi 2))
    
97.      )
    
98.      (setq pt4 (polar pt 0.785398 (* 3.5 sc1)))
    
99.      (setq pt3 (polar pt 2.356194 (* 3.5 sc1)))
    
100.      (setq pt5 (polar pt3 0 (* 15 sc1)))
     
101.      (setq ptt (polar pt5 2.094395 (* 1.1547 sc1)))
     
102.      (setq high (* 3 sc1))
     
103.      (setvar "clayer" "wz")
     
104.      (command "text" "r" ptt high "0" txt2)
     
105.     )
     
106.     ((and (> ang 4.88691)
     
107.           (< ang 6.283185)
     
108.      )
     
109.      (setq pt4 (polar pt 5.497787 (* 3.5 sc1)))
     
110.      (setq pt3 (polar pt 3.926991 (* 3.5 sc1)))
     
111.      (setq pt5 (polar pt3 0 (* 15 sc1)))
     
112.      (setq ptt (polar pt5 4.188790 (* 1.1547 sc1)))
     
113.      (setq high (* 3 sc1))
     
114.      (setvar "clayer" "wz")
     
115.      (command "text" "tr" ptt high "0" txt2)
     
116.     )
     
117.     ((and (> ang (/ pi 2))
     
118.           (< ang pi)
     
119.      )
     
120.      (setq pt3 (polar pt 0.785398 (* 3.5 sc1)))
     
121.      (setq pt4 (polar pt 2.356194 (* 3.5 sc1)))
     
122.      (setq pt5 (polar pt3 pi (* 15 sc1)))
     
123.      (setq ptt (polar pt5 1.047198 (* 1.1547 sc1)))
     
124.      (setq high (* 3 sc1))
     
125.      (setvar "clayer" "wz")
     
126.      (command "text" ptt high "0" txt2)
     
127.     )
     
128.     ((and (> ang 3.141593)
     
129.           (< ang 4.886922)
     
130.      )
     
131.      (setq pt4 (polar pt 3.926991 (* 3.5 sc1)))
     
132.      (setq pt3 (polar pt 5.497787 (* 3.5 sc1)))
     
133.      (setq pt5 (polar pt3 pi (* 15 sc1)))
     
134.      (setq ptt (polar pt5 5.325988 (* 1.1547 sc1)))
     
135.      (setq high (* 3 sc1))
     
136.      (setvar "clayer" "wz")
     
137.      (command "text" "tl" ptt high "0" txt2)
     
138.     )
     
139.   )
     
140.   (setvar "clayer" "bg")
     
141.   (setq ww (getvar "plinewid"))
     
142.   (setvar "plinewid" 0)
     
143.   (command "pline" pt4 pt pt3 pt5 "")
     
144.   (setvar "plinewid" ww)
     
145.   (setvar "clayer" lay)
     
146.   (setvar "osmode" os)
     
147.   (IF (= ym1 "1")
     
148.     (COMMAND "UCS" "")
     
149.   )
     
150.   (princ)
     
151. )
     
152. ;;;;;=========================================
     
153. ;;;;;              初始值设置
     
154. ;;;;;=========================================
     
155. (defun c:sbg (/ whet_next dia_id sty_zh opt osan)
     
156.   (defun style ()
     
157.     (setq n (atoi (get_tile "styl")))
     
158.     (setq sty (nth n stytab))
     
159.     (setq sty0 sty)
     
160.     (set_tile "csty" sty)
     
161.   )
     
162. (defun fdzx (/ sty1 sty2 first tab sm1 sm2)
     
163.   (setq first T)
     
164.   (setq tab '())
     
165.   (setq stytab '())
     
166.   (setq sty_zh '())
     
167.   (while (setq sty1 (tblnext "style" first)) ;搜索图中字型      　
     
168.     (if        (= first T)
     
169.       (setq first nil)
     
170.     )
     
171.     (if        (/= sty1 nil)
     
172.       (progn
     
173.         (setq tab (cons sty1 tab))
     
174.         (setq sty1 (nth 0 tab))
     
175.         (setq sty2 (dxf 2 sty1))        ;字型名称
     
176.         (setq sm1 (dxf 3 sty1))                ;所用小字体文件的名称
     
177.         (setq sm2 (dxf 4 sty1))                ;所用大字体文件的名称
     
178.         (setq stytab (cons sty2 stytab))
     
179.         (if (and sm2 (/= sm2 ""))
     
180.           (setq sty_zh (cons (strcat sty2 " : < " sm1 " , " sm2 " >") sty_zh))
     
181.           (setq sty_zh (cons (strcat sty2 " : < " sm1 " >") sty_zh))
     
182.         )
     
183.       )
     
184.     )
     
185.   )
     
186. )
     
187.   (defun bgzh ()
     
188.     (setq yn1 (get_tile "yn"))
     
189.     (if        (= yn1 "1")
     
190.       (progn
     
191.         (mode_tile "pick" 1)
     
192.         (mode_tile "ssbg" 1)
     
193.         (mode_tile "bgz" 0)
     
194.       )
     
195.       (progn
     
196.         (mode_tile "pick" 0)
     
197.         (mode_tile "ssbg" 0)
     
198.         (mode_tile "bgz" 1)
     
199.       )
     
200.     )
     
201.   )
     
202.   (defun shuo ()
     
203.     (if        (not (new_dialog "shuoming" dia_id))
     
204.       (exit)
     
205.     )
     
206.     (action_tile "shuom1" "(shuo1)")
     
207.     (action_tile "shuom2" "(shuo2)")
     
208.     (action_tile "shuom3" "(shuo3)")
     
209.     (action_tile "shuom4" "(shuo4)")
     
210.     (action_tile "shuom5" "(shuo5)")
     
211.     (action_tile "shuom6" "(shuo6)")
     
212.     (action_tile "accept" "(done_dialog 6)")
     
213.     (start_dialog)
     
214.   )
     
215.   (defun shuo1 ()
     
216.     (if        (not (new_dialog "shuom1" dia_id))
     
217.       (exit)
     
218.     )
     
219.     (action_tile "accept" "(done_dialog 6)")
     
220.     (start_dialog)
     
221.   )
     
222.   (defun shuo2 ()
     
223.     (if        (not (new_dialog "shuom2" dia_id))
     
224.       (exit)
     
225.     )
     
226.     (action_tile "accept" "(done_dialog 6)")
     
227.     (start_dialog)
     
228.   )
     
229.   (defun shuo3 ()
     
230.     (if        (not (new_dialog "shuom3" dia_id))
     
231.       (exit)
     
232.     )
     
233.     (action_tile "accept" "(done_dialog 6)")
     
234.     (start_dialog)
     
235.   )
     
236.   (defun shuo4 ()
     
237.     (if        (not (new_dialog "shuom4" dia_id))
     
238.       (exit)
     
239.     )
     
240.     (action_tile "accept" "(done_dialog 6)")
     
241.     (start_dialog)
     
242.   )
     
243.   (defun shuo5 ()
     
244.     (if        (not (new_dialog "shuom5" dia_id))
     
245.       (exit)
     
246.     )
     
247.     (action_tile "accept" "(done_dialog 6)")
     
248.     (start_dialog)
     
249.   )
     
250.   (defun shuo6 ()
     
251.     (if        (not (new_dialog "shuom6" dia_id))
     
252.       (exit)
     
253.     )
     
254.     (action_tile "accept" "(done_dialog 6)")
     
255.     (start_dialog)
     
256.   )
     
257.   (fdzx)
     
258.   (setq sty0 (getvar "textstyle"))
     
259.   (setq oldsty sty0)
     
260.   (setq whet_next 6)
     
261.   (if (and (not dia_id) (< (setq dia_id (load_dialog "bg")) 0))
     
262.     (exit)
     
263.   )
     
264.   (while (< 2 whet_next)
     
265.     (if        (not (new_dialog "bg" dia_id))
     
266.       (exit)
     
267.     )
     
268.     (if        (= ssbg nil)
     
269.       (set_tile "ssbg" "0.000")
     
270.       (set_tile "ssbg" ssbg)
     
271.     )
     
272.     (if        (= ztsc nil)
     
273.       (progn
     
274.         (set_tile "scale1" "100")
     
275.         (setq ztsc "100")
     
276.       )
     
277.       (set_tile "scale1" ztsc)
     
278.     )
     
279.     (if        (= tzsc nil)
     
280.       (progn
     
281.         (set_tile "scale2" "100")
     
282.         (setq tzsc "100")
     
283.       )
     
284.       (set_tile "scale2" tzsc)
     
285.     )
     
286.     (if        (= yn1 nil)
     
287.       (set_tile "yn" "0")
     
288.       (set_tile "yn" yn1)
     
289.     )
     
290.     (if        (= yn1 "1")
     
291.       (progn
     
292.         (mode_tile "pick" 1)
     
293.         (mode_tile "ssbg" 1)
     
294.         (mode_tile "bgz" 0)
     
295.         )
     
296.     )
     
297.     (if        (= yt1 nil)
     
298.       (set_tile "yt" "0")
     
299.       (set_tile "yt" yt1)
     
300.     )
     
301.     (if        (= ym1 nil)
     
302.       (set_tile "ym" "0")
     
303.       (set_tile "ym" ym1)
     
304.     )
     
305.     (if        (= bgz1 nil)
     
306.       (progn
     
307.         (set_tile "bgz" "0.000")
     
308.         (setq bgz1 "0.000")
     
309.       )
     
310.       (set_tile "bgz" bgz1)
     
311.     )
     
312.     (action_tile "pick" "(done_dialog 4)")
     
313.     (action_tile "ssbg" "(setq ssbg $value)")
     
314.     (action_tile "yn" "(bgzh)")
     
315.     (ACTION_TILE "yt" "(SETQ yt1 $VALUE)")
     
316.     (ACTION_TILE "ym" "(setq ym1 $VALUE)")
     
317.     (action_tile "bgz" "(setq bgz1 $value)")
     
318.     (action_tile "scale1" "(setq ztsc $value)")
     
319.     (action_tile "scale2" "(setq tzsc $value)")
     
320.     (start_list "styl")                        ;字型列表
     
321.     (mapcar 'add_list sty_zh)
     
322.     (end_list)
     
323.     (setq n (- (length stytab) (length (member sty0 stytab))))
     
324.     (set_tile "styl" (itoa n))                ;聚焦在所用字型上
     
325.     (action_tile "styl" "(style)")
     
326.     (if        (= sty nil)
     
327.       (set_tile "csty" sty0)
     
328.       (set_tile "csty" sty)
     
329.     )
     
330.     (action_tile "shuoming" "(shuo)")
     
331.     (action_tile "accept" "(done_dialog 1)")
     
332.     (action_tile "cancel" "(unload_dialog dia_id)")
     
333.                                         ;(action_tile "erase" "(done_dialog 0)(setq ztsc nil)
     
334.                                         ;                     (setq tzsc nil)(setq ypt nil)(setq xpt nil)")
     
335.     (setq whet_next (start_dialog))
     
336.     (if        (/= sty nil)
     
337.       (setvar "textstyle" sty)
     
338.     )
     
339.     (if        (= whet_next 4)
     
340.       (progn
     
341.         (setq osan (getvar "osmode"))
     
342.         (setvar "osmode" 512)
     
343.         (setq opt (getpoint "\n选择基准点:"))
     
344.         (setvar "osmode" osan)
     
345.         (setq ypt (cadr opt))
     
346.         (setq xpt (car opt))
     
347.       )
     
348.     )
     
349.   )
     
350. )
     

<br /> ;;;       ===============================================<br /> ;;;       |             标高自动标注软件                 |<br /> ;;;       |         版本: V4.0   作者: 张越 (99.7.9-29)  |<br /> ;;;       |         修改于2000.6                         |<br /> ;;;       ===============================================<br /> (defun C:bg (/           dx         dy    dx1   dx2   dy1         pt    txt   txt2<br />              oldsty         lay   pt1   pt2   pt3         pt4   pt5   ptt<br />              sc1   sc2<br />             )<br /> (defun dxf (code elist)<br />   (cdr (assoc code elist))<br /> )<br />   (setvar "CMDECHO" 0)<br />   (setq lay (getvar "clayer"))<br />   (command "color" "bylayer")<br />   (if (= nil (tblsearch "layer" "wz"))<br />     (command "layer" "m" "wz" "c" "7" "" "")<br />   )<br />   (if (= nil (tblsearch "layer" "bg"))<br />     (command "layer" "m" "bg" "c" "9" "" "")<br />   )<br />   (if (not ztsc)<br />     (progn<br />       (alert<br />         "    您还没有进行必要的设置\n工作，请先使用“sbg”命令。\n祝您工作愉快！\n\n<br /> ----------------作者：张越"<br />       )<br />       (exit)<br />     )<br />   )<br />   (setq sc1 (atoi tzsc))<br />   (setq sc2 (/ (atof ztsc) 100))<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 547)<br />   (if (= ym1 "1")<br />     (progn<br />       (setq obline (car (entsel "请选择一条基准线")))<br />       (command "ucs" "OB" obline)<br />     )<br />   )<br />   (setq pt (getpoint "\n插入点: "))<br />   (setvar "osmode" 0)<br />   (setq orth (getvar "orthomode"))<br />   (setvar "orthomode" 0)<br />   (setq ang (getangle pt "\n方向 <用鼠标指取,直接回车为右上>："))<br />   (if (= ang nil)<br />     (setq ang 0.5)<br />   )<br />   (setvar "orthomode" orth)<br />   (if (= ssbg nil)<br />     (setq ssbg1 0.000)<br />     (setq ssbg1 (atof ssbg))<br />   )<br />   (if (= yn1 "1")<br />     (progn<br />       (prompt "\n输入标高值<")<br />       (prompt bgz1)<br />       (setq txt2 (getstring ">"))<br />       (if (= txt2 "")<br />         (setq txt2 bgz1)<br />         (setq bgz1 txt2)<br />       )<br />       (if (or (= txt2 "0") (= txt2 "0.000"))<br />         (setq txt2 "%%1290.000")<br />       )<br />     )<br />     (progn<br />       (if (= opt nil)<br />         (progn<br />           (setq opt pt)<br />           (setq ypt (cadr opt))<br />           (setq xpt (car opt))<br />         )<br />       )<br />       (setq dy (- (cadr pt) ypt))<br />       (setq txt (+ (* (/ dy (* sc1 10)) sc2) ssbg1))<br />       (setq txt2 (rtos txt 2 3))<br />       (if (or (= txt2 "0.000") (= txt2 "0"))<br />         (setq txt2 "%%1290.000")<br />       )<br />     )<br />   )<br />   (setq pt1 (polar pt 3.14159 (* 6 sc1)))<br />   (setq pt2 (polar pt 0 (* 3 sc1)))<br />   (setvar "clayer" "bg")<br />   (if (= yt1 "1")<br />     (command "line" pt1 pt2 "")<br />   )<br />   (if (/= sty0 nil)<br />     (setvar "textstyle" sty0)<br />   )<br />   (cond<br />     ((and (> ang 0)<br />           (< ang (/ pi 2))<br />      )<br />      (setq pt4 (polar pt 0.785398 (* 3.5 sc1)))<br />      (setq pt3 (polar pt 2.356194 (* 3.5 sc1)))<br />      (setq pt5 (polar pt3 0 (* 15 sc1)))<br />      (setq ptt (polar pt5 2.094395 (* 1.1547 sc1)))<br />      (setq high (* 3 sc1))<br />      (setvar "clayer" "wz")<br />      (command "text" "r" ptt high "0" txt2)<br />     )<br />     ((and (> ang 4.88691)<br />           (< ang 6.283185)<br />      )<br />      (setq pt4 (polar pt 5.497787 (* 3.5 sc1)))<br />      (setq pt3 (polar pt 3.926991 (* 3.5 sc1)))<br />      (setq pt5 (polar pt3 0 (* 15 sc1)))<br />      (setq ptt (polar pt5 4.188790 (* 1.1547 sc1)))<br />      (setq high (* 3 sc1))<br />      (setvar "clayer" "wz")<br />      (command "text" "tr" ptt high "0" txt2)<br />     )<br />     ((and (> ang (/ pi 2))<br />           (< ang pi)<br />      )<br />      (setq pt3 (polar pt 0.785398 (* 3.5 sc1)))<br />      (setq pt4 (polar pt 2.356194 (* 3.5 sc1)))<br />      (setq pt5 (polar pt3 pi (* 15 sc1)))<br />      (setq ptt (polar pt5 1.047198 (* 1.1547 sc1)))<br />      (setq high (* 3 sc1))<br />      (setvar "clayer" "wz")<br />      (command "text" ptt high "0" txt2)<br />     )<br />     ((and (> ang 3.141593)<br />           (< ang 4.886922)<br />      )<br />      (setq pt4 (polar pt 3.926991 (* 3.5 sc1)))<br />      (setq pt3 (polar pt 5.497787 (* 3.5 sc1)))<br />      (setq pt5 (polar pt3 pi (* 15 sc1)))<br />      (setq ptt (polar pt5 5.325988 (* 1.1547 sc1)))<br />      (setq high (* 3 sc1))<br />      (setvar "clayer" "wz")<br />      (command "text" "tl" ptt high "0" txt2)<br />     )<br />   )<br />   (setvar "clayer" "bg")<br />   (setq ww (getvar "plinewid"))<br />   (setvar "plinewid" 0)<br />   (command "pline" pt4 pt pt3 pt5 "")<br />   (setvar "plinewid" ww)<br />   (setvar "clayer" lay)<br />   (setvar "osmode" os)<br />   (IF (= ym1 "1")<br />     (COMMAND "UCS" "")<br />   )<br />   (princ)<br /> )<br /> ;;;;;=========================================<br /> ;;;;;              初始值设置 <br /> ;;;;;=========================================<br /> (defun c:sbg (/ whet_next dia_id sty_zh opt osan)<br />   (defun style ()<br />     (setq n (atoi (get_tile "styl")))<br />     (setq sty (nth n stytab))<br />     (setq sty0 sty)<br />     (set_tile "csty" sty)<br />   )<br /> (defun fdzx (/ sty1 sty2 first tab sm1 sm2)<br />   (setq first T)<br />   (setq tab '())<br />   (setq stytab '())<br />   (setq sty_zh '())<br />   (while (setq sty1 (tblnext "style" first)) ;搜索图中字型      　<br />     (if        (= first T)<br />       (setq first nil)<br />     )<br />     (if        (/= sty1 nil)<br />       (progn<br />         (setq tab (cons sty1 tab))<br />         (setq sty1 (nth 0 tab))<br />         (setq sty2 (dxf 2 sty1))        ;字型名称<br />         (setq sm1 (dxf 3 sty1))                ;所用小字体文件的名称<br />         (setq sm2 (dxf 4 sty1))                ;所用大字体文件的名称<br />         (setq stytab (cons sty2 stytab))<br />         (if (and sm2 (/= sm2 ""))<br />           (setq sty_zh (cons (strcat sty2 " : < " sm1 " , " sm2 " >") sty_zh))<br />           (setq sty_zh (cons (strcat sty2 " : < " sm1 " >") sty_zh))<br />         )<br />       )<br />     )<br />   )<br /> )<br />   (defun bgzh ()<br />     (setq yn1 (get_tile "yn"))<br />     (if        (= yn1 "1")<br />       (progn<br />         (mode_tile "pick" 1)<br />         (mode_tile "ssbg" 1)<br />         (mode_tile "bgz" 0)<br />       )<br />       (progn<br />         (mode_tile "pick" 0)<br />         (mode_tile "ssbg" 0)<br />         (mode_tile "bgz" 1)<br />       )<br />     )<br />   )<br />   (defun shuo ()<br />     (if        (not (new_dialog "shuoming" dia_id))<br />       (exit)<br />     )<br />     (action_tile "shuom1" "(shuo1)")<br />     (action_tile "shuom2" "(shuo2)")<br />     (action_tile "shuom3" "(shuo3)")<br />     (action_tile "shuom4" "(shuo4)")<br />     (action_tile "shuom5" "(shuo5)")<br />     (action_tile "shuom6" "(shuo6)")<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (defun shuo1 ()<br />     (if        (not (new_dialog "shuom1" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (defun shuo2 ()<br />     (if        (not (new_dialog "shuom2" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (defun shuo3 ()<br />     (if        (not (new_dialog "shuom3" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (defun shuo4 ()<br />     (if        (not (new_dialog "shuom4" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (defun shuo5 ()<br />     (if        (not (new_dialog "shuom5" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (defun shuo6 ()<br />     (if        (not (new_dialog "shuom6" dia_id))<br />       (exit)<br />     )<br />     (action_tile "accept" "(done_dialog 6)")<br />     (start_dialog)<br />   )<br />   (fdzx)<br />   (setq sty0 (getvar "textstyle"))<br />   (setq oldsty sty0)<br />   (setq whet_next 6)<br />   (if (and (not dia_id) (< (setq dia_id (load_dialog "bg")) 0))<br />     (exit)<br />   )<br />   (while (< 2 whet_next)<br />     (if        (not (new_dialog "bg" dia_id))<br />       (exit)<br />     )<br />     (if        (= ssbg nil)<br />       (set_tile "ssbg" "0.000")<br />       (set_tile "ssbg" ssbg)<br />     )<br />     (if        (= ztsc nil)<br />       (progn<br />         (set_tile "scale1" "100")<br />         (setq ztsc "100")<br />       )<br />       (set_tile "scale1" ztsc)<br />     )<br />     (if        (= tzsc nil)<br />       (progn<br />         (set_tile "scale2" "100")<br />         (setq tzsc "100")<br />       )<br />       (set_tile "scale2" tzsc)<br />     )<br />     (if        (= yn1 nil)<br />       (set_tile "yn" "0")<br />       (set_tile "yn" yn1)<br />     )<br />     (if        (= yn1 "1")<br />       (progn<br />         (mode_tile "pick" 1)<br />         (mode_tile "ssbg" 1)<br />         (mode_tile "bgz" 0)<br />         )<br />     )<br />     (if        (= yt1 nil)<br />       (set_tile "yt" "0")<br />       (set_tile "yt" yt1)<br />     )<br />     (if        (= ym1 nil)<br />       (set_tile "ym" "0")<br />       (set_tile "ym" ym1)<br />     )<br />     (if        (= bgz1 nil)<br />       (progn<br />         (set_tile "bgz" "0.000")<br />         (setq bgz1 "0.000")<br />       )<br />       (set_tile "bgz" bgz1)<br />     )<br />     (action_tile "pick" "(done_dialog 4)")<br />     (action_tile "ssbg" "(setq ssbg $value)")<br />     (action_tile "yn" "(bgzh)")<br />     (ACTION_TILE "yt" "(SETQ yt1 $VALUE)")<br />     (ACTION_TILE "ym" "(setq ym1 $VALUE)")<br />     (action_tile "bgz" "(setq bgz1 $value)")<br />     (action_tile "scale1" "(setq ztsc $value)")<br />     (action_tile "scale2" "(setq tzsc $value)")<br />     (start_list "styl")                        ;字型列表<br />     (mapcar 'add_list sty_zh)<br />     (end_list)<br />     (setq n (- (length stytab) (length (member sty0 stytab))))<br />     (set_tile "styl" (itoa n))                ;聚焦在所用字型上<br />     (action_tile "styl" "(style)")<br />     (if        (= sty nil)<br />       (set_tile "csty" sty0)<br />       (set_tile "csty" sty)<br />     )<br />     (action_tile "shuoming" "(shuo)")<br />     (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancel" "(unload_dialog dia_id)")<br />                                         ;(action_tile "erase" "(done_dialog 0)(setq ztsc nil)<br />                                         ;                     (setq tzsc nil)(setq ypt nil)(setq xpt nil)")<br />     (setq whet_next (start_dialog))<br />     (if        (/= sty nil)<br />       (setvar "textstyle" sty)<br />     )<br />     (if        (= whet_next 4)<br />       (progn<br />         (setq osan (getvar "osmode"))<br />         (setvar "osmode" 512)<br />         (setq opt (getpoint "\n选择基准点:"))<br />         (setvar "osmode" osan)<br />         (setq ypt (cadr opt))<br />         (setq xpt (car opt))<br />       )<br />     )<br />   )<br /> )<br />

wee

真是谢谢楼上二位，我又认真的分析了你们的程序，对我的小程序进行了修改，终于调试通过。

userzhluserzhl

3楼我试了这个程式没有反映呀，什么原因？我用的是CAD2005

jx2008

多些2、3楼楼主，提供帮助。

jyzas

沙发的程序运行提示错误: no function definition: NEWDLG

jyzas

板凳的提示错误：程序运行条件不足, 程序自动退出.