[求助]谁给看看如何增加选取函数

linshiyin2

3. BZBGPD:dialog
4. { label="标注标高坡度V1.0";
5.   : row {
6.          :edit_box
7.                   {label="标高(m):";
8.                   key="bz_bg";
9.                   edit_limit=14;
10.                   edit_width=10;
11.                   fixed_width=true;
12.                   value=100.123;
13.                    }
14.          spacer=0;
15.          :button
16.          {label="点取";
17.          key="qubg";
18.          width=3;
19.          fixed_width=true;
20.          }
21.   }
22.   :radio_row
23.   {label="";
24.                :radio_button
25.                {label="无";
26.                key="bz_wbg";
27.                value=0;
28.                }
29.                :radio_button
30.                {label="轨面";
31.                key="bz_gmbg";
32.                value=1;
33.                }
34.                :radio_button
35.                {label="巷道底板";
36.                key="bz_dbbg";
37.                value=0;
38.                }
39.   }
40.   : row {
41.          :edit_box
42.                   {label="左坡度(‰):";
43.                   key="bz_zpd";
44.                   edit_limit=10;
45.                   edit_width=8;
46.                   fixed_width=true;
47.                   value=-3.3;
48.                    }
49.          spacer=0;
50.          :button
51.          {label="点取";
52.          key="quzpd";
53.          width=3;
54.          fixed_width=true;
55.          }
56.   }
57.   : row {
58.          :edit_box
59.                   {label="左距离(m):";
60.                   key="bz_zjl";
61.                   edit_limit=10;
62.                   edit_width=8;
63.                   fixed_width=true;
64.                   value=100.123;
65.                    }
66.          spacer=0;
67.          :button
68.          {label="点取";
69.          key="quzjl";
70.          width=3;
71.          fixed_width=true;
72.          }
73.   }
74.   : row {
75.          :edit_box
76.                   {label="右坡度(‰):";
77.                   key="bz_ypd";
78.                   edit_limit=10;
79.                   edit_width=8;
80.                   fixed_width=true;
81.                   value=3.3;
82.                    }
83.          spacer=0;
84.          :button
85.          {label="点取";
86.          key="quypd";
87.          width=3;
88.          fixed_width=true;
89.          }
90.   }
91.   : row {
92.          :edit_box
93.                   {label="右距离(m):";
94.                   key="bz_yjl";
95.                   edit_limit=12;
96.                   edit_width=8;
97.                   fixed_width=true;
98.                   value=100.123;
99.                    }
100.          spacer=0;
101.          :button
102.          {label="点取";
103.          key="quyjl";
104.          width=3;
105.          fixed_width=true;
106.          }
107.   }
108. :edit_box
109.                   {label="文字高度:";
110.                   key="bz_zg";
111.                   edit_limit=10;
112.                   edit_width=8;
113.                   fixed_width=true;
114.                   value=3;
115.                    }
116.   ok_cancel;
117.   }

BZBGPD:dialog { label="标注标高坡度V1.0";   : row {          :edit_box                   {label="标高(m):";                   key="bz_bg";                   edit_limit=14;                   edit_width=10;                   fixed_width=true;                   value=100.123;                    }          spacer=0;          :button          {label="点取";          key="qubg";          width=3;          fixed_width=true;          }   }   :radio_row   {label="";                :radio_button                {label="无";                key="bz_wbg";                value=0;                }                :radio_button                {label="轨面";                key="bz_gmbg";                value=1;                }                :radio_button                {label="巷道底板";                key="bz_dbbg";                value=0;                }   }   : row {          :edit_box                   {label="左坡度(‰):";                   key="bz_zpd";                   edit_limit=10;                   edit_width=8;                   fixed_width=true;                   value=-3.3;                    }          spacer=0;          :button          {label="点取";          key="quzpd";          width=3;          fixed_width=true;          }   }   : row {          :edit_box                   {label="左距离(m):";                   key="bz_zjl";                   edit_limit=10;                   edit_width=8;                   fixed_width=true;                   value=100.123;                    }          spacer=0;          :button          {label="点取";          key="quzjl";          width=3;          fixed_width=true;          }   }   : row {          :edit_box                   {label="右坡度(‰):";                   key="bz_ypd";                   edit_limit=10;                   edit_width=8;                   fixed_width=true;                   value=3.3;                    }          spacer=0;          :button          {label="点取";          key="quypd";          width=3;          fixed_width=true;          }   }   : row {          :edit_box                   {label="右距离(m):";                   key="bz_yjl";                   edit_limit=12;                   edit_width=8;                   fixed_width=true;                   value=100.123;                    }          spacer=0;          :button          {label="点取";          key="quyjl";          width=3;          fixed_width=true;          }   } :edit_box                   {label="文字高度:";                   key="bz_zg";                   edit_limit=10;                   edit_width=8;                   fixed_width=true;                   value=3;                    }   ok_cancel;   }

   ------------------------------------
