|
|
$ {, u( {- f. z- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
: q# b0 l8 N3 Y/ ^: M5 }" m
' l4 M# w8 u, E0 p* A% L/ F- ;;: o1 ^2 u3 Y: W( e
- 9 ]6 J; T0 d. J( E& s1 S% ]
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
: e2 w+ Z( q; j; \4 R# y/ o" q
: t6 N- u8 t7 D" ~+ f& M# q- (vl-load-com); u* C7 ^6 o0 _! l
2 t; }+ b* U! g4 v" c" o0 P- (setq ss (ssget '((0 . "DIMENSION")))5 \. t$ K; B( ^( [, u; O1 ]0 d
- : F f4 g( L- ]* f& v
- i 0( f8 E( y2 ~/ f" s3 o: y
- 4 r1 d8 A) o9 F5 T& w0 H* i0 Z
- )
" W5 ^5 _7 G. |
4 U9 f. f. ]: [- (repeat (sslength ss), w4 i$ ?& u- u1 U
3 r( _% M* X% C. W: H9 N- G4 f) a5 |- (setq ent (ssname ss i)
) p5 ~) L- {2 s# u! ~8 ` - ) U5 k* L5 S3 B+ z# Q. r8 s7 ^
- e (entget ent)
1 |. t; I" w: M- m) x/ f
# u4 `, {' v6 j0 f9 _- e1 (cdr (assoc 1 e)); O- o; E& a" f- N, Z5 o. r9 g
- ! \! ?9 |& \: R, w2 y
- intpnt (cdr (assoc 11 e))- X0 W. G# b% R% h% h; S
- 9 g% m9 G3 ]. J4 V5 I! {- [: [* y
- blkname (cdr (assoc 2 e))
2 Y8 X. N' Q% V V+ M8 A: ] - % x2 g4 k8 n7 I4 c( _1 D! @: q
- blk (vla-item (vla-get-blocks! Z& M0 ?5 C- o; v
- ; o( G; G* `3 M' w4 m
- (vla-get-Activedocument (vlax-get-acad-object))9 j/ x8 f a) ?. y# B+ K
- & q; T [' |* p1 ^, c, q: E8 ~" u
- )( {6 K P( r5 ~( i; X( g) o) W
) Q# O! {8 Q4 ]; {; g- blkname
% f: h& O1 Q5 j+ N4 @) z. A - 6 F6 d* a1 B9 Q7 B% M) d" |8 X% u
- ) } {7 y9 \) V' `' [/ _9 k/ J
- ' \: n0 e2 m5 H) @, J- M0 a- V% M7 J
- )7 t2 }" [) I9 @! l8 l8 o
0 y$ N, ~" n5 Q: L- P! g6 P- (vlax-for obj blk
7 T7 j/ K) @7 t. e$ c5 B' Q% } - ' G1 d9 \4 S/ e
- (if (= (vla-get-objectname obj) "AcDbMText")
8 p" o' k. Z" I S/ V - * O+ @* P! c' I& e5 Z
- (progn
; S" d0 o& j1 n3 M; K6 ~
# K, S; ?( p1 n% R t6 B% ?; _- (setq txt (vla-get-textstring obj)
- H) F- [7 s2 n - - k1 S' |$ r% D) I" }. o
- )
% O2 I f- }1 F+ J2 q
' s$ x) m# L. q1 F- (if (or (= "" e1) (wcmatch e1 "*<>*"))7 ]! O% U+ p6 T3 l# ^
- 8 o4 j% s7 {% {; `7 ?% c
- (progn
: s |. s7 S9 w9 N
4 c4 G. C4 g( S3 r4 s9 o3 L8 l- (setq e (subst (cons 1 txt) (assoc 1 e) e))
, t4 C: o T3 h# [4 I( E - ) i1 W+ N% E4 u/ c# a
- (entmod e)
+ v4 b$ ?# g& n* K$ R* ~ - : L) d2 l* w. U8 s! S. Y7 i
- (entupd ent)+ J3 P' G0 C! n A8 U& x; J8 [
- ) r' |7 m* s. B6 u9 ]
- )" x1 D% P$ I v5 \3 n
; s; }" \+ z2 p, k) [- Z- ) C g/ u1 M3 n$ z! X
- 3 S& p/ u/ H' T: \& R$ h
- )
- B1 }0 a0 P* l) ?1 p* V, z% f - ' N, G0 F6 |+ v
- )( O8 G' z8 F" N6 e& b
0 @( y0 L% ?4 w% m; @, m- ) (setq i (1+ i))- m# m! W" o9 T! N7 N% U6 s! c
5 L6 x0 ]+ ~ z- )
2 }1 D9 k6 D9 L8 `9 } - ' ~$ H( m5 P5 q- s3 _3 f
- (princ)& P" _3 A! \% A# e5 @* L) z1 l7 L% U
( @, Y: H9 d) r- )
|
|
发表于 2012-5-29 20:36
楼主