|
|
- 4 j0 c6 q& v$ ^
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
/ o% s) e; e: ^6 {
, L# A, T5 x+ C/ F( j7 s* ~, X- ;;6 a8 T6 I3 H, m0 S
- / W. o- I! Y2 t) ]0 g9 D; _0 p
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
7 c# W$ o* w0 ]1 n3 o3 a; e
s9 J+ e1 [/ I3 d D- (vl-load-com)! H9 \ L+ B3 e/ |( E+ m! I* ^# u3 F
* O2 Y+ B3 e# C/ h' W- (setq ss (ssget '((0 . "DIMENSION")))
. L- o' ?& j: F* `% e; B) b8 n
' R! e" A9 H, R; r! J- b: q- i 0
; N7 T3 J% _' k
9 f: ? K5 [' i2 k$ n- ); I$ b; m- O( k* X6 }. m9 n
r" |( k7 ^2 ?2 b- (repeat (sslength ss)
1 l8 r5 c+ P) x; \8 J. k2 L - 5 \4 f$ v& D/ L1 Z( m8 g. N
- (setq ent (ssname ss i)3 p' C6 d4 p* d5 U; \* T" `$ E
- F/ X! Z) t. o3 `$ x8 z- e (entget ent)
; A1 h. A( m2 b5 h. }( P5 M
0 h4 V# ~8 [, a: z6 s- e1 (cdr (assoc 1 e))
, e, j+ M5 W* i$ ]: m
9 V9 i7 R. ?( U- O1 D2 X- a# m' M- intpnt (cdr (assoc 11 e))2 W$ ^; s0 t& K% c
' |! m- v) N9 D- blkname (cdr (assoc 2 e))7 `& w. N" {+ N+ i: e3 V" |
3 t7 {9 c0 u1 r9 E# T- blk (vla-item (vla-get-blocks
: ?# y5 K/ A; I' }. Y
4 a2 N; v1 e) h3 \- (vla-get-Activedocument (vlax-get-acad-object))' o$ s0 S$ I$ `. R9 C& g, {' C9 U- E
/ z6 ?$ G8 Z$ l! C0 M7 }# S5 |- )! y+ P, c, T& ~1 d& M6 |
8 h" }0 s+ y$ _' b+ X6 g- blkname# w7 m( `5 S9 i! }$ ~" O1 z ~4 S
- 6 N4 M; O1 U4 P* P
- )
: c5 X5 f/ N) x$ q - 5 ?& C6 }4 L' f: j
- )
! c! c3 [4 E' y( ~( l. G8 f `4 h
; L* u9 R7 i! a9 G7 G o- (vlax-for obj blk
* S j: ]8 E/ U$ X - 9 c# l6 `7 S+ {6 ]/ P
- (if (= (vla-get-objectname obj) "AcDbMText")
- i3 S5 A2 G6 N
$ A& \. S' g% u+ @ k- (progn
8 J' w0 R( ?6 M( t5 p
3 g' u; |( y3 J$ U- a- (setq txt (vla-get-textstring obj)
2 m' E; p: q8 ^# c- ? - % R* x3 L4 ^+ G5 u7 y' T' n: M
- )
+ q/ U% r( u2 p I( ]8 e - / G7 h9 K" H9 s. C
- (if (or (= "" e1) (wcmatch e1 "*<>*"))
. d4 F$ x; _3 J, j - 3 S' e" C7 _! F0 o6 N. k' H/ {
- (progn
, p* q1 n- x3 q- ?
$ |& W) Q. N* b z- (setq e (subst (cons 1 txt) (assoc 1 e) e)); v8 B* {; g4 [8 s* }$ J
% g& H, a/ m) j/ r- (entmod e)
0 e/ j: K* f( K7 f% n$ u - 1 Y! T$ t0 b, `5 z
- (entupd ent)3 `# p; `# I9 V5 J
! p/ n! F% ]. S( L+ {; i4 B- )
- k$ n C3 o; Q - - `( A0 Q/ T6 H
- )* t5 P& E; `' v; x6 d. c
- 5 P1 A$ x1 x& q, `
- )
$ u& l9 M7 O$ N' Y - 2 H) C- L/ X2 L! Y, |
- )
1 k9 T" }# M' z2 ^0 {; P - 1 `7 `- z {/ Q5 Z1 z2 ?! c
- ) (setq i (1+ i)); ?. N: j' o! T- m0 e9 `7 d
- , e& Z! b5 X" B6 P
- ). r" G& m7 S* }
- & u2 S; w2 ` k7 |
- (princ)7 S' U3 U8 S z6 |
5 p1 T5 l) U" T. ?- )
|
|
发表于 2012-5-29 20:36
楼主