|
|
- 6 R- M+ d5 M# f1 X5 g7 y2 v
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
# ^! M0 ?2 I7 p/ c' E. w - $ M! ~0 i- S7 M4 A% U2 A
- ;;2 a4 O) m# z/ E* u9 [9 o( |
- $ [/ a! X' ~- M( Z3 W2 @2 m1 M
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
/ ?$ c$ d) X3 A6 n. g; J2 D - ) y! J: {# T# R4 E
- (vl-load-com)8 O- n, K0 ]& l
- 9 n. P8 z" T" s* K2 A8 y3 d
- (setq ss (ssget '((0 . "DIMENSION")))$ R/ S/ H- H) @8 B2 D2 O+ A
) i! r' @. E5 x6 |7 v- i 0- b! k ?3 J0 r+ L& g
- 3 v- w+ Q$ }( N; @5 D N# h3 j# [
- )) Y( e, U' C. A" z
3 ], q# P0 M( C/ |$ e8 m+ p- (repeat (sslength ss)$ ]: X; h7 x, o% W7 ~$ V1 x* _- H
# ?5 K6 c6 ]3 N$ _1 @- (setq ent (ssname ss i)8 i' f- p1 f, K# n/ }/ m* W
- & c4 Y; U8 \. m
- e (entget ent)% D8 h7 A4 z- Y5 Q& j
- ( D0 Q; ^/ k( ^1 A
- e1 (cdr (assoc 1 e))6 d% x: }0 g& `& E; C1 {5 j
6 x) P9 e- w" h' V- intpnt (cdr (assoc 11 e))
; k; L: n- Q8 u% [! H - 2 D; O* o* B7 `9 S1 i5 |; V
- blkname (cdr (assoc 2 e))
& A% a3 [! g) G
, P; @, O- b3 V- blk (vla-item (vla-get-blocks: Q* L! w4 E' i( L* {' H
2 e5 V% J: \: s5 D1 t* s- (vla-get-Activedocument (vlax-get-acad-object))
2 [, ]0 S) q+ Y% W4 | - 1 T' e" `+ @4 Q& ]
- )
* [, A x- [, E; j2 S: E - . S! m) R) o- i( L9 T! F
- blkname8 l4 L. W- o7 t6 m5 r4 X" `$ I V
2 P5 D- P4 Q0 }3 J: d( C+ v! S- )
; d9 |* ?9 W$ w6 D+ R- J( Z
- s- H7 p s3 k1 U) r- )
+ r A; u2 r) b- W
" s+ \" ^! y) R- (vlax-for obj blk
- M5 W9 P) A7 `8 ~ - 5 H3 N. m9 o4 o* c
- (if (= (vla-get-objectname obj) "AcDbMText"), {2 i0 O7 L; a. H; Q
- ' k7 X+ e: o' l7 T+ e* }
- (progn
; Y* S' {4 z1 w5 A4 S m - ; A- o# }1 b: Q+ V8 ~5 j
- (setq txt (vla-get-textstring obj)
+ w2 P, n0 g' l8 t - / x) O0 I# N* s( _+ g
- )- j0 F* C+ g9 q
9 z! ]2 h8 y# J1 g7 j' F, B- (if (or (= "" e1) (wcmatch e1 "*<>*"))9 \/ q+ h5 i/ L& U7 a7 K. H5 \
- 8 T; m+ w- e) }# I7 A1 s% ]
- (progn
/ D% }+ D8 ?# r, z) H5 Q( u! g
" w$ L: V2 |3 g' z* Q: q* w- (setq e (subst (cons 1 txt) (assoc 1 e) e))
8 J3 s+ t# m, Y
/ i5 @" o; V+ J M5 F' w, R- (entmod e)! o; B" C @: f' Z( c3 C
4 p t; j' Q- T$ z) L1 B- (entupd ent)
L, @+ B' B2 D F! i6 s
: |. y3 J2 H1 F7 c) H4 e0 g- )/ c, g1 L/ X- @2 G9 `5 W
0 p) P+ j( U. `6 v9 x8 ~3 G) N: k) \- )
' L0 t6 C3 K+ M- u: i( n
; O/ T2 p5 R; Y1 |3 W) {- )
# u- A# L! I+ G" s
7 f! E: v. o0 d* @$ C- )- [% @# F& L0 D* _8 w
( e, U9 I4 v7 ~$ x- M. q- ) (setq i (1+ i))
" w/ Z1 }1 m6 L9 l8 u* s
5 P, g+ w! l& t& R9 H) m# p- )' ]! m+ X1 x c7 t/ Z
( Z+ R! ~. b/ o# q6 J( |- (princ)
, w* c/ r1 ~: C3 m& t
$ e2 P$ k( D+ R+ Q2 w) O- )
|
|
发表于 2012-5-29 20:36
楼主