|
|
- 0 u& \8 I* Y, t4 f) T
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.$ ^2 X- N! O6 l" D! o+ o/ a
, G8 B, y {6 T N" S3 |& W- ;;
! D& Q S$ Z; p+ x \$ r - : t& ^9 ]9 m! M7 E# b
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)/ h0 V4 g# @* G2 f4 r0 t2 P% J
% x l6 |; ~. Q& u# v- (vl-load-com)
7 x Y" j$ s7 `( p9 H - 8 S: E, l h/ n
- (setq ss (ssget '((0 . "DIMENSION"))) L r8 U4 w$ T) J- W5 K* X
- 7 {% F1 c# D1 x7 C8 O0 t1 K% `
- i 0
& c3 b/ l7 ?) a' ]1 p J/ o
7 [% |. Y$ G0 P& i* o- )# A; R2 E. d3 q. Y+ W% g. k& i+ n
( o: G' \0 c9 C0 v2 ?- (repeat (sslength ss)
; Q( `+ E8 ?% l7 }0 ?7 t
* e3 S; E" {2 C* w- (setq ent (ssname ss i)
8 k6 ^! t/ |: F6 c) u' q4 l
2 _- c& p% N- Y, e" e- e (entget ent)
! Q+ L- q! M, e) _$ ?6 d - 0 b, X& K" J& p9 N O3 {$ o
- e1 (cdr (assoc 1 e))
4 `- v O) M' w4 N& } - * o. H/ ^. Z, i2 i% _8 q/ r$ U, ?
- intpnt (cdr (assoc 11 e))
$ V- i, F/ ~) k* L# ?1 L1 ?7 c# e - % v, R- K, o& M1 J7 P
- blkname (cdr (assoc 2 e))
$ T9 P, I1 G4 r9 \
" U) v& F" L0 B! [) w1 Q' Z. L- blk (vla-item (vla-get-blocks
# R' y( y$ }' e; w4 Q& E! f
( R+ N$ Q+ N: J9 A1 Y- (vla-get-Activedocument (vlax-get-acad-object))
- d0 | K- v; b( } - 6 E9 R( F: d. O; L$ S
- )
+ s) G7 V6 b) z8 C& D
$ X6 g$ L. g3 U. u- blkname4 U0 S u, y |3 v4 e
& m; R$ r3 Q4 Z- )
8 t" H; q* N( [1 ~+ ^: W* r' _% Z" O - 4 R2 M$ [# H6 p! V& O
- )! M8 l6 e) j& y$ \
* U" ~3 d \7 A& k5 K- (vlax-for obj blk
: y+ n1 R* B% b6 ?6 t4 x3 E$ ~
2 i) O( h. d. z) |4 b" M" E! l- (if (= (vla-get-objectname obj) "AcDbMText")6 }- u8 S. N# E) \
6 n" v2 }2 v) G d* r- (progn
# x$ ^, W: d, e( x! T( o, [ - & W. J- q K6 p4 ^6 J2 m
- (setq txt (vla-get-textstring obj)% }3 T9 p/ M, |- e9 ]
- 9 J$ f8 h" X( p4 E R+ L
- ); B0 t7 g+ x5 S1 w/ C! e
- # N3 r8 E! {& e/ f
- (if (or (= "" e1) (wcmatch e1 "*<>*"))
, u9 v1 D% u, P3 d1 S8 G
/ r' [# b4 e/ J5 h- (progn% u1 M( y' _' c: W! d
- W+ \, j6 A9 E/ ?- (setq e (subst (cons 1 txt) (assoc 1 e) e))! N/ [/ d+ ^! y: o7 V
- + ?. h. E+ m1 l* G/ A3 d: p: s( O
- (entmod e). C. S1 x3 K& k2 O5 k. B$ z5 D
( q O3 Y* s( w! j& R7 B7 p- (entupd ent)" s4 s% T/ X. U% Z) u# s- `6 W9 _
/ M! j8 Y; Z* n9 C& w- )+ {, R( k* \2 c0 [( @/ ?2 ~. L
: u3 I& h+ }/ N/ A1 Z! }' C3 N- )
* E: e' I- U& ^, }2 X - 2 T' B9 J) Y- h. ~/ A1 C9 t
- )% c& [: l5 y9 |0 o. {3 D
8 F# A8 [2 l- L& |. J3 k- )" a# Z9 x3 R! }4 o) t0 T
$ e, g( K- B! c# }- ) (setq i (1+ i)), q- W7 o6 g6 r- J1 o) r, v
' S* |8 w1 B. C* v; B! S8 a- )1 U3 C# D9 C* T U, W' u% a, G
- ; p6 z0 A# Z' g6 B/ B
- (princ)% V# b% e5 w: _. Q7 i7 l) X. M( C- c
- ( N/ N, o* C1 j1 L
- )
|
|
发表于 2012-5-29 20:36
楼主