|
(defun GtUpT (x)- Z2 _4 Y4 w# L
(setq pt (cdr (assoc 10 (entget x)))
4 R2 a7 |' ^3 ~% w' x pt (mapcar '+ pt '(0 200))4 U3 D/ U% M" Y ?9 `
)% t( V2 y% c, a1 d
(ssget "f" (list pt (mapcar '+ pt '(400 0))) TxtEq) ; '(600 0), X+ t2 x2 v3 u, `% ^
)
9 r) ^% h( d5 L# l& a% N) B: s* m |, W+ B
;;; for Test only: T( Y! M, K3 L$ W$ m4 y' R
. `- I6 o6 V2 n6 n(defun C:Test ()% U# H8 e+ j2 t% z% q$ [$ U% _! s
;; 设定文字滤取条件: B+ _& ?$ I' ?8 r$ f
(setq TxtEq
+ n \; e2 D; O3 G* h '(* L: j( p5 [" d1 }0 b
(0 . "TEXT")9 F) Q8 n: O2 h& y7 H; n, \
(8 . "451")
3 [3 }; g9 S* _ (62 . 13)4 Z6 p+ f6 t5 X
(50 . 0.0)+ H6 g/ Z. Y, @- K! x Z) D) v, O
(41 . 0.8)
+ d% h( \' D" l! P( ~" R: k- [ (51 . 0.0)
x h3 D/ _% W$ l B/ H0 n3 ? (7 . "Standard")
! l" k' f! W7 T+ K (71 . 0)
7 Z; e) m$ t" Q. G: D7 O! m* }& C (72 . 0)
5 G+ U2 G$ x( u! h (73 . 0)3 Y N( K1 r1 k3 F: M ?' t
)
; S/ b5 R% m. W3 `0 [: e, Y. ] )
+ K- t9 q ^" v! I6 e, N & ?1 N/ p- w2 q3 ^+ T! }
(command "Zoom" "e")
U$ M' H2 M: N+ ?4 Z. j- ~
: r* R6 E" B3 H E; S0 ]& F5 O (setq ss (ssget "x" TxtEq)& C V9 Z& D$ {2 r; \: k
ssa (ssadd)
3 [/ u$ C: G& ]% P, Q ;; ssb (ssadd): |1 w. `4 v7 X5 S& v( d
idx 0
) g( q; I, S' l" ]( n0 V7 u8 H )
6 G- r/ ] ^2 r) t
6 B! _6 Q6 l6 @, T; ?5 F- f1 V (while (setq ee (ssname ss idx))
7 b6 c- ?, o; Z! K3 j* j (if (gtUpT ee)- j$ E2 T l9 m) i n8 K$ h7 R
(ssadd ee ssa)& R# O% v8 W/ X' Q
;; (ssadd ee ssb)
$ D* s+ \3 h3 t) F' S )1 t9 s6 ^0 o2 g6 o2 [
(setq idx (1+ idx))
7 U6 b* Z) ^& Z1 @ ^: I. i0 E )* {$ y. E- C( x
(command "Erase" ssa "")
* K7 x7 t& V; C) c+ S, B. {) m (princ) c( R$ b9 ] b: | H/ c$ q! Q
) |
|