|
|
+ E$ `4 P# e4 r9 m- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
& Z0 l# T$ L1 l+ _) M6 K+ l% ~
& |& s7 g. a4 h$ P4 [- ;;
, {! R: |3 i- s9 N; `0 J
+ q' q( ?7 D4 ]- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
9 m$ X( @1 c7 V" Y% ]
! c- Z1 b$ [" I$ H2 V- (vl-load-com)/ f- K1 g- \ o
- $ J1 ~; m. f! U. G& j: y! z3 B
- (setq ss (ssget '((0 . "DIMENSION")))( W" m; I: f& A# J% {$ ?
- # i" X5 z) R0 R3 f5 s
- i 0
' ]5 Z4 _/ |7 Y - 6 F; L" n6 E/ n1 x+ Q( n) Y2 q
- )4 O5 @* G( r4 u- `
- * ~+ t. b, b1 I4 b7 G" `( W, ]5 q% P
- (repeat (sslength ss)
+ Y: u" l3 J2 F2 A- D4 x$ ~ - # F9 W, l' F! w7 m4 B$ U
- (setq ent (ssname ss i)
4 r! Z, @$ x# `9 y4 z0 O. u
" h7 h: ]: I3 F: Y/ |, q. ]3 w% M- e (entget ent)0 C& J0 i: O, R5 {' ?# X4 D7 V
- 4 S* ?5 Y; S4 v$ ~3 r
- e1 (cdr (assoc 1 e))
' o2 Z% {7 r% ?
9 r( A- ^! q2 K4 R6 o( L- intpnt (cdr (assoc 11 e)). X8 G* N' H3 h. `) H+ P8 A3 n, Y
- , ]( ?0 s3 ^4 s3 M
- blkname (cdr (assoc 2 e)): s( u. }" I& n& d
# w9 m9 i4 I# S0 G. Y- blk (vla-item (vla-get-blocks
" S& r" _, ^2 S+ X' ]5 N) N - 4 w/ H2 ~" X4 x" \% [2 g( P
- (vla-get-Activedocument (vlax-get-acad-object))
6 F* ?! [4 w1 R( {/ Y
6 u; o, x1 \2 S- )0 g& m. d. @( n5 N/ J
* r, g2 i* F' Q8 v9 r4 J/ j4 C5 y- blkname9 _7 P* \8 Z2 ]) A& F8 f0 Y
- # z! B/ j- M4 P2 s$ h- D% ]
- )7 P4 J6 @! S/ D& y. t* t4 }, |
- / ?( A5 F' c5 T0 g4 ^1 @+ a2 Z. Q
- )3 {6 C" @- i: B1 U
- $ c* L( J' S8 K: H0 J
- (vlax-for obj blk
|; P, J7 s+ W9 a! s- }2 R - 4 [( i) u7 H @: {2 [
- (if (= (vla-get-objectname obj) "AcDbMText")- F+ Q& q* K5 A5 ~) [
- . {* O9 ~0 U; W% t- F6 Y
- (progn$ _% K; \5 j2 n3 a o7 V, q
- ! h" B3 T$ q) j! t; q
- (setq txt (vla-get-textstring obj)- H4 f) ~( s' D7 F$ }
- . z. \8 Y$ H, } u2 t5 e
- )
+ N. ?; g. U( N# [+ a ^6 M9 q - + D3 p; z: ~- y
- (if (or (= "" e1) (wcmatch e1 "*<>*"))1 G" V9 E; e5 R
% L5 n; y1 H+ b) z. Q- (progn
( o' b8 u, W9 C% K' J) u0 n - . D/ A+ r6 t9 f
- (setq e (subst (cons 1 txt) (assoc 1 e) e))
# H1 R3 h0 t0 O% y9 H5 y - : ]0 D4 D6 o# t( U, S X: Z7 f
- (entmod e)5 h! g i# [0 Z- I" p: R* ~
3 z) ~ l. b: I* r- (entupd ent)
+ ]" Q J* A6 S) t! T8 s - , b2 Z2 y( d9 ?+ n y
- )6 f" w4 ~; E( N% _7 n: d$ _( ]
4 Z+ j/ Q! q2 t# \ n& l- )
/ B. `5 O: e6 u3 V
, P& d! J1 G2 P3 }- )/ s+ \5 j1 L4 r. f' y
& L' s$ W" P4 J; l$ `- )
8 x; i# ~7 j$ i' |" }* s: o
9 x3 v* A, v# R9 O) f& }- ) (setq i (1+ i))& H# K; q X- m1 N5 Q, _, j& V: u
8 _: I" v1 X" g6 {- ); r/ Z. i9 Z# p# }- O" `
- + y. y; v& D7 [5 {
- (princ)- y- ^7 X5 K- j( @# l; n, `
- + Z* |0 }! V" H8 z" Q, O
- )
|
|
发表于 2012-5-29 20:36
楼主