|
(defun GtUpT (x)% Z' A( n7 X* Q) Q4 e; Y, s$ m
(setq pt (cdr (assoc 10 (entget x)))
) @% w; y0 D S3 k3 ^/ R pt (mapcar '+ pt '(0 200))
4 l2 b' D* Y3 r. D3 _ )
- e# ~' N4 c$ W; B, d! {5 [5 | (ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0)
+ {& o( E4 w/ l8 K$ r# ^6 f)0 G' ~1 } m( _; p1 c" `4 d$ G/ V% k
7 v" D" ?7 |: @2 \
;;; for Test only
- `8 a) ^- A# L3 M0 U7 C6 E
0 G2 a: Z/ |- L" e(defun C:Test ()
7 Q, b( ]' l, E" o2 `" n ;; 设定文字滤取条件
6 Z' A6 `( p1 F: @7 {7 s9 s6 T( w (setq TxtEq! L! n" C# \8 F+ U
'(7 h# r1 m% [- k, O) m
(0 . "TEXT")8 c2 ^/ D9 x( Z5 h
(8 . "451")
1 t3 B' k, }0 r5 S3 e- M1 J (62 . 13)
7 ?( P2 E$ D$ j" n; M6 x0 s (50 . 0.0)2 g" F* L0 ?5 f9 J8 G
(41 . 0.8)6 }/ m" W7 O# y
(51 . 0.0)4 ^1 K; [/ ?8 \7 [2 S
(7 . "Standard")( [. n; [9 q; `3 {+ M' |0 `# l
(71 . 0)" Q+ _4 W" l- I- [% n. K& _
(72 . 0)! S% u. M) Y- T/ S' D
(73 . 0)
' ~& @; {2 G5 B, \& `. |( `0 a ). z2 w/ c" j6 d
)
4 ?' U1 n3 o; m- X" s' e. V 5 q) P1 E) Y( M. K7 o' U
(command "Zoom" "e")
3 [: b4 ^8 k- _2 Q. b( J& B0 L 9 i; M: J- x; K5 x# l% l
(setq ss (ssget "x" TxtEq)" [! P5 w. ~# v9 q8 s0 R' |. u
ssa (ssadd)+ S) T( O8 q0 \6 K
;; ssb (ssadd)
7 ?% s2 _! B) j: D idx 0
1 W5 G! `' \/ r- d )
3 D4 g, \2 ^4 |( @
5 e( \; J' y/ e) M& n' G: F (while (setq ee (ssname ss idx))
( \3 }$ p6 y% d% r6 n (if (gtUpT ee)
8 _$ [6 n4 V9 @( C6 E1 N (ssadd ee ssa)
0 g" K0 `( N$ N" @ ;; (ssadd ee ssb)
' _8 P7 z, W \ )
9 d" G$ V7 T, { e( D (setq idx (1+ idx))
1 q6 J" f7 [4 W+ e )
, `0 x# }; n7 |8 M! y) o (command "Erase" ssa "")
! i" Q6 ~3 q) R' k (princ)3 J) A. j# l+ b. Z0 P2 W7 p
) |
|