|
|
(defun GtUpT (x)
; Z' q! H% `2 E {: J- V+ R' l3 r (setq pt (cdr (assoc 10 (entget x)))
1 Z [) ^- j5 }7 C8 t2 { pt (mapcar '+ pt '(0 200)) k% u( i5 b G* E6 |8 M/ F
), c8 q9 Q& t/ }
(ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0)
4 m9 n9 @% |; e7 T) m3 c)
$ k$ l( G0 Q( k( E, f# x; B$ ~9 x+ v2 N" C
;;; for Test only. o( N g+ I2 T7 w5 a
; l' V- x3 R3 x0 {0 [) u" m(defun C:Test ()
( `7 o3 M \: i, f+ A' g. i% u0 p ;; 设定文字滤取条件3 ~/ i7 y) ` M7 N$ x5 x, ?% i
(setq TxtEq: r7 t% Z3 e% g# M1 S' x7 L1 U
'(
' O9 g- B$ W8 ]7 ^& p: E% {) c (0 . "TEXT")# q$ Y: X1 Q7 k
(8 . "451")) c# ]: \! Z5 p, {+ m
(62 . 13)
% I* e8 {0 c( Y; o9 s( L0 D% D (50 . 0.0)( @/ R+ l/ O( r! f+ [+ u- J
(41 . 0.8)
/ W* j1 b+ N2 M# @! E3 G (51 . 0.0)1 Y5 g1 I# C8 A7 m% B
(7 . "Standard")* v. q) c+ l" K+ @7 l/ S2 J
(71 . 0)$ E9 z) W7 V! P$ w3 o% r! G3 |& ~
(72 . 0)
% `( s. A1 D" ^# i$ R! O8 X$ c5 T (73 . 0)8 i6 z2 R+ n) \5 J
)
# Q8 @' l6 `; @9 N% L8 h' ?3 N )
$ F. c# ~! j& P
5 o3 W9 [: V7 X. X& t8 y% C3 I (command "Zoom" "e")
; O8 H! C2 z$ j6 \. Z4 r 2 C9 B- W( F+ C
(setq ss (ssget "x" TxtEq)
; F: X: \" T8 X, D; [" V7 Z9 r& V- d ssa (ssadd); a0 V# x8 }, h8 b
;; ssb (ssadd)
1 o1 `5 j6 G ?1 s6 }3 }' r idx 0
' s& p# J8 [" {& i4 `4 Z )
' L L0 V. A% _% a2 q3 ?6 [* V+ t# r9 [# W" m
(while (setq ee (ssname ss idx))6 J- m6 h9 o. U; P, v+ E, a
(if (gtUpT ee)
4 v6 {6 q5 m$ [2 p- W1 ~) A* t (ssadd ee ssa)" E1 b. D) j1 r2 P! k! {
;; (ssadd ee ssb)
& |+ u. T$ O, s3 ]: A3 \! U" T# O )
; D9 @0 _) A" x) M% w+ @: v8 \" c (setq idx (1+ idx))' X$ P$ n, d F) B
). _$ {0 Q D, x& i/ T) D
(command "Erase" ssa "")8 a: B; d) ^' c: w0 W% z# z/ q% k
(princ)
/ ^% G+ y- B! I$ f) |
|