以下是lisp代码

3. (defun C:bzbgpd ()    (SETQ DCL_ID (LOAD_DIALOG "bzbgpd.dcl"));;;打开dcl文件
4.                   (NEW_DIALOG "BZBGPD" DCL_ID);;;打开对话框
5.                   (action_tile "accept" "(r_bzbgpd) (done_dialog) ")
6.                   (START_DIALOG) (UNLOAD_DIALOG DCL_ID);;;开启对话框接受用户输入 结束对话框
7.   (if (and (setq pt1 (getpoint "\n起点:"))
8.            (setq pt2 (getpoint  "\n终点:"))
9.      )
10.     (progn
11.       (setvar "osmode" 0 ) ;;对象捕捉无
12.       (setvar "aunits" 3;;角度弧度
13.              )
14.       (setq fwj (angle pt1 pt2))
15.       (if (>= fwj (* pi 0.16));;上边标注
16.           (setq pt3 (polar pt2 (* pi 0.5) (* zg 9))
17.                 pt6 (polar pt2 (* pi 0.5) (* zg 6))
18.   pt4 (polar pt3 (* pi 1) (* zg 5))
19.                 pt5 (polar pt3 (* pi 0) (* zg 5))
20.                 pt7 (polar pt6 (+ (* pi 1) (* zpd  0.018)) (* zg 5))
21.                 pt8 (polar pt6 (+ (* pi 0) (* ypd  0.018)) (* zg 5))
22.   pt9 (polar pt7 (* pi 1.5) (* zg 0.5))
23.   pt10 (polar pt8 (* pi 1.5) (* zg 0.5))
24.           )
25. )
26.       (if (>= fwj (* pi 0.84));;左边边标注
27.           (setq pt3 (polar pt2 (* pi 1) (* zg 9))
28.                 pt6 (polar pt2 (* pi 1) (* zg 6))
29.   pt4 (polar pt3 (* pi 1.5) (* zg 5))
30.                 pt5 (polar pt3 (* pi 0.5) (* zg 5))
31.                 pt7 (polar pt6 (+ (* pi 1.5) (* zpd  0.018)) (* zg 5))
32.                 pt8 (polar pt6 (+ (* pi 0.5) (* ypd  0.018)) (* zg 5))
33.   pt9 (polar pt7 (* pi 0) (* zg 0.5))
34.   pt10 (polar pt8 (* pi 0) (* zg 0.5))
35.           )
36. )
37.       (if (>= fwj (* pi 1.34));;下边边标注
38.           (setq pt3 (polar pt2 (* pi 1.5) (* zg 9))
39.                 pt6 (polar pt2 (* pi 1.5) (* zg 6))
40.   pt4 (polar pt3 (* pi 1) (* zg 5))
41.                 pt5 (polar pt3 (* pi 0) (* zg 5))
42.                 pt7 (polar pt6 (+ (* pi 1) (* zpd  0.018)) (* zg 5))
43.                 pt8 (polar pt6 (+ (* pi 0) (* ypd  0.018)) (* zg 5))
44.   pt9 (polar pt7 (* pi 1.5) (* zg 0.5))
45.   pt10 (polar pt8 (* pi 1.5) (* zg 0.5))
46.           )
47. )
48.       (if (or (>= fwj (* pi 1.75)) (< fwj (* pi 0.16))) ;;右边边标注
49.           (setq pt3 (polar pt2 (* pi 0) (* zg 9))
50.                 pt6 (polar pt2 (* pi 0) (* zg 6))
51.   pt4 (polar pt3 (* pi 0.5) (* zg 5))
52.                 pt5 (polar pt3 (* pi 1.5) (* zg 5))
53.                 pt7 (polar pt6 (+ (* pi 0.5) (* zpd  0.018)) (* zg 5))
54.                 pt8 (polar pt6 (+ (* pi 1.5) (* ypd  0.018)) (* zg 5))
55.   pt9 (polar pt7 (* pi 1) (* zg 0.5))
56.   pt10 (polar pt8 (* pi 1) (* zg 0.5))
57.           )
58. )
59.       (command "pline" pt1 pt2 pt3 ""
60.         "line" pt4 pt5 ""
61.         "line" pt6 pt7 ""
62.         "line" pt6 pt8 ""
63.         )
64.       (setq
65.             zpd (rtos zpd 2 1)
66.             zjl (rtos zjl 2 3)
67.             ypd (rtos ypd 2 1)
68.             yjl (rtos yjl 2 3)
69.        )
70.       (cond ((= wbg  1) bg)
71.             ((= gmbg 1) (setq bg (strcat bg "(轨面)")))
72.             ((= dbbg 1) (setq bg (strcat bg "(巷道底板)")));判断标高类型
73.     )
74.       (command "text" "J" "BC" pt3 zg (angle pt4 pt5) bg
75.         "text" "J" "BL" pt7 zg (angle pt7 pt6) zpd
76.         "text" "J" "TL" pt9 zg (angle pt7 pt6) zjl
77.         "text" "J" "BR" pt8 zg (angle pt6 pt8) ypd
78.         "text" "J" "TR" pt10 zg (angle pt6 pt8) yjl)
79.     )
80.   )
81.   (princ)
82. );;;endbzbgpd
83. ;;;;;;接上面坐标表赋值函数
84. (DEFUN r_bzbgpd() (setq   bg (get_tile "bz_bg");;;坐标表赋值给各个变量函数点号
85.            wbg (atof (get_tile "bz_wbg"));;;无
86.           gmbg (atof (get_tile "bz_gmbg"));;;轨面
87.           dbbg (atof (get_tile "bz_dbbg"));;;巷道底板
88.            zpd (atof (get_tile "bz_zpd"));;;左坡度
89.                          zjl (atof (get_tile "bz_zjl"));;;左距离
90.            ypd (atof (get_tile "bz_ypd"));;;右坡度
91.                          yjl (atof (get_tile "bz_yjl"));;;右距离
92.             zg (abs (atof (get_tile "bz_zg")));;;文字高度
93.          )
94. )
95. ;;;结束赋值函数

