|
(defun GtUpT (x)
2 N- q0 R: l+ X+ O8 _( L5 {7 m (setq pt (cdr (assoc 10 (entget x)))
( ~& H& J* M! S. }. ^. ~" Z/ R pt (mapcar '+ pt '(0 200))
, @; ]0 w% }+ z) I1 I( P )
! ~2 u. W* _; Z& P' t1 k2 k# k (ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0)7 A. L. y! A: j( h0 {, Z
)
. q, q; {5 M: \
5 q& b) C% D( ^; C5 Q, z;;; for Test only
( i3 K) \( E1 g5 q' R& n" H, g1 o9 ?7 G, W
(defun C:Test ()
% |, t( P5 L0 [. c! L, ] ;; 设定文字滤取条件: \1 t) |5 q( x4 b* J" v! i8 r f4 U
(setq TxtEq
4 l4 n V4 M! k# J% B '(6 @5 u2 d0 N5 z
(0 . "TEXT")
8 g; u( c& e" l) M% V (8 . "451")
/ w+ l$ s4 A$ U1 g) t# A (62 . 13)
$ K4 C9 Z+ N' E, \( o (50 . 0.0)
8 J9 W( O3 Q7 j8 k1 ]" G9 V (41 . 0.8)8 k7 q [1 A0 Z
(51 . 0.0)
5 e& z8 P" ~8 U& E (7 . "Standard")- [ l) e1 ~0 u# Y
(71 . 0) a# N) f$ O$ l( Y
(72 . 0)
9 {/ Q6 N6 o1 \* A) o (73 . 0)& t: `% |+ c5 l) L3 u
)6 y- ^: O3 ~6 F; ?# Z% F* M
)
# [. a' u! \/ V+ ]
. S- k7 }6 i0 f* h (command "Zoom" "e")# V, c0 f6 z/ A
2 @2 L# j) z" P. r
(setq ss (ssget "x" TxtEq)( d# J" F5 D0 S! f7 k- z/ `* g* S
ssa (ssadd)! u4 _! c! ?/ _8 x3 E: w
;; ssb (ssadd)
* f: |+ J# n" r0 X idx 0
6 @8 [& i' u/ { )8 R3 ]; Y$ i4 P5 I8 E
a0 S) k0 y, {9 i (while (setq ee (ssname ss idx))
! h9 Q" J, K! a# ?0 G A- T0 t; w (if (gtUpT ee)
6 l" F( B% k& w) ^1 k (ssadd ee ssa)
5 G- q9 `1 e! E0 _# l# S5 \2 z# k ;; (ssadd ee ssb)0 L0 g3 e: w# i4 c/ `# H
)# l& `5 V4 L0 M' Z- `0 ]! C8 `
(setq idx (1+ idx))
. N, U" \. z8 s% h; K% Q ). C. q5 J8 v ^7 O7 J- G& t; ~5 s
(command "Erase" ssa "")
9 t5 A' T' h4 a5 h, {8 ~. y! n$ z, _2 t (princ)
+ c1 [4 P \' V6 {6 t) |
|