|
|
- 0 V. i S% W, d1 S3 {0 _" V
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
, O: H& j% F7 K - 7 X, k/ f0 \8 z7 e7 e- V
- ;;
+ t9 w4 `- [9 Y" X$ t - 5 S, N6 t2 o- i
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
$ E/ K. W+ ?% w- @4 J- X - * C" n6 x* S( l8 p# ]: }5 Z# }
- (vl-load-com)
7 b( b+ c- E( `/ C7 T3 h1 U/ J
$ k7 x/ ]$ z6 H% K2 C3 f: G+ s- (setq ss (ssget '((0 . "DIMENSION")))
" _) A. i$ w0 ^' P2 }$ ~) u" ~ - - Z0 J8 K1 `& u
- i 0
0 R s. p, ~! W; ` - ; B' t8 [2 m* ?! W9 K
- )7 l1 s$ }4 {, [5 C6 ^. m
$ Z2 P% C) @- F) M& m- _" ]# U- (repeat (sslength ss)
: `9 X% p+ t( G - 4 S2 U: d2 M$ U+ h W' T
- (setq ent (ssname ss i)
* p. k$ W/ e( I$ T8 O* Z( X - * _; S. a+ a, o( C! f
- e (entget ent)/ s. [0 l8 w: g' j! f* [
/ N/ i7 J0 Y' f" a. X7 z- Q: d- B; {- e1 (cdr (assoc 1 e))0 v& V' D' M( i g7 T5 d
/ [* V' \5 m2 h1 E" b) a) d- intpnt (cdr (assoc 11 e))
! f0 e/ A B3 u3 Y - - s/ I; S$ u0 S R
- blkname (cdr (assoc 2 e))
$ [7 [0 @% d$ w
2 F G' z. z- ^' @" e* ]* `- blk (vla-item (vla-get-blocks
% r$ n9 f q. ^% I
/ I( A, P. x4 Y6 D0 K- (vla-get-Activedocument (vlax-get-acad-object))( w9 I( F8 F% z
- 9 w* \5 V. ?8 ?9 U* {0 }# \( W8 R
- )
( P9 j5 J5 ? R! g# M6 C6 g& h% D8 P
3 P8 h1 o. U; W& y' ` r- blkname, _, ]; l7 |3 B
- " ~5 m9 m% N; p" I( y
- )$ e% |1 @( D# \ M+ C3 c- B; w
- 9 L: v' K/ `& v' }! q) b" c. Y9 A
- )) T0 G( ?9 y; G3 q% s# {9 W v$ C( H
- # k! _/ |1 G9 \! T3 _2 h& x& L: z
- (vlax-for obj blk
6 |5 E" ?1 [* u+ n" ^0 J
0 Y4 _7 k' `) ?+ {- (if (= (vla-get-objectname obj) "AcDbMText"). D# F( y8 T( S) R5 L& U
$ i- H; X3 O) B4 b z4 A- (progn
9 {2 H. |! N n$ J - , l+ E6 @" g7 G8 }" d, P; U- d
- (setq txt (vla-get-textstring obj)) G9 ?0 ?' p; r7 P9 ]7 j
- # V/ E) Z0 L( ^, r9 j/ Y* t1 J
- )) p F0 W4 Y7 |; k- o2 V
' G0 f2 X A$ Q) H9 a- (if (or (= "" e1) (wcmatch e1 "*<>*"))$ H$ c& p/ y2 z1 R% i& o$ o: o: i
- 6 j! r! d! g) z
- (progn
% X h" c% D2 Q) j8 A& t - 5 U( }* ?% O9 Z5 c
- (setq e (subst (cons 1 txt) (assoc 1 e) e))% J6 Y- `0 x) L/ t7 c; k
- - [( p1 B8 d4 D& e
- (entmod e)
( L8 `" m$ _+ T2 H7 c+ r
) d. x. x% S) F' t; n8 k- (entupd ent)' _' y! P/ f+ J* @# Q8 o2 Q5 K
- ! Z+ b7 G% o4 [
- )
4 [# H# p8 t6 K) c# V% y - / _! B4 H9 b+ u" a1 W6 r9 D, }
- )
8 k! P4 ]% A- |
* B" z) c1 P9 a0 Y; w1 ?. f8 i- )7 X3 y9 c" G% X
& }" k+ o2 u' O; h+ s& F! U- )
3 N: R' ]2 O: y
) ?7 |. U1 D4 ^5 _4 E* @- ) (setq i (1+ i))- k, Q/ ^+ g* J3 X8 m- a. V
# f+ X2 C' p. I4 o& ]+ }- )
G8 Q# b3 O0 W
. P; ~1 p2 t$ O( S& G- (princ)) X4 D% B' ~( L0 X
9 Y8 q* a' h* X$ M7 I, v- )
|
|
发表于 2012-5-29 20:36
楼主