|
|
" w* O" K- X9 x- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
& r. e% S# z- |$ s
+ _7 Y, b( _: n+ N- ;;
* I& S: V. S" R1 } - $ X4 L& T2 m4 c: P% b6 x) X
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
' H- j9 O3 j+ t3 C# P6 {
5 n- d) K( U) [. |9 U0 r- (vl-load-com)
4 P% N2 g5 K7 b+ S3 g* q' b
* ^7 n$ {$ \( `) s! s- D- (setq ss (ssget '((0 . "DIMENSION")))2 E4 q* s8 Y4 R3 }' {. V
- ; @, D5 e1 ~- J( l
- i 08 |# u2 q- q6 ^
9 s3 X: O* j) j% Q% n: _- )7 g' A( O9 H# S2 Q7 [0 }, w
) e' m$ h2 w" Z- ~- (repeat (sslength ss): d' A" Y0 b$ h! I8 z
\& }# S/ C m- (setq ent (ssname ss i)
z% d2 y4 z6 i9 u4 U - ' k$ U. o3 f8 K) ]3 @. ^6 n5 W
- e (entget ent)+ y! q% L5 z* o/ z d
) }( G4 m! e% n7 {: f5 Q- e1 (cdr (assoc 1 e))
/ g6 z0 o9 ~& {/ P - & F+ k* x9 ]9 L. P' r. I
- intpnt (cdr (assoc 11 e))$ Q$ [8 \& R' i* J K1 n
- b$ V4 Q; Z" ^- blkname (cdr (assoc 2 e))' v5 W0 ^4 h2 ]
( e( B' C$ E- {9 Y# w4 H+ Z- blk (vla-item (vla-get-blocks+ Y; r1 p% Y' S) q
- B6 K* p* E& K. b) }- r- (vla-get-Activedocument (vlax-get-acad-object))8 [0 x; j. [% O) ?! f. z
- 2 m- u$ I7 D1 K, d3 z o
- ); |* T; s% t6 p6 f! K* c
+ r' Q# v" n+ U% N; r3 K- blkname5 r0 ~3 f2 Q* K/ r
- - V6 y" [$ e3 n* r
- )- d0 X- u P9 q% V4 v
- 8 k+ U# H2 @. O5 L* X
- )- q# b6 ^9 K) o' I' Q# }6 |; S9 ~+ j
- 2 O1 s( s m; N& _4 W) Z
- (vlax-for obj blk/ c& C5 d+ l+ E% u- l
- ) ]5 s* N! F2 P0 D& o# w% T% t
- (if (= (vla-get-objectname obj) "AcDbMText")
. J, ~0 ]8 B4 T2 ^$ u) G
" c9 ~2 L( K7 x7 S- (progn
7 {, |/ v7 H4 V$ C( h! A* N
- `" n: ^ V. `- (setq txt (vla-get-textstring obj), }# I7 Z0 O8 E0 r/ h
3 D3 Q: K% f7 r. w; h1 k5 R- )7 z n- ^/ D+ D0 S6 i/ ~
$ f6 R) h: P( A- (if (or (= "" e1) (wcmatch e1 "*<>*"))) h6 F1 f8 ]/ v7 _* L
) j- G+ Q& f, C7 J) I d& ?, {* Q( A- (progn
/ b0 }2 g0 \. n y" u% A7 q - # f+ {+ W7 ~0 ?/ Y- A( p
- (setq e (subst (cons 1 txt) (assoc 1 e) e))
9 |/ K. ^' v5 V; O7 `' d
% C0 \# Z# w& P2 c! I) k- (entmod e)
2 v: f2 `- K3 D# u
. z: E$ o0 j# |! P- (entupd ent)
, D1 o, P9 h+ q1 k% a& x - + g# l' T: D- v; P3 J: \6 ]
- )
7 w; Z1 \9 C& `/ b. Y" t - $ d+ l7 M% E+ g- B( q
- )
d+ x" M b' \2 r" W1 |) f
# N! `3 }' {& ~! Y" u w f, E- ). x' X" E# U+ Q- ~, ]7 l
- : v$ r& Q* f' c( e; s
- )
( R) h% Z& l( Q. p' I- p S9 }" V
* P1 A) |2 a: o( K- {# p) x- ) (setq i (1+ i))
# q8 V! h6 a+ \( p/ C
% X) X% K: i# Y) V- )
4 i) k: q2 G3 x+ N1 n- o1 {& H - # \3 N- f9 o3 m4 x
- (princ)
/ l% Y1 I! u* M; q8 N
6 }! H0 q9 g9 h5 W5 L7 u$ g) p2 _4 o2 A- )
|
|
发表于 2012-5-29 20:36
楼主