API应用 亮显重叠文字

newer

pxt2015 发表于 2017-5-19 15:49

http://bbs.xdcad.net/thread-709318-1-1.html
试试这个。

                               
登录/注册后可看大图

pxt2015

1. ;;按照版主的思路，自己整理了一下,献丑了。程序虽然执行正常，但是处理文字数量多时速度比较慢。;; 如果处理1001个文字，计算次数 (1000+1)*1000/2,超过50万，所以速度慢，哪位高人能解决这个问题？
   
2. 
   
3. (defun c:wzCD ()
   
4.   (Command "undo" "be")
   
5.   (xdrx_begin)  
   
6.   (setq  lay   "C文字重叠框"
   
7.            color 1
   
8.   )
   
9.   (if (null (Tblsearch "layer" lay))
   
10.     (Command "layer" "m" lay "c" color lay "p" "n" lay "")
    
11.     (Command "layer" "s" lay "p" "n" lay "")
    
12.   )
    
13.   ;;============================== begin while is
    
14.   (setq is t)
    
15.   (while is
    
16.     (setq note (strcat "\n是否划线："
    
17.                        (if not_hx_wzcd
    
18.                          "No"
    
19.                          "Yes"
    
20.                        )
    
21.                        "\n选择文字，"
    
22.                        "查字重叠[划线(H)/删除重叠框(E)] <退出>:"
    
23.                )
    
24.     )
    
25.     ;;不能使用的关键字 A C F G L M P R U W
    
26.     (xdrx_initget "H E")
    
27.     (xdrx_initssget NOTE "H E" "" "" "")
    
28.     (setq ss (xdrx_ssget '((0 . "text,mtext"))))
    
29.     (COND
    
30.       ((null ss) (SETQ is NIL))
    
31.       ((= "H" SS) (setq not_hx_wzcd (not not_hx_wzcd)))
    
32.       ((= "E" SS)
    
33.        ;;(setq is nil)
    
34.        (if (and  (setq ss (ssget "x" (list (cons 8 lay))))
    
35.                   (princ "\n全图删除重叠框")
    
36.            )
    
37.          (PROGN      
    
38.                (princ
    
39.                   (strcat "，共删除了 " (ITOA (sslength ss)) " 个重叠框")
    
40.                 )
    
41.                 (repeat        (setq i% (sslength ss))
    
42.                   (setq en (ssname ss (setq i% (1- i%))))
    
43.                   (entdel en)
    
44.                 )
    
45.          )
    
46.        )
    
47.       )
    
48.       (T
    
49.        (setq is nil)
    
50.        (progn
    
51.          (setq
    
52.            lst (mapcar '(lambda        (x)
    
53.                           (list        (xdrx_getpropertyvalue x "textbox") ;_实际包围盒
    
54.                                 x
    
55.                           )
    
56.                         )
    
57.                        (xdrx_pickset->ents ss)
    
58.                )
    
59.          )
    
60.          ;; lst= '(((p1 p2 p3 p4) en1) ((p1 p2 p3 p4) en2)...)
    
61.          ;; L1= '((p1 p2 p3 p4) en1)
    
62.          (setq length_jdt (length lst))
    
63.          (xdrx_statusbar_begin "已经完成:" length_jdt) ;_进度条 1/3
    
64.          (setq i 0)
    
65.          (setq LL nil)
    
66.          ;;========================================= begin while lst 1/2
    
67.          (while        lst
    
68.            ;; cdr 1/3
    
69.            (setq L1   (car lst)
    
70.                  lst1 (cdr lst)
    
71.                  Y_N  T
    
72.            )         
    
73.            (setq g1 (xdrx_polyline_make (car L1) t))
    
74.            ;;----------------------------------  begin while lst1 2/2           
    
75.            (while lst1
    
76.              (setq L2 (car lst1))
    
77.              (setq g2 (xdrx_polyline_make (car L2) t))
    
78.              (if (xdrx_entity_intersectWith g1 g2)
    
79.                (progn
    
80.                  (if Y_N
    
81.                    (setq LL  (cons (cadr L1) LL)
    
82.                          LL  (cons (cadr L2) LL)
    
83.                          Y_N nil
    
84.                    )
    
85.                    (setq LL (cons (cadr L2) LL))
    
86.                  )
    
87.                  (if not_hx_wzcd
    
88.                    (xdrx_entity_delete g2)
    
89.                  )
    
90.                )
    
91.                (xdrx_entity_delete g2)
    
92.              )
    
93.              ;; cdr循环 2/3
    
94.              (setq lst1 (cdr lst1))
    
95.            )
    
96.            ;;----------------------------------  end while lst1 2/2
    
97.            ;; cdr循环 3/3
    
98.            (setq lst (cdr lst))
    
99.            (if (or Y_N not_hx_wzcd)
    
100.              (xdrx_entity_delete g1)
     
101.            )
     
102.            (xdrx_statusbar_setpos (setq i (1+ i))) ;_进度条 2/3
     
103.          )
     
104.          ;;========================================= end while lst 1/2
     
105.          (xdrx_statusbar_end) ;_进度条 3/3         
     
106.          (if ss
     
107.            (if LL
     
108.              (progn
     
109.                ;;(sssetfirst nil (xd::entity->pickset LL))
     
110.                (xdrx_prompt
     
111.                  "\n找到了"
     
112.                  (length LL)
     
113.                  "个重叠文字. "
     
114.                  ;;"已经夹点显示."
     
115.                )
     
116.              )
     
117.              (princ "\n没有找到重叠的文字!")
     
118.            )
     
119.          )
     
120.        )
     
121.       ) ;_T
     
122.     ) ;_COND
     
123.   )
     
124.   ;;============================== end while is
     
125.   (xdrx_end)
     
126.   (Command "undo" "e")
     
127.   (princ)
     
128. )
     

;;按照版主的思路，自己整理了一下,献丑了。程序虽然执行正常，但是处理文字数量多时速度比较慢。;; 如果处理1001个文字，计算次数 (1000+1)*1000/2,超过50万，所以速度慢，哪位高人能解决这个问题？<br /> <br /> (defun c:wzCD ()<br />   (Command "undo" "be")<br />   (xdrx_begin)  <br />   (setq  lay   "C文字重叠框"<br />            color 1<br />   )<br />   (if (null (Tblsearch "layer" lay))<br />     (Command "layer" "m" lay "c" color lay "p" "n" lay "")<br />     (Command "layer" "s" lay "p" "n" lay "")<br />   )<br />   ;;============================== begin while is<br />   (setq is t)<br />   (while is<br />     (setq note (strcat "\n是否划线："<br />                        (if not_hx_wzcd<br />                          "No"<br />                          "Yes"<br />                        )<br />                        "\n选择文字，"<br />                        "查字重叠[划线(H)/删除重叠框(E)] <退出>:"<br />                )<br />     )<br />     ;;不能使用的关键字 A C F G L M P R U W<br />     (xdrx_initget "H E")<br />     (xdrx_initssget NOTE "H E" "" "" "")<br />     (setq ss (xdrx_ssget '((0 . "text,mtext"))))<br />     (COND<br />       ((null ss) (SETQ is NIL))<br />       ((= "H" SS) (setq not_hx_wzcd (not not_hx_wzcd)))<br />       ((= "E" SS)<br />        ;;(setq is nil)<br />        (if (and  (setq ss (ssget "x" (list (cons 8 lay))))<br />                   (princ "\n全图删除重叠框")<br />            )<br />          (PROGN       <br />                (princ<br />                   (strcat "，共删除了 " (ITOA (sslength ss)) " 个重叠框")<br />                 )<br />                 (repeat        (setq i% (sslength ss))<br />                   (setq en (ssname ss (setq i% (1- i%))))<br />                   (entdel en)<br />                 )<br />          )<br />        )<br />       )<br />       (T<br />        (setq is nil)<br />        (progn<br />          (setq<br />            lst (mapcar '(lambda        (x)<br />                           (list        (xdrx_getpropertyvalue x "textbox") ;_实际包围盒<br />                                 x<br />                           )<br />                         )<br />                        (xdrx_pickset->ents ss)<br />                )<br />          )<br />          ;; lst= '(((p1 p2 p3 p4) en1) ((p1 p2 p3 p4) en2)...)<br />          ;; L1= '((p1 p2 p3 p4) en1)<br />          (setq length_jdt (length lst))<br />          (xdrx_statusbar_begin "已经完成:" length_jdt) ;_进度条 1/3<br />          (setq i 0)<br />          (setq LL nil)<br />          ;;========================================= begin while lst 1/2<br />          (while        lst<br />            ;; cdr 1/3<br />            (setq L1   (car lst)<br />                  lst1 (cdr lst)<br />                  Y_N  T<br />            )          <br />            (setq g1 (xdrx_polyline_make (car L1) t))<br />            ;;----------------------------------  begin while lst1 2/2           <br />            (while lst1<br />              (setq L2 (car lst1))<br />              (setq g2 (xdrx_polyline_make (car L2) t))<br />              (if (xdrx_entity_intersectWith g1 g2)<br />                (progn<br />                  (if Y_N<br />                    (setq LL  (cons (cadr L1) LL)<br />                          LL  (cons (cadr L2) LL)<br />                          Y_N nil<br />                    )<br />                    (setq LL (cons (cadr L2) LL))<br />                  )<br />                  (if not_hx_wzcd<br />                    (xdrx_entity_delete g2)<br />                  )<br />                )<br />                (xdrx_entity_delete g2)<br />              )<br />              ;; cdr循环 2/3<br />              (setq lst1 (cdr lst1))<br />            )<br />            ;;----------------------------------  end while lst1 2/2<br />            ;; cdr循环 3/3<br />            (setq lst (cdr lst))<br />            (if (or Y_N not_hx_wzcd)<br />              (xdrx_entity_delete g1)<br />            )<br />            (xdrx_statusbar_setpos (setq i (1+ i))) ;_进度条 2/3<br />          )<br />          ;;========================================= end while lst 1/2<br />          (xdrx_statusbar_end) ;_进度条 3/3         <br />          (if ss<br />            (if LL<br />              (progn<br />                ;;(sssetfirst nil (xd::entity->pickset LL))<br />                (xdrx_prompt<br />                  "\n找到了"<br />                  (length LL)<br />                  "个重叠文字. "<br />                  ;;"已经夹点显示."<br />                )<br />              )<br />              (princ "\n没有找到重叠的文字!")<br />            )<br />          )<br />        )<br />       ) ;_T<br />     ) ;_COND<br />   )<br />   ;;============================== end while is<br />   (xdrx_end)<br />   (Command "undo" "e")<br />   (princ)<br /> )<br />

newer

pxt2015 发表于 2017-5-24 09:26

自己写的代码，单独去发个帖子吧

另外，XDRX API里面，进度条函数都有
xdrx_statusbar_begin
xdrx_statusbar_setpos
xdrx_statusbar_end

手册里面都有说明。

pxt2015

newer 发表于 2017-5-24 09:32

在版主核心代码上，仅仅加了一点包装而已。不敢说是自己的，更不敢作为自己的代码单独发贴

newer

pxt2015 发表于 2017-5-24 09:44

单独发帖的目的不一定是发布，而是方便大家讨论。