|
(defun GtUpT (x)
' n1 W' H7 o. b" H8 v+ y (setq pt (cdr (assoc 10 (entget x)))
1 O- T3 S4 L8 y1 [3 Y t' i" g3 s7 t pt (mapcar '+ pt '(0 200))
" q; H1 q8 K3 |( p7 I$ L )/ U: Z) x3 Q+ H$ y4 P
(ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0). W0 H$ a7 Y1 q6 d* X5 D
)
/ ]$ z( j. {1 F7 D1 ~9 l' t
, h; c" `: Z9 Z;;; for Test only
$ o- b" ~- Z1 m+ W& b5 v5 m: O' N: F$ Z6 E' ~# J' D; V
(defun C:Test ()
6 X N1 s4 Q m$ v0 P1 ` ;; 设定文字滤取条件2 j0 Z/ {% q I; N! c+ O$ a# \
(setq TxtEq1 v4 ]( o& g# G% _
'($ ]& n! D- V i3 J; `5 w! Z
(0 . "TEXT")
2 o' x4 ^ P2 `# t/ X, y, k q (8 . "451"); `* d5 q6 v% v, p
(62 . 13)
0 F9 m( p8 B% c1 S( u; ? (50 . 0.0)' V* S/ }1 H$ d& D( E, z
(41 . 0.8)
: K, T& n* | _% l (51 . 0.0)/ j" ~* _, ]0 q2 D6 p0 L
(7 . "Standard")
( W& \$ l! t+ U+ k6 K (71 . 0)# u$ S; K" @% s$ i4 h& `- h
(72 . 0)
4 r' y# c( a/ k# ?% z (73 . 0)
& n/ z$ Z3 }- t" \0 [- C )
$ x o, b: [7 s% K- K/ @ )
0 r4 m' Y$ t( z ) K0 O. k, X, a7 C, D4 |
(command "Zoom" "e")$ y, i( W4 ~/ v/ @' y& o G
1 |1 _) f9 j$ x7 C5 r (setq ss (ssget "x" TxtEq)! c, F0 O, _' L. X: D
ssa (ssadd)
& v- U5 a; Z C% n ;; ssb (ssadd)* w- ^3 A' u. n, I; e1 D( C& }
idx 0
. h* e4 J# m* J3 Q b$ ~1 d ), @/ y# ~0 {5 j% R, V; u
( B1 A% y6 P6 Q5 X+ B+ r* R
(while (setq ee (ssname ss idx))+ u f+ d) u, a- b( `/ ~
(if (gtUpT ee)/ q9 C9 K" L: W7 v& q2 x
(ssadd ee ssa)+ _, ^' s7 v, e& G: Z4 n; G
;; (ssadd ee ssb)
. u# ]' I) S0 g$ k )
9 B& {5 A; g& H3 u6 j (setq idx (1+ idx))# E* t# p, @1 e
)1 C O/ b. |4 j d
(command "Erase" ssa "")
) E w. O5 t( U5 V2 U4 H (princ)
, G# V3 d; p% z" |8 |$ U) |
|