|
|
- 0 b* q; W) v0 h6 g
- ;; dmvl ==锁定dim标注数值==明经通道==2004.3.11.
. u5 p% ?9 W" J! p
9 b5 a) Z" R1 y4 M2 p- ;; P2 f+ g% g0 |% [4 ]. J# q
- % g( N+ A5 w9 C+ E+ `6 \
- (defun c:dmvl (/ ss i ent e e1 intpnt blkname blk obj txt); R* H7 j. q* s
- & Z. s' A: S6 W, `, e+ v
- (vl-load-com)
! c/ D6 |# c: p* }4 J - ; R& p. w1 L/ c& U' i- F, z2 V; @. i7 j
- (setq ss (ssget '((0 . "DIMENSION")))
0 @5 x! M" b7 @1 | - / E7 [7 @: H/ w. |
- i 0
8 ~( b% l. X! [! P) }7 ` - 7 b; ]! S0 _( X. u3 }
- )
! m' y+ a i g# v" o$ \: ^% R) k - % ?+ ~5 a5 X* S1 v2 j" P7 C' H* P
- (repeat (sslength ss)' f' B& p/ M( V4 ~
- . z$ V7 B: Q" k7 D
- (setq ent (ssname ss i)
' T! ^0 C/ @2 D( P& ^% ~- ^0 m
& h [ c! Z( B* T. T/ {0 Z+ G" D- e (entget ent)
7 K$ Z3 R4 V* P/ ?
8 q. O- O( X6 A" K3 A) x- e1 (cdr (assoc 1 e))! l' B( s+ B# n5 |
: o' I9 v4 P$ r7 C: a- intpnt (cdr (assoc 11 e))& [& U$ j: p! k" F% d) k! a
- + L( w' f3 u f/ F, y/ M1 c
- blkname (cdr (assoc 2 e))9 z `9 w$ Y" b& x1 [
! L$ o$ E& l* K& t" K- blk (vla-item (vla-get-blocks# R! d; M/ @3 ]2 e
- # | R5 R8 P7 t5 ?& @9 X
- (vla-get-Activedocument (vlax-get-acad-object))
( s# q$ L! \7 c' G: P - ) {8 O2 s/ o" c- n: e- J
- )
4 C# E7 G4 n2 f+ c% ~* [
, [/ X4 ~! D8 N5 r( ?- blkname! Z3 _6 b$ \0 M; C' r
- ` U' e% y: L& W% C" Z- )$ T d0 l8 \* s
- + U' {. U) Y. J9 N i6 `
- )
. j- v _% u. H
5 e" m4 x6 R- k' ]/ S- (vlax-for obj blk
* s8 z- T6 V4 H0 `) p, o. |
7 ~0 W) c5 S5 Y( t. S- (if (= (vla-get-objectname obj) "AcDbMText")! ~/ s# m% S9 p, v
; A: M3 y7 t$ i1 P. W- (progn+ g3 u r8 N g
- 0 n9 g: P0 O) s7 {( r) t$ P$ p5 V6 ^9 @
- (setq txt (vla-get-textstring obj)2 ]9 Q& Z+ u1 E, U" I4 V
- r, T3 p6 ~6 U" D7 H& n3 P
- )
% f# j% L* R8 T; K
+ S+ Y" N3 f5 N) `6 \- (if (or (= "" e1) (wcmatch e1 "*<>*"))
) w' \) G! R9 W* O3 k1 y& c
# i- ^$ L: Y8 w/ [8 X- (progn, T8 I2 @6 u" P; |
- P4 X `( B# {- (setq e (subst (cons 1 txt) (assoc 1 e) e))% l; [- I2 E/ x$ O2 K+ y, z/ U9 Y
4 m3 ?4 K% G x: P: R8 W- (entmod e)
( L7 J+ Q/ n7 V5 E
! i4 C! g8 E4 f& O! C8 v9 c& g6 }- (entupd ent)* c% t+ ?' @/ |% |' O* m9 n
- , F4 S0 r" X9 j, H# S
- )4 g3 \6 o$ K1 a/ n0 M# B. Q/ h
, e1 G- C) U8 d3 c, \' k- )- H! T; \" @2 n: O0 _% p
/ R2 C" p3 E" I; x2 N- )
$ K3 a! C+ g5 w1 W - 4 L8 q( l1 J0 c) {; V
- )
3 }" @# ?, d% _
. s4 ]1 Y6 T7 ^5 G. C6 g- ) (setq i (1+ i))
/ z" Y ` t" \& X) t K! P5 \# u - & S, x- W4 J3 W' m
- )# p* S6 o( ]% R+ z, r* i0 f
- ) z2 F# A* v4 @ ?
- (princ)& k7 A7 Q ^4 ?6 E ~" t
- 5 r. O9 S* M4 V8 y
- )
|
|
发表于 2012-5-29 20:36
楼主