|
|
- " l3 d' K4 k% t6 `
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
9 G( ]$ j- S4 @7 v4 |+ G5 |
* \4 E: W1 J& [4 [# C- ;;
) S0 g5 f( ~2 t6 f; H6 \ - ! J0 t- |4 X2 N
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt)) n0 B: y# Y6 v% _
- 1 B6 S. a7 a" ^" }+ X# Q
- (vl-load-com). U/ c. h4 s9 k$ B
, ]4 W8 H8 j! t- (setq ss (ssget '((0 . "DIMENSION")))
' `' @8 `7 ] I: q
! @; ]- A2 ?! y* {: T, \- i 0( k" S2 U) @; A& O2 S1 [
* j9 Q2 H% V6 u9 R- )
1 Z1 v3 f2 s5 z L
# K, {# m+ k/ B, R# K- H- (repeat (sslength ss), h! S3 W5 `1 s1 j$ k
2 O8 s s. t; V' z- (setq ent (ssname ss i)
, O& o1 }9 i3 V# z: q& v - : [- j8 U6 @+ w. Z7 X8 Y. c
- e (entget ent)
6 C' X' }" D2 W: ?3 s
' [6 }$ ?- {5 N1 W( q: V- e1 (cdr (assoc 1 e))
) _/ W R, q2 y+ R - " F) K4 ~$ F4 B) u; N8 `1 @. [
- intpnt (cdr (assoc 11 e))
5 D, r5 M! m* m2 a8 r - ( j6 Z% V7 _0 E) [' n
- blkname (cdr (assoc 2 e))
# d6 D: N" [4 v2 b - , s) s" a0 k+ }: j3 @. G; Q$ E
- blk (vla-item (vla-get-blocks: x8 D! C9 R8 Q" H+ _ ]8 z+ s
- - \& s. z, I; R2 W9 }# a7 u- y
- (vla-get-Activedocument (vlax-get-acad-object))) N+ y1 a; f8 H7 @1 s6 ~1 ]$ Q
- ' r# R) @) O3 W) }7 |2 D
- )
6 b# f7 K3 z* P+ a
1 O. M, S% p8 j2 t" F6 `& p& y- blkname
8 w# ~7 `- G2 o2 ` - ' M, i) {* F+ d: _
- )
" A/ s1 x) ~" F& k0 ~- d - ; B3 P7 g3 x- v8 _
- )5 I# Z1 e h7 z6 T
7 Y5 p! U8 h$ e6 t i4 ^+ p, V" ^2 U- (vlax-for obj blk% Y8 ^0 c2 B/ T2 w0 {
- 2 ^ g" {: b! v- O) D
- (if (= (vla-get-objectname obj) "AcDbMText")
0 j& q7 l. z% i/ T' U - 5 S6 n i! B7 d, v
- (progn/ y) ^# M0 \& ]; S( d K7 P
- 9 J% h/ r4 H3 K; B* g
- (setq txt (vla-get-textstring obj)! X: d- y' }* [/ F
5 I4 T$ ?8 d; s1 F* }9 F( q/ y2 u- )1 H T8 T8 S6 |4 N
- # H* l! O: \, J& E
- (if (or (= "" e1) (wcmatch e1 "*<>*")); J: s2 u5 l& @1 B
- 5 s( o7 ~4 n, I0 e! j& ~3 w
- (progn+ a, u/ l3 m: a: Q( K
/ P O- U0 v/ b9 ~" `% B- (setq e (subst (cons 1 txt) (assoc 1 e) e))
! U2 |" r9 R" l! M6 ` - ! _/ {& a. j: t1 k9 Q/ ^6 P
- (entmod e)
m2 P9 [5 a( p, {3 B - / C* z% F) W5 }7 @
- (entupd ent)
/ F, u R8 z: H9 t2 C$ Z - # M% S6 @: P# V5 L3 q
- )' b4 `. t, l, N( ]
- - p) a8 `5 p5 A4 g
- )8 Y% Y% g, v' @' K
8 W9 Q+ _/ {( ^- |7 r" A+ b6 _" @% t- )) V+ t: v/ i5 j# |5 F* B" O0 G7 Y9 H
% f8 C$ U: g; r' C4 v- )
' @. p2 q/ X9 B$ D" n. t
4 L: n. u# g/ V! K- ) (setq i (1+ i))
* V- B6 U) z- k! t - . N2 G, Y3 ^4 f4 u0 x
- )
% E. l4 U4 Z" j" k: n0 o
2 P4 Y; a6 A4 p2 `; j- (princ)( N2 ~- C. [' d, d
% I5 G8 V/ B9 g- )
|
|
发表于 2012-5-29 20:36
楼主