源码 圆或图块添加符号 对话框编辑框记忆功能

海洋闹饥荒

程序可实现对圆或图块添加符号，并可自定位置。另外，对话框里面符号一项有记忆功能，算法在程序里，也一并奉上了。算是回馈明经了。
另外，还请各位看看我的这个帖子，提提看法。http://bbs.mjtd.com/thread-93729-1-1.html
dcl文件码会在一楼贴出，哪位大大觉得好的话，请给个币

1. (defun c:ss(/ do_what  pt1 idcl_id aaa cds_jidian pick_point duixiang)
   
2.   (setq idcl_id (load_dialog "check")
   
3.   )
   
4.   
   
5.   (if (> idcl_id 0)
   
6.     (progn (setq w1 "yuan")
   
7.      (setq do_what 2 h 20 start_x 0 start_y 0 aaa 1)
   
8.       (if (/= kkkkk nil) (setq w1 kkkkk))
   
9.      (while (> do_what 1)
   
10.      (if (new_dialog "circle_signal" idcl_id)
    
11.         (progn
    
12.               (set_tile "ww" w1)
    
13.         (set_tile "hh" (rtos h 2 1))
    
14.         (set_tile "xx" (rtos start_x 2 3))
    
15.         (set_tile "yy" (rtos start_y 2 3))
    
16.         
    
17.         (action_tile "ww" "(cdsw)")
    
18.         (action_tile "hh" "(cdsh)")
    
19.               (action_tile "xx" "(cdsx)")
    
20.               (action_tile "yy" "(cdsy)")
    
21.          
    
22.               (action_tile "pick_point" "(done_dialog 2)")
    
23.               (action_tile "duixiang" "(done_dialog 3)")
    
24.           (mode_tile "pick_point" aaa)
    
25.         (action_tile "accept" "(done_dialog 1)")
    
26.         (action_tile "cancel" "(done_dialog 0)")
    
27.         (setq do_what (start_dialog))
    
28.         (if (= do_what 3)
    
29.         (progn (prompt "\n请选择要加标记的圆或图块")
    
30.                      (setq yuan (ssname (ssget '((0 . "CIRCLE,insert"))) 0))
    
31.            (setq aaa 0)
    
32.            (setq cds_jidian (cdr (assoc 10 (entget yuan))))
    
33.            ));;;;结束if（选择对象）
    
34.         (if (= do_what 2)
    
35.            (progn  
    
36.             (initget 1)
    
37.           (setq pt1 (getpoint "\n请选择文字插入点:"))
    
38.           (setq start_x (- (car pt1) (car cds_jidian)) start_y (- (cadr pt1) (cadr cds_jidian)))
    
39.           ));;;结束if（插入点）
    
40.     ));;;;;结束外面的if
    
41.     )  ;while
    
42.    (if (= do_what 1)
    
43.       (draw_cds)
    
44.     )
    
45.     );;;;结束第一个if的progn
    
46.    (alert "不能载入对话框文件")
    
47.    );;;结束if(> idcl_id 0)
    
48.    (unload_dialog idcl_id)
    
49.    );;;defun
    
50. ;;==================================================================
    
51. (defun cdsw()
    
52. (setq w1 (get_tile "ww"))
    
53.   (setq  kkkkk w1)
    
54. )   
    
55. (defun cdsh()
    
56. (setq h (atof (get_tile "hh")))
    
57. );将编辑框中的字符串转换成实型数，以便传给绘图程序
    
58. (defun cdsx()
    
59.   (setq start_x (atof (get_tile "xx")))
    
60.   )
    
61. (defun cdsy()
    
62.   (setq start_y (atof (get_tile "yy")))
    
63.   )
    
64. ;;=================================================================
    
65. (defun draw_cds (/ xzj neirong m i nr pt yc)
    
66. (setq a (getvar "textstyle"))
    
67.    (setvar "textstyle" "standard")
    
68.   (prompt "\n请选择其他需要加标记的图元")
    
69.   (setq xzj (ssget '((0 . "CIRCLE,insert"))))
    
70.     (ssadd yuan xzj)
    
71.   (setq neirong (entget yuan))
    
72.   (setq m (cdr (assoc 0 neirong)))
    
73.    
    
74.   (setq i 0)
    
75.   (repeat (sslength xzj)
    
76.     (setq nr (entget (ssname xzj i)))
    
77.    
    
78.     (if (equal m "CIRCLE")
    
79.       (progn (if (= (cdr (assoc 40 neirong)) (cdr (assoc 40 nr)))
    
80.       (progn
    
81.         (setq yc  (cdr (assoc 10 nr)))
    
82.         (setq pt (list (+ (car yc) start_x) (+ (cadr yc) start_y ) 0.0))
    
83.         (command "text" pt h 0 w1)
    
84.             )));progn
    
85.       (progn (if (equal (cdr (assoc 2 neirong)) (cdr (assoc 2 nr)))
    
86.          (progn
    
87.         (setq yc  (cdr (assoc 10 nr)))
    
88.         (setq pt (list (+ (car yc) start_x) (+ (cadr yc) start_y ) 0.0))
    
89.         (command "text" pt h 0 w1)
    
90.             )))
    
91.       );if
    
92. 
    
93.     (setq i (+ i 1))
    
94.   );repeat
    
95.    (setvar "textstyle" a)
    
96.   )

(defun c:ss(/ do_what  pt1 idcl_id aaa cds_jidian pick_point duixiang)<br />   (setq idcl_id (load_dialog "check")<br />   )<br />   <br />   (if (> idcl_id 0)<br />     (progn (setq w1 "yuan")<br />      (setq do_what 2 h 20 start_x 0 start_y 0 aaa 1)<br />       (if (/= kkkkk nil) (setq w1 kkkkk))<br />      (while (> do_what 1)<br />      (if (new_dialog "circle_signal" idcl_id)<br />         (progn <br />               (set_tile "ww" w1)<br />         (set_tile "hh" (rtos h 2 1))<br />         (set_tile "xx" (rtos start_x 2 3))<br />         (set_tile "yy" (rtos start_y 2 3))<br />         <br />         (action_tile "ww" "(cdsw)")<br />         (action_tile "hh" "(cdsh)")<br />               (action_tile "xx" "(cdsx)")<br />               (action_tile "yy" "(cdsy)")<br />           <br />               (action_tile "pick_point" "(done_dialog 2)")<br />               (action_tile "duixiang" "(done_dialog 3)")<br />           (mode_tile "pick_point" aaa)<br />         (action_tile "accept" "(done_dialog 1)")<br />         (action_tile "cancel" "(done_dialog 0)")<br />         (setq do_what (start_dialog))<br />         (if (= do_what 3) <br />         (progn (prompt "\n请选择要加标记的圆或图块")<br />                      (setq yuan (ssname (ssget '((0 . "CIRCLE,insert"))) 0))<br />            (setq aaa 0)<br />            (setq cds_jidian (cdr (assoc 10 (entget yuan))))<br />            ));;;;结束if（选择对象）<br />         (if (= do_what 2)<br />            (progn  <br />             (initget 1)<br />           (setq pt1 (getpoint "\n请选择文字插入点:"))<br />           (setq start_x (- (car pt1) (car cds_jidian)) start_y (- (cadr pt1) (cadr cds_jidian)))<br />           ));;;结束if（插入点）<br />     ));;;;;结束外面的if<br />     )  ;while<br />    (if (= do_what 1)<br />       (draw_cds)<br />     )<br />     );;;;结束第一个if的progn<br />    (alert "不能载入对话框文件")<br />    );;;结束if(> idcl_id 0)<br />    (unload_dialog idcl_id)<br />    );;;defun<br /> ;;==================================================================<br /> (defun cdsw()<br /> (setq w1 (get_tile "ww"))<br />   (setq  kkkkk w1)<br /> )   <br /> (defun cdsh()<br /> (setq h (atof (get_tile "hh")))<br /> );将编辑框中的字符串转换成实型数，以便传给绘图程序<br /> (defun cdsx()<br />   (setq start_x (atof (get_tile "xx")))<br />   )<br /> (defun cdsy()<br />   (setq start_y (atof (get_tile "yy")))<br />   )<br /> ;;=================================================================<br /> (defun draw_cds (/ xzj neirong m i nr pt yc)<br /> (setq a (getvar "textstyle"))<br />    (setvar "textstyle" "standard")<br />   (prompt "\n请选择其他需要加标记的图元")<br />   (setq xzj (ssget '((0 . "CIRCLE,insert"))))<br />     (ssadd yuan xzj)<br />   (setq neirong (entget yuan))<br />   (setq m (cdr (assoc 0 neirong)))<br />    <br />   (setq i 0)<br />   (repeat (sslength xzj)<br />     (setq nr (entget (ssname xzj i)))<br />     <br />     (if (equal m "CIRCLE")<br />       (progn (if (= (cdr (assoc 40 neirong)) (cdr (assoc 40 nr))) <br />       (progn<br />         (setq yc  (cdr (assoc 10 nr)))<br />         (setq pt (list (+ (car yc) start_x) (+ (cadr yc) start_y ) 0.0))<br />         (command "text" pt h 0 w1)<br />             )));progn<br />       (progn (if (equal (cdr (assoc 2 neirong)) (cdr (assoc 2 nr)))<br />          (progn<br />         (setq yc  (cdr (assoc 10 nr)))<br />         (setq pt (list (+ (car yc) start_x) (+ (cadr yc) start_y ) 0.0))<br />         (command "text" pt h 0 w1)<br />             )))<br />       );if<br /> <br />     (setq i (+ i 1)) <br />   );repeat<br />    (setvar "textstyle" a)<br />   )

由于我自己的程序里已经对高度一项做了更改，这里就没做对比。

skg123

代码
错误: 输入的字符串有缺陷

海洋闹饥荒

2. circle_signal:dialog{
   
3.                     label="圆加符号";
   
4.                     :boxed_row{label="符号参数";
   
5.                                :column{:edit_box{label="新符号";
   
6.                                                  key="ww";
   
7.                                                  edit_width=8;
   
8.                                                  }
   
9.                                        :edit_box{label="符号高度";
   
10.                                                  key="hh";
    
11.                                                  edit_width=8;}
    
12.                                        }   //column
    
13.                                 }   //boxed_row
    
14.                      :boxed_row{label="符号插入点";
    
15.                              :column{   :button{label="选择一个对象";
    
16.                                                 key="duixiang";
    
17.                                                 width=5;
    
18.                                                 fixed_width=true;
    
19.                                                 is_default=true;
    
20.                                                 alignment=centered;}
    
21.                                         :button{
    
22.                                                 label="插入点<<";
    
23.                                                 key="pick_point";
    
24.                                                 width=5;
    
25.                                                 fixed_width=true;
    
26.                                                 is_default=true;
    
27.                                                 alignment=centered;}
    
28.                                         :edit_box{label="X相对坐标";
    
29.                                                   key="xx";
    
30.                                                   edit_width=8;}
    
31.                                         :edit_box{label="Y相对坐标";
    
32.                                                   key="yy";
    
33.                                                   edit_width=8;}
    
34.                                       } //column
    
35.                                 }  //boxed_row
    
36.                                 
    
37.               
    
38.               ok_cancel;
    
39.                                 }

circle_signal:dialog{<br />                     label="圆加符号";<br />                     :boxed_row{label="符号参数";<br />                                :column{:edit_box{label="新符号";<br />                                                  key="ww";<br />                                                  edit_width=8;<br />                                                  }<br />                                        :edit_box{label="符号高度";<br />                                                  key="hh";<br />                                                  edit_width=8;}<br />                                        }   //column<br />                                 }   //boxed_row<br />                      :boxed_row{label="符号插入点";<br />                              :column{   :button{label="选择一个对象";<br />                                                 key="duixiang";<br />                                                 width=5;<br />                                                 fixed_width=true;<br />                                                 is_default=true;<br />                                                 alignment=centered;}<br />                                         :button{<br />                                                 label="插入点<<";<br />                                                 key="pick_point";<br />                                                 width=5;<br />                                                 fixed_width=true;<br />                                                 is_default=true;<br />                                                 alignment=centered;}<br />                                         :edit_box{label="X相对坐标";<br />                                                   key="xx";<br />                                                   edit_width=8;}<br />                                         :edit_box{label="Y相对坐标";<br />                                                   key="yy";<br />                                                   edit_width=8;}<br />                                       } //column<br />                                 }  //boxed_row<br />                                 <br />               <br />               ok_cancel;<br />                                 }

tianyi1230

给个演示图像，不知道怎么用呢

qq229918602

楼主能不能放过图示看一下。。谢谢

海洋闹饥荒

qq229918602 发表于 2012-5-27 22:21
楼主能不能放过图示看一下。。谢谢

上图了。。。。。。。。。。。。。

海洋闹饥荒

tianyi1230 发表于 2012-5-27 21:14
给个演示图像，不知道怎么用呢

上图了，对同一半径的圆和相同的图块可添加符号，插入点根据第一个选择的图元指定

smartstar

手机看不清。

海洋闹饥荒

smartstar 发表于 2012-6-1 18:55
手机看不清。

vlisp2012

好程序，赞一个！

gigison

多发好贴，造福人民！！！