|
|
- - z ^5 g2 d9 {
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
4 s# S8 }5 {" Z/ ?$ y - 3 K( ~# `, Q' K& S \! o |% a
- ;;1 z9 `4 Y+ Z6 C; ^8 T
: q- H5 V9 S) f0 P9 m6 N- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)# s! E- W3 Z' ]- b3 T( v
- + M" L8 f0 ?" \8 j% f2 m, M# Q, I
- (vl-load-com)
6 G9 u! E& H, y" J3 x - 6 T' n2 v4 c" B, \/ N; X7 C1 W
- (setq ss (ssget '((0 . "DIMENSION")))
5 B3 L$ ]7 K4 K. T6 |" l- W
& h9 i/ N9 C: |! Q/ T; i# v0 z- i 0
/ K+ k4 H4 }% M - 8 G1 w2 M* i2 V; r8 y+ J# D0 h* X6 b
- )
1 v9 c2 Z" {9 J' h& B+ L8 S - ) ~- k( b; X9 ~# i
- (repeat (sslength ss)
" ]* x# S: z' A4 c* n7 j; A3 Z
1 ?2 U% U8 D, l H6 E- (setq ent (ssname ss i)
1 H$ ^- |3 [ }( R' }/ v& s2 K
6 w3 [) }4 F: W' I- e (entget ent); p4 `& I6 \' w Q7 H0 W: \2 }, d6 O
- G3 B, o% O8 {; t$ I# f: h- e1 (cdr (assoc 1 e))# u; I8 H1 |( i: s8 c. R* w$ V
& j8 j: d" x) a' ^ F- intpnt (cdr (assoc 11 e)), P# T! c/ p, |. X
- ( l z6 k+ Z$ e5 @+ a- Y
- blkname (cdr (assoc 2 e))
5 Q. v/ k: N# `" e% g) I6 q- {1 m
- @3 |) G. b; |& J- blk (vla-item (vla-get-blocks* P# ^. Z9 X, f- H7 g3 a9 o
4 R5 y. T; r; H {2 r- (vla-get-Activedocument (vlax-get-acad-object))% X/ O' X E1 h+ k: y0 q# C9 Q
. B1 D. ^! |) t3 M0 J1 M- ); o+ R' P6 y9 T1 R* N1 r" ~) ~+ k" ^
- & h7 a5 l' Q$ D$ E
- blkname, S! r+ Y! y1 }' V8 ?
' w% e. L3 n$ v7 O- ): e' R1 b7 X, \" |+ {
) F0 @9 e6 E3 \, m9 n0 l0 ?- )
/ G* B! Y, F2 V/ G1 ]/ Q; m. V
1 E; [; w: P; ^9 ?1 d- (vlax-for obj blk' Q5 E8 x$ u% i9 V7 l7 ]
- $ L: s8 `0 k3 T9 D4 J- G9 h! h
- (if (= (vla-get-objectname obj) "AcDbMText")
( U; h6 z& ~+ ^
4 `8 H0 N! x( y- F9 h7 S- (progn
" K+ C1 R! L$ q+ c2 Q+ N - * U8 I# P- {' l- v& i
- (setq txt (vla-get-textstring obj). S5 W( x6 ^- u* G9 D7 Y
- % D: R ?" \9 }9 J7 h; x$ S+ A
- )
. e$ s$ t- w0 m' n - 1 E1 D& x. i1 X' s1 G/ L) O1 V$ h8 z
- (if (or (= "" e1) (wcmatch e1 "*<>*")), L4 s; |* x( a. e
- 5 A A. q4 z- W
- (progn
1 u2 }* G- R: \
( E8 Y+ J' M5 {9 H) n8 N( J- (setq e (subst (cons 1 txt) (assoc 1 e) e))7 P" F; O2 C2 Y, \5 |: g
- ' Q' B5 E4 r6 O4 {8 F& o& b& `
- (entmod e)
N& }; _4 }" J$ J r
" P; U1 ^; L% v; T$ w# P$ @" j- (entupd ent)
. D' c5 L$ |! z' ^$ z! B" [% g% G
8 B1 Z3 T4 K. P( j$ f- )
- a4 H% O8 z6 t$ I
, u* e0 Y! y R0 R+ B- )
8 I: v' Y7 u( N& f - U9 z2 s% L6 m6 {& j
- )1 g" N# S# R0 ?" H: J3 O+ k! c
/ p: A# L1 ~& {6 q" J" O# i, u- E0 X- )- o0 m, \6 F+ ?1 h x2 ?! O
1 e5 i1 D8 a# u4 A# K- ) (setq i (1+ i))
! O. k1 l0 M& A7 f. B" A - 3 a% N- n! J1 ]
- )
' O& n' M0 J& C, k6 e& } - ; r4 ]# k1 E1 X
- (princ)
, ^ J9 h L0 ^
+ N& {6 _6 Y) b5 x2 i5 m- )
|
|
发表于 2012-5-29 20:36
楼主