|
|
! d; o, d+ u. S- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
. d( {; W+ ^: j - 4 o0 r4 t; Y9 R( |% l! v/ L
- ;;
) I1 ~4 P. D# g0 a- I/ {$ ]: ~ - * |, N3 ?) I$ a
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
0 ]& ]0 K9 S0 M# z - & I# }2 m9 s; Q# {
- (vl-load-com), b( \1 P+ n2 q& X/ g) \1 D: ^4 [( p
- , v3 r; s, W: b
- (setq ss (ssget '((0 . "DIMENSION")))
/ S7 {7 V. N- y+ @6 w0 L - 3 t, @0 Q2 A4 ~+ ]& G3 V, b+ ?/ B
- i 0
/ A5 V$ W( K2 `5 p3 n0 e( A - - L" L& k. n% |
- )
$ o9 ]: J' c' R* a% S2 G3 R d - : P$ e0 m* I& S( [* o+ q. A
- (repeat (sslength ss)
& A+ Q3 ^ c: T$ O& }# _% A# ?+ i8 E - 0 k( W i6 u2 ], X# t6 m
- (setq ent (ssname ss i)' k! S* Q5 m) r
9 U4 x g2 q0 y) A5 U: B- e (entget ent)# b7 ?9 A7 X5 G( ^. B
+ Z6 p: w% v* }- e1 (cdr (assoc 1 e)), `9 N/ [7 j! b
; o" U3 K* d) L+ T7 Q; D- I- intpnt (cdr (assoc 11 e))
3 v3 f; H8 y$ v$ l' u" u0 x
8 f# \5 }3 D- s6 ?$ W' e8 }- blkname (cdr (assoc 2 e))' \( U) {; n! Y* j, c
% B o5 j7 c% a5 d- blk (vla-item (vla-get-blocks
4 I1 V+ Z! |, i" Y: a - 7 q3 P9 r1 Q S
- (vla-get-Activedocument (vlax-get-acad-object))1 }6 f+ W) e; f
# b. R5 w) ], U6 i- J" v8 O- )
) O2 c+ f% O J/ r
& f, L: n6 M! u: D6 r) z- S O+ I- blkname0 r" Y% T4 n- k3 [5 b1 J* \' E5 m
- ; c7 {- P' i S
- )' A. T/ _2 n1 G4 Q. m% f
6 |$ q* f" S. a7 F$ X- )
/ I3 j4 e0 ` G1 H L
. G+ c5 i/ H" r9 p h1 n$ Q- (vlax-for obj blk5 `4 S! D8 }# l9 T3 Z f
- ) v, S# M/ C4 z, T3 t
- (if (= (vla-get-objectname obj) "AcDbMText")
* W) E" R W1 x4 e: a2 @! M8 z" L - , ^2 k: G: A a) G
- (progn' c1 l& i8 A0 W: @. P" N9 a
' V# B) R: T/ _9 F, n w& G- (setq txt (vla-get-textstring obj)
. r% \/ r l2 D; X
$ r4 [; q5 c2 D3 g1 f" _- )
* j% m! f- a& p: y# _ - 7 n1 V6 }0 K2 j4 G7 e
- (if (or (= "" e1) (wcmatch e1 "*<>*"))
, l, m. L1 ^% E - * C" I2 ?6 {) b* T
- (progn
* B( W1 J; i" e: U* ^ - 6 L+ d0 G; s4 t+ ^ g) i
- (setq e (subst (cons 1 txt) (assoc 1 e) e))+ M) X: c+ `& r0 C! M/ p
6 F7 W: d3 l$ i/ h0 ~- (entmod e)
# \$ U% f4 ^- C) R% w; }7 L+ G
: v3 w8 ~6 N! l) e8 H- (entupd ent)' {! x6 c2 l6 d. W
9 Q! g: f1 Y# y7 n- )
. @% I' {; U; S, D2 s. a/ T - 2 k0 S w2 o# @
- )
1 C, Z. O/ o) r9 F# _$ ^ - ' |1 H& j7 p5 h! }
- )
$ {+ y, U( U7 v8 ] - 8 }/ z0 n: Q6 K" i# P
- )
9 q |/ [, l& J/ G - " J" t$ _$ h- z
- ) (setq i (1+ i))' w3 J6 i* T7 G+ T9 T2 g3 z9 `
- + E6 H7 ]7 M' J) i' z) {
- )
( u9 }+ M$ ]* E7 F+ V; ? - 5 j5 s7 F( B! u) y2 t, z. b' L
- (princ)
& T- }' F7 _8 g8 w7 Q$ w2 l - / L- d% A9 R2 ~& J
- )
|
|
发表于 2012-5-29 20:36
楼主