|
|
+ E6 n% L* C. @$ n+ @! k! j- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11., q4 [$ \# k/ N- `2 R1 {0 U0 x
{ c4 i: h) ^. s3 m& q9 L+ Z- ;;% ~6 H1 Y6 v2 X) Y+ k- _$ Y
- 1 |9 }! X* B' d4 m
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
2 o. p3 \9 k- P" U* H7 z; O" f7 y - , ^2 b' _/ ?% P% |
- (vl-load-com)/ t& s4 h: @ X2 F. h
- . ?% `; S, P- J8 I5 s: q5 p! f
- (setq ss (ssget '((0 . "DIMENSION")))
9 T8 k& D1 e; w* s6 k - 0 k: L' u) U( G2 E X
- i 0
, |2 v, q; _9 [ - ) g+ P5 l* `+ I4 L2 n
- )
3 Y/ o9 k9 U: Q" G! T3 r; h - 1 }5 |. [, ]+ B0 y8 _" W! h
- (repeat (sslength ss)% s- S% E' o- `% p, s
9 N5 V' w: \. D5 g- (setq ent (ssname ss i)
& e) D% Q f4 q# t/ \" j - " Y% ?+ N, u! V" V5 U
- e (entget ent)
D4 H! k& l+ J; _, u* y3 W - " A% r, k- J" E2 G8 p
- e1 (cdr (assoc 1 e))
, M Q$ H: J. [7 `* a' h
, K, W! d4 v2 B3 g; s: x- intpnt (cdr (assoc 11 e))
0 M' J0 Z' \9 t- ]! o: C8 Q
1 Q% A% O* J4 j8 U5 i# v- blkname (cdr (assoc 2 e))
/ N! n; J5 o/ P2 v# N& Y: Q
# Y1 S ~3 L5 ~8 m6 i. ?- k7 \- blk (vla-item (vla-get-blocks; f6 R3 F; a) }) S$ d
- 0 g8 J5 r; i/ T& Z1 l& J
- (vla-get-Activedocument (vlax-get-acad-object))" @( M" Z* ^- c7 w8 i( z5 @
3 G; k6 V. w, W6 X: O, U- )
! W) c) h" j; f
- ^3 G# I* U5 K2 e2 d3 }- blkname2 W* J8 H# d0 E5 J. J4 ~
- 0 k: |& L9 H( N( f, O
- )' M5 i, w* O- k8 E0 \
- 8 Y5 }0 W. c; k& I4 {* A" D- `6 i
- )
' ^$ V# u2 [, c
. A- g" h7 ~) l: o8 {6 [- (vlax-for obj blk
0 p6 d2 Q* G7 Q8 f [5 z7 |8 t( I
( I7 N+ b f# E- [- (if (= (vla-get-objectname obj) "AcDbMText")
7 r+ d' O+ j3 u- Z# T# y1 P - 4 `: ?) z& C' C9 [; i
- (progn
5 E/ }( U8 i8 t c - 0 Q/ H# T3 n6 k5 {. D% \
- (setq txt (vla-get-textstring obj)
- C H% r* V# A1 `) V+ k: ] - 1 d, t( f8 m1 C6 j
- )
) S, E4 s; r- ^" `; h) V - + r8 a) C1 B& }8 z
- (if (or (= "" e1) (wcmatch e1 "*<>*"))
. u0 {& K$ y# R3 M5 [/ W - , T2 |$ R+ }- N4 ^/ V* C
- (progn$ }4 P9 H6 V, z1 p. d$ U
* ?" \5 h. w' L. G- p- (setq e (subst (cons 1 txt) (assoc 1 e) e))5 o( O+ {9 X. N) r( `# B- k6 w
* B k J% @: E" F; u9 O- (entmod e)$ q/ M, ?* c" k- O* k
, B2 b" H# l2 N3 ?. T7 D: A5 h- (entupd ent). g! _; D7 X7 K5 Z: M% `- ]9 i
- ; ^. o% ^" C4 U9 Z$ J0 [
- )5 V- G* F& n2 k2 z
- 5 j* I) z" R& H: V: C/ C$ ]
- )$ \3 ]* T4 d/ z( B& D. o5 \0 F
7 _/ ]+ ]4 [- b% q* K- )' `7 {5 W+ c" k* [1 W4 s) u' Y/ K
$ V# Y8 ^; ]' g: O- )
' b, ]( F& f; P5 j( X
2 F% _; n! d+ V2 v% F+ G( ~- ) (setq i (1+ i)), w8 b( G: n" }3 M
- 9 i2 t7 z" o: G, a* H. k+ {! u! T
- ). K# F# j O, ]5 K, W3 d* l( [
- % A" E. t" P/ x
- (princ), b3 ?" A* C5 H( j0 f
- 0 q) T4 I1 ]8 c3 u7 G6 b# {1 z; x
- )
|
|
发表于 2012-5-29 20:36
楼主