|
|
- $ [4 _3 G8 e- ^5 o
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
0 m' C1 z$ R* V: g5 H" u6 k! i - ^7 P$ Y! K! b7 L: t* \
- ;;
' ?3 F! @5 R: ~9 V& y
! G [) s$ q8 Z% a5 A7 N7 i- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
+ W; D0 V, G1 s A" l
5 g" k# t0 l. ]3 M! G- (vl-load-com)/ T& J! Y2 V9 o, U
7 Y7 E+ j$ m7 {" c4 v8 K3 a+ z- (setq ss (ssget '((0 . "DIMENSION")))
; \0 X" R$ }4 h9 K, T# z - ) q- { j# U- L" n/ D
- i 0
: j9 s' I7 y* w2 J - . T; f0 h% H( c# ^2 F7 p
- )
1 ]- {/ G% T7 }: k
# A" Z$ G: b7 u& X2 a2 S) {: o- (repeat (sslength ss)8 | t4 V( n- q8 ^7 @2 U8 m4 y/ j
0 n+ C5 C2 l' l* n; ]- (setq ent (ssname ss i)
8 \+ v7 z6 G6 O X* t" z8 j$ J - . C( I4 b" D/ D; ?
- e (entget ent)0 ^9 T' u/ w: K! f# y
- 4 ]) x; a* y+ V! b( z! a' [
- e1 (cdr (assoc 1 e))$ u3 X0 ~0 S' I$ u# j2 W
5 d$ r, c: w {( S" w- intpnt (cdr (assoc 11 e))
, I* M1 E7 u$ D5 Z/ J' D - - @" T N: j0 f: p( n
- blkname (cdr (assoc 2 e))
. ^' `3 G1 k; e. A, x" }+ U - 1 m% A$ ~- Q5 ]
- blk (vla-item (vla-get-blocks
( w r; }' U0 h. q+ g4 \% z, M7 |
. ^8 l, c- u* [: m1 k6 ^% \% ^- (vla-get-Activedocument (vlax-get-acad-object))
& |+ E8 E2 R# h) Q1 I% v' Y
, i% k; X& x" h& V- S- )1 E$ }9 }# r" k7 u2 z7 |- t
- ! w) B4 S8 [& N1 Z d A
- blkname
5 l7 V: |: E7 i* s ~& k - 9 `% ~3 `, m9 H, D0 M, k# [
- )
* ~" _+ D+ o3 G' a) @. n& _- ]3 w e. W - $ J e0 {1 @ g
- )
. k4 l/ B. k7 l; E
: x* u, n. J2 `7 w1 |7 |& E& _- (vlax-for obj blk
: U0 z) J- q6 g; l, Y
$ I+ r8 n- ^* U7 S. t3 p* E2 g& c( u- (if (= (vla-get-objectname obj) "AcDbMText")
3 a$ Y5 L+ ?2 f/ y4 M
7 r- H/ O0 q4 }- (progn
! w/ r; A" J- G3 B; M, z
; F6 r1 B6 ?- l/ V( S! M- (setq txt (vla-get-textstring obj)
- K$ N6 [: q4 h3 {
5 u# y! O @" j: ~4 f5 N- )1 Z$ P4 @1 ]2 _( n
- : K6 d/ N3 _" p( X" G8 T- q* l' y
- (if (or (= "" e1) (wcmatch e1 "*<>*"))) q& u9 ~8 W" } i
- / y) Y5 T+ P8 w( g) g6 [* f
- (progn' ^! |7 ?- V9 `' G% x+ r0 H
7 c' Q+ C2 s- Y- (setq e (subst (cons 1 txt) (assoc 1 e) e))! o3 B+ J* K9 m) E
- % k, ?) p4 i5 y( M7 M. S. V
- (entmod e)9 T5 m# ~; W5 T0 C: w M
- + y3 a- ]; T6 Z+ {# F# J
- (entupd ent)9 e* d) q/ ~4 v$ |) y
( h+ I0 H ?# a: s; d4 }) f# C- )
& m) u! t' B4 F0 P8 H
I6 F* }; g4 K9 z- ) J6 s K$ U7 D) A; R6 P+ J
- 9 `! c# Z( ^5 r/ a
- )
9 O, B# V# ~7 T$ V! h0 n: J3 L - ' M% ?$ n& g" Y% Y8 U4 j4 {
- )) s8 F8 G& ]3 F
- 9 J* |: |% j8 h8 Z
- ) (setq i (1+ i))
* h/ L1 v. S& B$ K1 r- B! i - - Y/ j2 N* S7 J ^$ G4 K, A% ~& s- m/ J, c
- )7 ], `$ t" p/ O2 E- R& A' V) ~/ x
- % o6 Y, r3 |+ \# f+ F" P
- (princ); W' k% s! `$ A4 l. \ ?. \* U+ c
6 v6 H0 T* ?9 g% x$ G+ X$ m- )
|
|
发表于 2012-5-29 20:36
楼主