|
|
! e0 T' i3 N3 e, e- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
9 `1 J# }7 V7 }( S$ u - 2 x N/ Y: t( E/ J& R8 Q
- ;;# g# d" [3 T* @% O( F4 w7 s3 ]9 m
- ) T% ^' W! K# D& T% ~3 [: p7 M
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
+ ^9 A+ G8 M5 |$ P5 p: X
; Q8 Y* X! ?+ v- (vl-load-com)
, {) j. Q, U$ X% \( v+ x" B - ( F8 m5 Z$ F4 r# W1 x7 I( W: m
- (setq ss (ssget '((0 . "DIMENSION"))); Q% N1 }& r- ^ O
- 5 F2 \# v M' ^6 b
- i 0
& i- P* Q# N8 ]0 Y+ \ - 8 a' d4 C( T5 Q3 H+ z( C6 ]
- )6 K/ W& e6 P2 e
; l! r6 {$ q% O8 S G# |- ~- (repeat (sslength ss)
7 D. o% u4 ^& P9 K' h - 1 h3 L$ M5 D- s' _! _. j% @; _% u
- (setq ent (ssname ss i)$ L/ E8 L' w7 B8 N: v& i
' s% U7 Y; P, G8 i- e (entget ent)
- l/ a' g9 V6 ?7 |+ @
: i; n+ m. F3 A8 `, K- e1 (cdr (assoc 1 e))% N, N2 ]8 r0 U q4 r+ W9 f2 `
- $ P) u; m- A4 J# A5 ^
- intpnt (cdr (assoc 11 e))
$ J0 `* \1 K2 u9 @+ P# i N$ S
4 n9 Z+ ^, o) t2 U+ n8 `1 v r( E& r- blkname (cdr (assoc 2 e))% B5 O$ K/ P) M: S5 |0 ?
- % m' ^1 Y5 e, A& ?9 \+ o( w
- blk (vla-item (vla-get-blocks
3 z- m' D0 y2 d. j# L - / T; Q* v% q$ |2 Q& f% u
- (vla-get-Activedocument (vlax-get-acad-object))
+ ^8 @4 G& L1 b - 0 S. i% F8 |2 m2 j
- )
8 C& g# M( E* M1 j
* ?" R6 P0 `( H8 \( W! A- blkname
( z1 {9 B- g) \3 {# H
+ C E3 s; X# r x) ^; t1 N# U- )8 `6 B4 V% J/ Z ]
- , l/ l3 Z$ `- G; `( d0 `3 N
- )
1 P' ]+ I# l6 |: }- S" X - , \( t& E8 s! H
- (vlax-for obj blk- f/ h! n, h2 C! D
. H% N6 x- t, X- (if (= (vla-get-objectname obj) "AcDbMText")) [. B2 w( {4 \* _
- 5 R; W! W+ B+ {( h2 K4 _/ |
- (progn* K, K% U, Y" ^, v) `) V3 U
1 R+ w& n' P; a- t) J& B" K- (setq txt (vla-get-textstring obj)
t" ~5 L- N' }* x1 `5 p$ H) R, } - * s3 K( T/ f: n/ B9 w
- )
2 h; m& }4 Z$ l - ; K; U1 \1 t3 o7 b9 h& ]
- (if (or (= "" e1) (wcmatch e1 "*<>*"))+ K% H: @, V/ Q, S8 ?9 ?/ R
- + S* R' O$ m1 b
- (progn
: `' |6 |8 O0 O: L* T- F
" K$ k7 l/ t$ ^! h5 w: O9 H- (setq e (subst (cons 1 txt) (assoc 1 e) e))- F, V& k% ]! S0 ^8 }
- 0 l. F: t$ q) ?) {# W( X. `
- (entmod e)
8 E9 v7 P; a7 V( \) { - : |* w. K8 F7 b6 F, e
- (entupd ent)
$ d, P/ g6 _9 Z3 z - 6 ?; W" d0 ?* W- `* s
- )+ l7 X" t3 i/ ?7 g
- % |7 P+ v" l% u0 p# `
- ): g8 ^- C, A* {6 K5 p8 h# D
- $ F! d; I! A) A$ j3 ]) |0 D
- )
( ?- q. F1 x% g: e" ^% D - / y. p0 C) a- ]0 X/ @* a; u
- )
1 h2 e6 O: z; g4 E9 L: p
( f `$ \ R9 @" E. p# z) k" m- ) (setq i (1+ i))
6 r0 @9 M4 E4 h - % A& K3 A) m" m0 `8 M
- )/ s2 \, d" y# i, b$ ]
- t/ C; F: [7 x- (princ)
: v( Y s6 r# M1 b- s$ J3 }5 f
; M$ X* i4 I; N( a2 u' O- n- )
|
|
发表于 2012-5-29 20:36
楼主