|
|
- / M1 p6 r+ o L- c
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
1 O: z. O3 y8 c5 I! s' ^: |; b
2 C. r( O0 _, P& R6 U2 s- ;;
; m& {' s1 ? t5 U# t4 p% J
$ h$ i; c3 m! L+ N' G- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)* |+ K- G2 b$ f- Y3 R' s4 T
- `0 }7 Q* e& }0 t; I& H: \- (vl-load-com)7 U% ~4 W5 j( L7 o2 l& q
- ! g& i9 ^ f: V$ \
- (setq ss (ssget '((0 . "DIMENSION")))
3 n4 h" }7 a# ]5 d) \1 r: X) Y: Y
% R/ ~& E1 d9 _0 j0 J- i 0
3 G3 Z* ~+ h4 o" Q/ U) v - 5 @ x3 U0 f7 X8 ?# J1 X1 b
- )
& J4 p1 d7 F4 V' u& b! b) q4 u
. G$ R5 l" x% z. ?0 x' |: x- (repeat (sslength ss)0 ]6 o. I+ q1 {0 s0 h0 g
: H6 v2 V4 d2 ~( T, y' s- (setq ent (ssname ss i)
+ R% [0 d! u* m$ y2 z' | - 7 U4 e$ F# M3 b5 h! U0 w) S1 s
- e (entget ent)
5 N. M: Z* F) `7 b - + {1 S# x* E8 e3 S: f' O8 f
- e1 (cdr (assoc 1 e))3 R/ c3 `# _# A6 o, G: |
' m! c: I2 T% t- intpnt (cdr (assoc 11 e))
" \$ g8 f/ `, h - 7 l9 y% t; E6 z4 O
- blkname (cdr (assoc 2 e))) c/ ]; N" k* ` Y! }3 B4 g
- & q& M: n$ z! S2 E0 k
- blk (vla-item (vla-get-blocks
' z% K6 n# p% A' O, U$ I& K - - m+ l" W4 T/ L3 v% N3 W6 w( B
- (vla-get-Activedocument (vlax-get-acad-object))
|1 N% ^+ o8 U! G7 ^- v! R) v
% O, ^3 H V* y& T: s8 v6 E. V- )$ l1 G& z( S ?; g
- ) Q6 i: ^2 [- U _, T+ F
- blkname
3 I7 `0 G+ Y. f- W
) C- {/ J; {. K9 G- )
( Y. E; |& P/ a# [: t( h% N
2 G4 o7 ~+ _1 v8 t7 ]9 }% U$ J! ~2 d: t- )
4 [# C% C3 O2 X+ K$ O+ p - ; n* w% T- ?- c8 o1 @
- (vlax-for obj blk
* T/ C# {' q1 Y
% N# N+ U) X) P3 ^, o$ O- (if (= (vla-get-objectname obj) "AcDbMText"); k9 K1 l4 i) |; N1 }
- 3 }" @0 |( x8 A( P- d3 L
- (progn
# N: P, N R- x1 y/ O
5 K3 F+ I: r6 Z+ A- (setq txt (vla-get-textstring obj)% l3 j' C0 u3 {2 T
- & a* H5 ]' s; b0 |6 v
- )& \' i3 e3 z5 h4 h
- ' r+ i3 Q5 @' V0 V4 J) d
- (if (or (= "" e1) (wcmatch e1 "*<>*"))
, J! T4 w5 l: A7 s# k5 }7 Y
( U- o" t, c8 D; u( |- (progn# k, M1 X9 r6 B) W' y/ Y4 C1 \
2 I9 e/ Z# `1 M4 N2 S* {" y- (setq e (subst (cons 1 txt) (assoc 1 e) e))% N5 ?! f5 w2 T; o- O; A
/ l& J+ p3 Q* H- (entmod e)
+ O f+ A b. Y2 o4 L - 5 {) n: W" `' q2 N
- (entupd ent)) b F; Q! R* Y$ C* l
- / g+ H. a2 m0 h8 J- Z
- )
% a0 x- g5 B# J+ a8 S8 w
" t; ^! |+ r2 H2 z2 c& K- )
* B! R" b4 J/ f/ o - $ ?: Q* U* {! B; {3 h5 P% l
- )
9 g( g4 x' I$ E - ) u$ e# ^. v+ u! k5 T$ K
- )" v3 ?7 N C8 F, k) k
5 T7 J: w' a" p$ j8 i7 ~6 c, I- ) (setq i (1+ i))
+ Y( a# y6 l3 d/ z; X# F" j$ U
- A& |; V3 n+ A$ h9 j+ N- )
2 C i, U3 v* \- x; C
2 f. n% b3 w1 u' K1 s- (princ), b8 O4 }9 b" M; N
; z( k$ r( s! ^* m# w, ]- )
|
|
发表于 2012-5-29 20:36
楼主