(defun C:bzbgpd ()    (SETQ DCL_ID (LOAD_DIALOG "bzbgpd.dcl"));;;打开dcl文件                   (NEW_DIALOG "BZBGPD" DCL_ID);;;打开对话框                   (action_tile "accept" "(r_bzbgpd) (done_dialog) ")                   (START_DIALOG) (UNLOAD_DIALOG DCL_ID);;;开启对话框接受用户输入 结束对话框   (if (and (setq pt1 (getpoint "\n起点:"))            (setq pt2 (getpoint  "\n终点:"))      )     (progn       (setvar "osmode" 0 ) ;;对象捕捉无       (setvar "aunits" 3;;角度弧度              )       (setq fwj (angle pt1 pt2))       (if (>= fwj (* pi 0.16));;上边标注           (setq pt3 (polar pt2 (* pi 0.5) (* zg 9))                 pt6 (polar pt2 (* pi 0.5) (* zg 6))   pt4 (polar pt3 (* pi 1) (* zg 5))                 pt5 (polar pt3 (* pi 0) (* zg 5))                 pt7 (polar pt6 (+ (* pi 1) (* zpd  0.018)) (* zg 5))                 pt8 (polar pt6 (+ (* pi 0) (* ypd  0.018)) (* zg 5))   pt9 (polar pt7 (* pi 1.5) (* zg 0.5))   pt10 (polar pt8 (* pi 1.5) (* zg 0.5))           ) )       (if (>= fwj (* pi 0.84));;左边边标注           (setq pt3 (polar pt2 (* pi 1) (* zg 9))                 pt6 (polar pt2 (* pi 1) (* zg 6))   pt4 (polar pt3 (* pi 1.5) (* zg 5))                 pt5 (polar pt3 (* pi 0.5) (* zg 5))                 pt7 (polar pt6 (+ (* pi 1.5) (* zpd  0.018)) (* zg 5))                 pt8 (polar pt6 (+ (* pi 0.5) (* ypd  0.018)) (* zg 5))   pt9 (polar pt7 (* pi 0) (* zg 0.5))   pt10 (polar pt8 (* pi 0) (* zg 0.5))           ) )       (if (>= fwj (* pi 1.34));;下边边标注           (setq pt3 (polar pt2 (* pi 1.5) (* zg 9))                 pt6 (polar pt2 (* pi 1.5) (* zg 6))   pt4 (polar pt3 (* pi 1) (* zg 5))                 pt5 (polar pt3 (* pi 0) (* zg 5))                 pt7 (polar pt6 (+ (* pi 1) (* zpd  0.018)) (* zg 5))                 pt8 (polar pt6 (+ (* pi 0) (* ypd  0.018)) (* zg 5))   pt9 (polar pt7 (* pi 1.5) (* zg 0.5))   pt10 (polar pt8 (* pi 1.5) (* zg 0.5))           ) )       (if (or (>= fwj (* pi 1.75)) (< fwj (* pi 0.16))) ;;右边边标注           (setq pt3 (polar pt2 (* pi 0) (* zg 9))                 pt6 (polar pt2 (* pi 0) (* zg 6))   pt4 (polar pt3 (* pi 0.5) (* zg 5))                 pt5 (polar pt3 (* pi 1.5) (* zg 5))                 pt7 (polar pt6 (+ (* pi 0.5) (* zpd  0.018)) (* zg 5))                 pt8 (polar pt6 (+ (* pi 1.5) (* ypd  0.018)) (* zg 5))   pt9 (polar pt7 (* pi 1) (* zg 0.5))   pt10 (polar pt8 (* pi 1) (* zg 0.5))           ) )       (command "pline" pt1 pt2 pt3 ""         "line" pt4 pt5 ""         "line" pt6 pt7 ""         "line" pt6 pt8 ""         )       (setq             zpd (rtos zpd 2 1)             zjl (rtos zjl 2 3)             ypd (rtos ypd 2 1)             yjl (rtos yjl 2 3)        )       (cond ((= wbg  1) bg)             ((= gmbg 1) (setq bg (strcat bg "(轨面)")))             ((= dbbg 1) (setq bg (strcat bg "(巷道底板)")));判断标高类型     )       (command "text" "J" "BC" pt3 zg (angle pt4 pt5) bg         "text" "J" "BL" pt7 zg (angle pt7 pt6) zpd         "text" "J" "TL" pt9 zg (angle pt7 pt6) zjl         "text" "J" "BR" pt8 zg (angle pt6 pt8) ypd         "text" "J" "TR" pt10 zg (angle pt6 pt8) yjl)     )   )   (princ) );;;endbzbgpd ;;;;;;接上面坐标表赋值函数 (DEFUN r_bzbgpd() (setq   bg (get_tile "bz_bg");;;坐标表赋值给各个变量函数点号            wbg (atof (get_tile "bz_wbg"));;;无           gmbg (atof (get_tile "bz_gmbg"));;;轨面           dbbg (atof (get_tile "bz_dbbg"));;;巷道底板            zpd (atof (get_tile "bz_zpd"));;;左坡度                          zjl (atof (get_tile "bz_zjl"));;;左距离            ypd (atof (get_tile "bz_ypd"));;;右坡度                          yjl (atof (get_tile "bz_yjl"));;;右距离             zg (abs (atof (get_tile "bz_zg")));;;文字高度          ) ) ;;;结束赋值函数

