|
|
: U* u0 d, R" u+ R' P7 w- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
# G; E( j7 u6 D. J X4 ~
1 `- E( P3 Y! v3 o, J# @# m- ;;
$ E# V( E) q& A: H - + Q. G9 H5 F- w' H5 e7 ~& t
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)5 l8 I" w, w; O$ P/ x% @: H
U# p( D& ^# L8 ?! V- (vl-load-com)
6 I' g6 `1 X# T
7 l0 U- V. H3 r( \2 R9 F: R- (setq ss (ssget '((0 . "DIMENSION")))
) x/ V Z& Z/ |( C: Q- y
; ~, e& j- C6 o' Q3 [+ K- h' x: z. G- i 0
2 I; J4 A2 C2 C$ A7 U
5 H9 Z+ O1 U9 r" T- k5 G4 l- )
% K' H. C0 p1 @3 [+ A* z
3 p# { x W8 q* a8 p$ \9 S- (repeat (sslength ss)
( t$ i/ R. M: w - ( q- Q$ q h/ a) l
- (setq ent (ssname ss i). z! j( ]" _/ |8 y; u9 Z# Z7 D
- ) g! B/ w+ k9 G x. z
- e (entget ent)& l8 k- I* X- V0 t5 D# r
- $ v8 G0 x! ]4 { j; J8 f
- e1 (cdr (assoc 1 e))
3 U/ x$ {8 }9 f3 T* y
) h& V+ G! n( J- intpnt (cdr (assoc 11 e))
; v' i3 E2 p2 t% q
4 `8 B y4 V: a. b# p7 C. T) f/ p- blkname (cdr (assoc 2 e))) n7 t/ D" i- n% c" j1 ^
' T F' G% _/ e" y) o% v* v" B- blk (vla-item (vla-get-blocks
$ G- \9 s. ]; u6 Y( j$ E - 3 e- y. x0 K% I) M! K m
- (vla-get-Activedocument (vlax-get-acad-object))( Y; D g. m4 D# r' j
7 _6 K: w! {7 C' R+ M' {( H/ a8 \- )
[) ?+ L! V4 D7 K4 M7 U" ~# a
: k& {& F% Q& \: M2 g8 ?. Q \& S- blkname* {& o6 L. _& N0 N
/ l3 O. L2 Q! p+ b- Q- )
$ ` k9 |- d% m7 z6 I - 0 J ^9 T0 P# G
- )/ Y3 S J3 p; t( G$ X# D
- 8 B) L, p0 ]: v- G
- (vlax-for obj blk# y! Q6 I, U3 a* M
- 2 e7 V! V4 H) E
- (if (= (vla-get-objectname obj) "AcDbMText")& p& e+ P" f$ H& O
5 G- ?# {1 Q5 }; E- (progn8 o8 W% E h' J. l0 X2 f( q; `# t
- - ?/ w: \+ w L. k; z4 }
- (setq txt (vla-get-textstring obj)
5 ^' b% L9 C8 e2 b) n- R( v - 3 ~' @" C) j U' }" h
- )4 I* k8 b5 L% N8 x3 p/ s7 x' I
- ^0 P" H) h# T X/ b; o0 R1 i `9 M; G
- (if (or (= "" e1) (wcmatch e1 "*<>*")). B, v# t+ \6 R( |$ S% b
3 ]* w8 h3 f5 ^+ b* L* g3 g- (progn' R) W0 D' M) Y$ ~
5 @8 D. g$ \5 P% i' @+ N& G! ^- (setq e (subst (cons 1 txt) (assoc 1 e) e)). m' f/ A3 |. _/ j- \! c! W
- F2 |0 l; Q( v, s7 I' m% i- (entmod e)7 [3 m$ m. x/ a% }& Y! i, @* u
- d" Q) L5 m# d
- (entupd ent)
) j2 ~/ |4 A/ y% E2 u5 ]
0 ]2 v5 L6 w, `2 M- )1 Y1 y3 M1 t1 @- Q" a$ u6 v
; w8 X g3 ~; r- )
8 r3 U$ f e" q - 7 K/ o: Q8 b9 U, `5 W
- )
2 C, M9 F8 K g5 r" L3 E" |! V
/ Q8 T7 h. |7 o2 n' y) C- )
* s1 ]7 C/ _1 B( z - * ?9 h" \4 l7 E+ L( i0 q! ^; ~: O) ]( C
- ) (setq i (1+ i))7 ]) g( N9 f. X [; F( B
$ b. c/ \4 T, K, [ y, r/ S8 U- )
* V6 t: ]/ B1 B7 S) [/ t - ' q4 U( y, m; Q. h) x
- (princ)
7 k N' N, \+ V: h" o0 \+ N( L: T - - j5 U' ~3 q; v
- )
|
|
发表于 2012-5-29 20:36
楼主