|
|
- 5 S# _+ r" q' r8 D# j4 B4 m0 r
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
! p4 _& m/ i% P7 s7 \7 Z+ R - - J( Y4 T1 ] z# o! B8 E8 x1 W
- ;;: c, W7 u, h8 z5 o
- - S s( r/ a2 ^) B! [
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)7 i2 N; Y) J3 X1 z9 i) d
% T; N2 y4 _" s W4 v" D# X4 a- (vl-load-com)* N N6 i$ u# q n Q) d: o" X
- , V2 N7 D( L% S; y
- (setq ss (ssget '((0 . "DIMENSION")))8 v: e; D/ j i
! B. g4 z) Q! G; Z+ ^- i 0 D# l; n9 i! D% R
0 V) U/ ?! \' X. D- )4 v, `% b- n9 z* G
# P5 q) D& @4 H4 {8 P7 N0 L- (repeat (sslength ss)7 B7 R! p3 t' b1 w9 p/ X. {
- 4 E4 ~ Z8 u: V1 `% @
- (setq ent (ssname ss i)' W' Y+ Q. o1 n8 l. v* Y
& L. l( \+ e6 q6 u+ C- e (entget ent)! F# k3 D6 o5 b) h# T. G/ Q
& s) `$ q# J- T/ |. G& |- e1 (cdr (assoc 1 e))
$ X" c9 f, b+ B5 `/ w- m
1 q8 L( E1 n! p" G+ J+ n- intpnt (cdr (assoc 11 e))
/ I* t/ `, C4 L. j- s! y - 5 h: H7 C4 ~) j& o' g7 a, p+ S7 M
- blkname (cdr (assoc 2 e))7 T8 n7 v6 G5 P. |* _
- # y) }4 @3 ]! j- Q5 y6 X" r) @
- blk (vla-item (vla-get-blocks5 j( ?. Q" Y6 {( s) p8 [5 |
- ( g; o! k* ~+ |( I
- (vla-get-Activedocument (vlax-get-acad-object))# R6 N4 l6 n5 {* i& G
1 t7 H) B( Z5 q, s$ ~- ): E0 p# W2 P- K. G4 q, D$ D
- I: s% ^2 L, Y6 |% b
- blkname
( q: E% R# U& q
+ Q0 x( |# w" \$ `- )9 y' o: g5 [' f* x0 K
4 g# o# S! I9 g3 P- )
3 c( B+ g. ^& Y9 Z$ \; i
/ F5 @; I+ k' N/ a+ \- (vlax-for obj blk6 Z4 N) g0 @( m
- 0 t/ A; m" X" ?% l. N) n, E
- (if (= (vla-get-objectname obj) "AcDbMText")
1 i0 k4 F0 U/ ~/ j2 ?" q5 Z R" } - ! N% S- n* Z6 \. _0 H" c
- (progn
7 Q/ X: E& t @. h7 \! ` ~ - # `: }5 R1 z% F7 R
- (setq txt (vla-get-textstring obj)1 M# q1 o7 u2 m# Y0 d0 j1 c: ^7 o9 J
* {7 Y0 P( y. @0 A, W# |- )
) ~5 q* X9 X8 {2 m1 w) ~ - 5 J* n% W1 n: ]
- (if (or (= "" e1) (wcmatch e1 "*<>*"))$ t) w2 C* ^4 x( ]
2 ~6 H- h* V0 i! z$ K$ [! w- (progn) W1 c' h' Q- |( }4 Q" k
- ; ~& U' k9 [' e$ e: w
- (setq e (subst (cons 1 txt) (assoc 1 e) e))$ g1 b5 `' y* N0 Y1 c* c
- ; H( H, v1 S1 S% T( E
- (entmod e)) s5 z6 O$ h' @" l. W. ?$ \" j
- 3 [; o2 p3 C6 Z6 Q1 ~/ C- a
- (entupd ent)
' U3 x# c9 O* W7 r4 ~
& h" V+ i) L) g0 c- )
; |( {6 L, y( k$ B: M% n
/ K9 U: R' R2 [% O! J. y- ). i3 @5 M2 `+ N, H
& B: q6 P* V1 b' s, j6 y0 S- )
! k2 M2 y" J6 J5 Y R% J - 8 C- |4 ?+ B0 G) F
- )' _: m& B9 L1 r( |
4 L2 ?4 h- z7 r5 U u- ) (setq i (1+ i))( ~) x v$ p' s" g7 `) E2 Q
- 9 A- H" G3 S9 O# ~5 B, Y" L/ k
- )$ Y2 ]& B6 x% G1 M M
- # M7 b2 u% H8 I3 r0 [+ ?* t
- (princ)
; Y6 O, D3 k% H: z4 K - 9 v# z: w7 N2 k* n/ V- J0 J4 |
- )
|
|
发表于 2012-5-29 20:36
楼主