希望增加图中选取按钮的lisp，最好在上面的lisp中加载。

linshiyin2

实在搞不出来了，头都大了，给个参考帖子   http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79678&replyID=&skin=0

masterlong

图中点选数据并将数据反映到对话框中
实际上包含了几方面的内容
一。临时关闭对话框前
对原始对话框数据的保存
二。选取数据后
更新之前保存的数据
三。恢复对话框并赋新值

思路清晰了
怎么编程只是个体力活

给你个程序片段供参考

3. (defun c:xxx()
4. ...
5. (setq yourdcl (load_dialog "yourdcl.dcl"))
6. (new_dialog "yourdclname" yourdcl "" )
7. (对话框初始化)
8. (对话框动作定义)
9. ...
10. )
11. (defun 对话框动作定义()
12. ...
13. (action_tile "key1" "(save_dcl)(done_dialog 2)")
14. (action_tile "key2" "(save_dcl)(done_dialog 2)")
15. ...
16. (setq oke (start_dialog) )
17. (cond
18.   ( (= 1 oke)(...))
19.   ( (= 2 oke)(seldata))
20. )
21. )
22. (defun save_dcl()
23. (setq old_dcl '())
24. (foreach x '("tt1" "tt2" ...)
25.   (setq a (cons x (get_tile x)))
26.   (setq old_dcl (append old_dcl (list a)))
27. )
28. ...
29. )
30. (defun load_dcl( dcltemp )
31. (new_dialog "yourdclname" yourdcl "")
32. (foreach x dcltemp
33.   (setq a (car x))
34.   (setq b (cadr x))
35.   (set_tile a b)
36. )
37. (对话框动作定义)
38. )
39. (defun seldata()
40. (setq a (entsel))
41. (if a
42.   (progn
43.    (setq new_dcl (更新数据 a old_dcl))
44.    (load_dcl new_dcl)
45.   )
46.   (load_dcl old_dcl)
47. )
48. )

(defun c:xxx() ... (setq yourdcl (load_dialog "yourdcl.dcl")) (new_dialog "yourdclname" yourdcl "" ) (对话框初始化) (对话框动作定义) ... ) (defun 对话框动作定义() ... (action_tile "key1" "(save_dcl)(done_dialog 2)") (action_tile "key2" "(save_dcl)(done_dialog 2)") ... (setq oke (start_dialog) ) (cond   ( (= 1 oke)(...))   ( (= 2 oke)(seldata)) ) ) (defun save_dcl() (setq old_dcl '()) (foreach x '("tt1" "tt2" ...)   (setq a (cons x (get_tile x)))   (setq old_dcl (append old_dcl (list a))) ) ... ) (defun load_dcl( dcltemp ) (new_dialog "yourdclname" yourdcl "") (foreach x dcltemp   (setq a (car x))   (setq b (cadr x))   (set_tile a b) ) (对话框动作定义) ) (defun seldata() (setq a (entsel)) (if a   (progn    (setq new_dcl (更新数据 a old_dcl))    (load_dcl new_dcl)   )   (load_dcl old_dcl) ) )

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

masterlong

这样不好吧

对于不是求程序的提问者

直接贴出完整程序

不就失去了学习的动力了吗

linshiyin2

lisp比较难，因为它太灵活了，学习vb语言感觉没有这么难，一段程序可以很复杂也可以很精练，lisp函数太多，还不容易调试

linshiyin2

再次感谢ZZXXQQ