|
|
- ' w) H- c6 N/ C- }6 X6 t3 j: y
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
W, S+ x* d) t# P6 o; ]+ @
1 C. W q/ R8 l- e+ H8 c6 P- ;;* M& T9 A2 |3 q: Q/ F% X
3 H8 G3 b5 W3 e% Y/ V$ n0 |) m8 K( b- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
. J: R0 r+ u/ A: `, x- N+ N - + c8 `" V/ [% N3 u; j X2 |& a$ }
- (vl-load-com)/ Z8 q4 J) @! t3 M; g
- ( p( ?8 K: @& D2 k$ x
- (setq ss (ssget '((0 . "DIMENSION")))
$ G. d4 j9 ^ P4 c6 j* } - ( u% |! s* W1 M& _" \. ?
- i 0
1 A" T( V* B" A. y
' J) _+ l; k" b I; i- )
2 f% z T# [4 F0 ^+ H" R3 N
5 F% s: {$ Y' C- P9 K2 Y- (repeat (sslength ss); K# J; p% M+ }1 z% T
- 0 W' }" v6 r- p3 S# O6 s
- (setq ent (ssname ss i)! Y' m* Z0 y+ \$ B8 ?1 }
- 9 U! W, T D: H$ H& e$ c3 y x; ^, G5 V
- e (entget ent)
- y$ f* p% `4 w( V+ F% Z
5 e, e9 \$ I# b% }9 e- e1 (cdr (assoc 1 e))
2 C {; O$ v% p7 g- Q# G4 N - + p a3 T/ c' x7 z# `
- intpnt (cdr (assoc 11 e))3 \) n, G& r; G
- $ u8 x+ g7 Z1 l0 R, ?# \
- blkname (cdr (assoc 2 e)), K \9 T8 w! s5 i6 z
- ^4 N0 W0 S; ^# v: s. ^3 {* Y/ f0 v
- blk (vla-item (vla-get-blocks
4 |- j5 V8 W( k. `6 V1 M- E q! f
: _4 M+ e- I0 D( M+ F3 q, D; m- (vla-get-Activedocument (vlax-get-acad-object))
' i3 m# x0 M7 F& @" u' }. n4 E
' n" }; ]7 {1 V: \8 X1 q- )- K5 q# B) ^) p$ W) z/ \
. R" |+ U- i$ `7 y7 d: ^) O# B3 ^! G- blkname/ M( p y! C) y# t1 O: g
5 ^( P4 ~+ ?% g6 y7 d- )0 W& J( m: p/ \. }$ N
`+ M" X* E: Y9 V# U7 x# {- )9 x! x( Y' }5 r5 c6 v
5 q$ P1 c: O0 W; B4 d3 U) o. S- (vlax-for obj blk
0 _1 w6 `/ v( ^! ? - ) [6 @1 e: K: K( z
- (if (= (vla-get-objectname obj) "AcDbMText")
" t6 e+ f$ O3 p2 ?! G+ Z - 7 `4 c8 ~, j3 d1 }% ]
- (progn
+ f, Y! y. e. p! I - 5 n" _/ z7 y# H2 h# C9 h2 l" T
- (setq txt (vla-get-textstring obj)" z2 @, O& D+ N7 |8 G: o
/ s4 k6 j1 e- U' ^7 v- t2 m- )$ Z; t% ~' M# m6 l2 e
- : u; |& h8 Y8 R* _
- (if (or (= "" e1) (wcmatch e1 "*<>*"))$ c9 W. E) @) I& k
- 0 G8 ?8 |- c" N2 e
- (progn1 l8 N" z" F2 q6 y& |/ B0 B
- 0 G6 m8 L! G2 B2 _; h( @
- (setq e (subst (cons 1 txt) (assoc 1 e) e))# m% \5 K) q9 u# I" p D3 a
- / x/ C0 _: r3 P* h
- (entmod e)
; k( W7 |: d4 f! r8 ?
, n% K1 n: W5 Z- |' B. M5 @3 G- (entupd ent)
" ^3 E5 E6 D1 @$ Q7 Y- r ?
m' b" ?. C' w! J- )- Z+ }' k7 D0 G1 E
# g8 ]5 x3 l6 X0 o- )
( x3 Z3 u' _. d! G0 H, U6 F
W7 h3 w5 S$ K/ ^4 t. P2 m- )
; Q' B) F3 G$ |5 c7 g0 } - C; m4 g% M+ {3 v5 `# c% q
- )2 O* @7 D; U0 ` j0 V. v
# n' j5 V' Z8 `- ) (setq i (1+ i))& E- G; y' u- j
- 4 o& i. t, O8 ]' c( m$ \% D
- )' }4 p1 q0 T) _! N, M+ z9 N
- 2 L2 l0 L6 `/ p+ F$ l
- (princ)) q4 e) n0 Q# p" Y( F
- ! y" K8 `( S0 D
- )
|
|
发表于 2012-5-29 20:36
楼主