|
(defun GtUpT (x)% J% @: c: h2 h& _0 N: M5 x6 B
(setq pt (cdr (assoc 10 (entget x)))! \5 B( u2 I4 w5 h2 [6 G
pt (mapcar '+ pt '(0 200))
0 V) Z; I+ T3 | ) I$ r7 y! x4 t
(ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0)
; H, m+ k. i/ @# y N' m0 l)
6 \- {* y8 { K; r- y0 n0 l( g+ p3 O; H- G- ^3 P" o7 o
;;; for Test only
' T, n, M6 F9 ?: Q. o' }, |: _4 h b \. }
(defun C:Test ()1 B7 J- W: V8 \8 B( }
;; 设定文字滤取条件" w. ^2 w& Z: H; ~
(setq TxtEq
# X9 l( O. _5 M5 M '() f, m( j/ i( P, r& g. t! _2 v/ s
(0 . "TEXT") }7 z) g+ ~1 g7 Q1 V/ o1 R6 w
(8 . "451")
8 ]7 D% W& h( N (62 . 13)
5 G: U( U: u* b$ J4 k (50 . 0.0)
; g: _5 a1 A. I5 H% f (41 . 0.8)
" D8 b1 W9 E+ [, E3 I (51 . 0.0)/ E# l3 f/ o+ w; F, v9 i
(7 . "Standard")
% h6 T# c" g' I$ g# e3 K (71 . 0)8 f) V5 |; P, S
(72 . 0)
& r o. Z) j0 g! E* a (73 . 0)* Y( e. \8 O9 E0 l8 I) ?3 j
). \* E& f; N G) P; g
)
: M4 r4 \8 o$ ^* ~9 s
3 H; x0 C' Q" @& ~5 n5 l (command "Zoom" "e"). V, S6 l1 N* v6 v
/ d% X# {. E: R# l$ F" p0 k
(setq ss (ssget "x" TxtEq)
/ ~0 |$ T$ Z; {8 ]% s1 H ssa (ssadd)2 }6 p; f( i( p! X8 i
;; ssb (ssadd)* o6 e7 V3 R& P8 D( z
idx 06 b* J: I! r& F0 k9 {
)
' F) g0 D! y# B( i5 c+ u
! U/ _5 T; h) Q$ [, f; h, O4 L( p (while (setq ee (ssname ss idx))
) q/ Z& r! [- {/ Q (if (gtUpT ee)& t2 i5 _- R8 C
(ssadd ee ssa)/ o/ J$ _+ N, _1 g
;; (ssadd ee ssb)3 |8 j5 A4 n4 o0 {0 C
)
. ]. \- H- d8 t( S- V$ `! \( h (setq idx (1+ idx))
0 T) @! ~5 B+ G k$ Y% K! t )
. B X7 u- F' a (command "Erase" ssa "")
$ J" P6 Z6 _+ M3 M+ Y. C! C (princ)
0 m* n3 m& |3 ], s) |
|