|
|
- ) E h; U' a+ T' H; t$ A; P7 U
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.2 Y. q3 h8 e4 E8 r2 L
- ( R$ z3 G- ?! T; J& I+ @
- ;;: x- H/ h8 ~7 J2 W; J
- {( ^1 e* U& Z6 }- e9 p; S- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
6 E. L. K1 Z2 s- n m4 s
1 v% l$ X& I* I: k g- (vl-load-com)
! i7 i. |+ \* w* H% ~
+ Q/ s! f' ?! h: v1 i: G- (setq ss (ssget '((0 . "DIMENSION")))3 U$ `! N) T* G. H
" b: W8 |0 k) Y' u0 D$ H& H( K9 v- i 0
0 O2 O. Q: W6 ]/ Z
& m5 q Z+ z- l- )% l6 [, E! x5 O) K6 d# i5 c
9 l. L; _) G. X& a' C3 w$ F- (repeat (sslength ss), X5 Q; _2 C2 h
! M& k) B. {' G9 q4 {, ]4 k" V- (setq ent (ssname ss i)
5 @2 X7 B, A1 D' j5 n
0 P& J# v( l* V3 w( v% b; N( W- e (entget ent)+ l5 V6 b( R, }, r, H0 ]
& z4 R- ~6 c3 |2 O5 g5 {- e1 (cdr (assoc 1 e))9 S% Y, r7 }. P( J$ U" g
- " l$ I# m9 N' g* h
- intpnt (cdr (assoc 11 e))( i, `* ^# |3 e# d
- " n( ~% s, t8 f* M) s
- blkname (cdr (assoc 2 e))( d; q* U: B+ V- \$ k
- " ]. }, s+ i7 L( D( ?, t+ J4 N
- blk (vla-item (vla-get-blocks
6 Y! W W3 Y/ x: y/ T- W
: h( x) x& i5 G- (vla-get-Activedocument (vlax-get-acad-object))
9 e- \. c( Y T) b( m& i - * S3 o2 Q$ F* ^) H
- )9 p: i8 n7 V' O2 |3 y) o
+ Y" {8 i1 H$ R! F+ l5 E* d A- blkname
$ o4 E' e/ k$ q3 H: b$ k5 A
7 R/ J3 N9 A N% P& I5 v1 s+ u* E/ _- )
0 A8 q5 [2 T9 l# ]) _4 B - 8 V8 D1 n3 r% p5 [% S
- )
. q- I( Y" F# E0 v
2 W% B, k: a# `# ^ U7 q- (vlax-for obj blk
) p2 W5 a x$ J0 Y2 J8 D
& F9 e- O6 p) a; |/ P$ y3 @- (if (= (vla-get-objectname obj) "AcDbMText")* j( z3 B8 w& D# P
- ( P" B* ~5 T5 v1 V3 B5 D
- (progn3 M4 r5 m" D4 `; q6 T: n/ W
- t' [( q' C: S% i$ {- (setq txt (vla-get-textstring obj)* s; M" @/ Q" R5 V7 v. d8 W
! a" l$ A" I e1 n' W: U9 p3 w- )& m8 `. J* V7 S$ u) L9 K
0 |8 R" q% k+ a- (if (or (= "" e1) (wcmatch e1 "*<>*"))
% q' c2 I- N Z$ Q
' T' K) G" @% Y+ |- (progn
7 u. t' Y4 t+ d# o* h& Y
& p+ y5 m8 r; Z5 r* z- (setq e (subst (cons 1 txt) (assoc 1 e) e))
( \: c$ R, ?6 ?8 s, y - + A1 _# c8 T8 \+ C5 L8 B
- (entmod e)
% w9 ^4 P# R# _/ O7 M - 0 V- }* S7 N" P8 A
- (entupd ent); |: j* Y6 a! `3 M
- $ p7 O" L1 o5 F( ?) d
- )
9 P4 P; k4 f7 z4 b5 ? - 6 _0 A3 ~1 R# r- H2 H! F: g
- )
6 Y; J7 w H( W$ ?0 R - + l0 ^5 T, I# q$ F! G+ z
- )2 c- @# {' p' J
- S( q. _! E: l
- )
1 Z9 a+ B) w% h- M B - . r9 J2 Q# g5 m: S a
- ) (setq i (1+ i))7 f+ R1 t2 n( n' d- ^/ r
- ; o, Q$ z p( w! ?
- )" r- P) \5 f+ R$ e9 q
; `+ o& {# J: l4 b: t- (princ)
# s- Q% j! n( j, k# o9 D% d. k - + M( B6 {# B- o/ T
- )
|
|
发表于 2012-5-29 20:36
楼主