SSGET应用-最近文字

Free-Lancer

先选择 De 文字，右 De 文字去选择 *m 文字，无需用分组函数

1. (defun c:tt (/ ss sl el an p s e1 i v filter el1)
   
2.   (if (setq ss (ssget '((0 . "text") (1 . "De*"))))
   
3.     (progn
   
4.       (setq sl         (sslength ss)
   
5.             v         '(5 5 0)
   
6.             _pi2 (/ pi 2)
   
7.             _3pi (* 1.5 pi)
   
8.             _2pi (+ pi pi)
   
9.             i         1
   
10.       )
    
11.       (while (setq e (ssname ss (setq sl (1- sl))))
    
12.         (setq el (entget e)
    
13.               an (assoc 50 el) ;_ Rotation
    
14.               p         (cdr (assoc 10 el)) ;_insertpoint
    
15.         )
    
16.         (if (< _3pi (cdr an) _2pi)
    
17.           (setq        filter (list '(0 . "text")
    
18.                              an
    
19.                              '(-4 . ">=,>=,*")
    
20.                              (cons 10 (mapcar '+ p '(-5. -5. 0.)))
    
21.                              '(1 . "*m")
    
22.                        )
    
23.           )
    
24.           (setq        filter (list '(0 . "text")
    
25.                              an
    
26.                              '(-4 . "<=,>=,*")
    
27.                              (cons 10 (mapcar '+ p '(5 -5. 0.)))
    
28.                              '(1 . "*m")
    
29.                        )
    
30.           )
    
31.         ) ;_符合 一 四 象限角度文字
    
32.         (if (setq s (ssget "X" filter))
    
33.           (progn
    
34.             (entmod (append el (list (cons 62 i))))
    
35.             (setq el1 (entget (ssname s 0)))
    
36.             (entmod (append el1 (list (cons 62 i))))
    
37.             (setq i (1+ i))
    
38.           )
    
39.         )
    
40.       )
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )

(defun c:tt (/ ss sl el an p s e1 i v filter el1)<br />   (if (setq ss (ssget '((0 . "text") (1 . "De*"))))<br />     (progn<br />       (setq sl         (sslength ss)<br />             v         '(5 5 0)<br />             _pi2 (/ pi 2)<br />             _3pi (* 1.5 pi)<br />             _2pi (+ pi pi)<br />             i         1<br />       )<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (setq el (entget e)<br />               an (assoc 50 el) ;_ Rotation<br />               p         (cdr (assoc 10 el)) ;_insertpoint<br />         )<br />         (if (< _3pi (cdr an) _2pi)<br />           (setq        filter (list '(0 . "text")<br />                              an<br />                              '(-4 . ">=,>=,*")<br />                              (cons 10 (mapcar '+ p '(-5. -5. 0.)))<br />                              '(1 . "*m")<br />                        )<br />           )<br />           (setq        filter (list '(0 . "text")<br />                              an<br />                              '(-4 . "<=,>=,*")<br />                              (cons 10 (mapcar '+ p '(5 -5. 0.)))<br />                              '(1 . "*m")<br />                        )<br />           )<br />         ) ;_符合 一 四 象限角度文字<br />         (if (setq s (ssget "X" filter))<br />           (progn<br />             (entmod (append el (list (cons 62 i))))<br />             (setq el1 (entget (ssname s 0)))<br />             (entmod (append el1 (list (cons 62 i))))<br />             (setq i (1+ i))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

zinah

一个字：好。。。。。。。。。