|
|
- ; I1 P% I, K6 _. n
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
^# g1 ^* \# a j
b8 a q% ?8 z( G9 ` l' c- ;;
2 j) ?/ X* s: a* V5 b) I4 z - 7 P1 @9 c& W- p( c; I0 u$ Y9 `
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)
1 f, a: @4 C7 z! ^ Z1 A
5 z. d% J4 }8 j5 E- (vl-load-com)
# k6 G8 E4 n9 t7 v x - + g( [$ V' Y; H6 J! u& N
- (setq ss (ssget '((0 . "DIMENSION")))
+ w/ P- _9 ` T8 `: p7 P3 s2 w# K
" a2 A1 X) v9 ^/ B5 g- i 00 ^) b* ?# P% d, Z& M7 F
$ W; J- r$ S* d- v9 X2 R! |$ J- ); k. K8 q' x7 O' y# r
- ! k8 {5 ?0 _) _# ~
- (repeat (sslength ss)
( H1 {; O3 r4 @2 I H; K - : [2 `" g' ~7 t' ^
- (setq ent (ssname ss i)
7 }9 i. h. K @# h( a) d F; @ - + M) S: z0 M1 \$ ^, O$ w* S7 {4 E0 Y
- e (entget ent)
% g5 S# W. Y3 q7 l, m' w5 Q - - `1 f: V+ }- \/ P9 W' v
- e1 (cdr (assoc 1 e))$ n: y: g3 _* Q3 e0 w: w
- 2 p9 h" M# m) Z
- intpnt (cdr (assoc 11 e))
3 |! ^$ Y# ~- X( ~. e
$ s& \! `# f, h9 G7 C$ P- blkname (cdr (assoc 2 e))
; L8 B y. A8 ]$ C - ' I) z7 n- \/ |
- blk (vla-item (vla-get-blocks
8 q8 Z; a1 e8 ^ F# }8 @: [' w6 o - + l" [) O& K9 ?* v- ?
- (vla-get-Activedocument (vlax-get-acad-object))
5 Z" g v$ T" B4 `& G$ Q - 0 x' I1 O. C' d4 y
- )
6 C' R$ H( K. u
' |' K6 i( ^1 y0 [% C, Y3 ?; H- blkname. t; Y- M0 Z# k. e( j4 ], M4 m
0 p' P \0 D6 r2 Q- )
, z, y* r: p/ R, i/ {7 X+ j4 A1 y) t8 Y
, S1 M: A- B4 k- )
. p9 J" B1 J% J8 B% B& [# X8 m8 h0 j - 7 o" ^4 X& h+ ?% P" r; c, [1 t: f' y3 N
- (vlax-for obj blk
. L$ l0 N) o# l1 P/ p9 T! S4 l - 1 H6 j0 v- o5 z0 s
- (if (= (vla-get-objectname obj) "AcDbMText")
" R! W/ ^$ }4 ]# w, q
' b0 W3 u+ ?) y2 u- (progn
9 U1 r T. N7 T* F1 h- i& ~ - 2 ^7 j; U2 C# m, K% r; D
- (setq txt (vla-get-textstring obj)
# s* k& c4 V! [8 I" R2 ` - $ S% b) ~1 q0 z/ x% K4 p# ]
- ), V P6 y; H- {' l
6 p0 j4 K* V7 E. P- (if (or (= "" e1) (wcmatch e1 "*<>*"))
' N1 V. q4 h2 w7 C4 j
! E7 ~# [: z* h5 D- (progn, L6 V+ v) `5 X# |6 c! g' N
- & L- w. L5 B/ X: e& B
- (setq e (subst (cons 1 txt) (assoc 1 e) e))$ G; H" t. z: O, T8 z
- 5 v8 q* I8 f# U4 O
- (entmod e)
4 j# b; }1 t) V) n - ( X6 A" `, K7 d' l6 k
- (entupd ent)
# z* P! V! E4 {
) d" E9 I3 z( i8 L5 K- )
; W5 m3 ^, M* c9 [9 ?- J# X) d+ W X8 d
6 ^$ Q7 B' S) b4 g9 a# {: E- )2 S/ ?! ?& k, \# y, A
# \3 J: s3 q w* G% l/ M9 q* E- ); O! X5 P- M. ^$ K+ t
- 6 F/ f' ~" G: s. n
- )/ b, k- x# f; d, g
) X1 @; {; P+ w6 U! F/ {- ) (setq i (1+ i))
3 L- p6 v2 J3 x2 o+ m6 C9 _ - * `: z* N; B) }, P R9 o5 S
- )
0 t: E* A$ B+ Z: h8 u$ y - . T1 I7 _5 J J' Q3 N7 z. v* T3 V1 |
- (princ)
" X) }, Q4 O! } h: m
- J0 w: u5 ~; t) `, }- )
|
|
发表于 2012-5-29 20:36
楼主