|
|
- (defun c:ss1()1 i) R. _" V" o/ Q+ a. D L+ D3 c: Q
- (setq old_osmode (getvar "osmode")
- Z E, x @. v, g _0 q/ v - old_autosnap (getvar "autosnap")/ i% n. {& y- H& W5 W& i. I6 [" r
- ) 4 w* R; Z+ Q' ~* {2 z0 |
- (setvar "cmdecho" 0)! a5 B0 s* @# ?( {* {( r
- (setvar "DIMZIN" 0)
/ c* I; s9 g6 b3 g; q5 M0 m - (if (= Ty_le nil)
4 }1 c( A+ d8 b5 u' |3 O9 y - (progn
3 B2 _ d6 b; ]5 @% Z/ U - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))' E* G- Q* h: i( X
- (if (= Ty_le nil)(setq Ty_le 1000.00))
1 q+ s+ b8 ?( w7 f' ~ - )
& G, ]5 y. p, l' y; R - (progn
1 e' u; ]4 _ {1 Z k - (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))' b% W3 `( J) `9 U7 e, J- g% X3 ~$ ~
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))$ m0 }6 ~5 P7 O! m9 k7 i, M6 K
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
9 S* F, x3 i. H' S9 {- U7 T - (progn
* h& U3 i! D; d% C! K8 H - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
|6 A( F7 }5 t( L5 b# H# ? - )
4 }" A5 @" f9 h: F - (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
4 M3 S2 [' w$ q. h, Z - (progn: s& _4 c: S( Q; ^+ L
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))
* Y7 b: x2 L2 d - (if (= Ty_le nil)(setq Ty_le 1000.00))
5 z3 Z6 ?8 v2 b3 n; a. T" x - )
/ i+ z. z0 {- g) E5 z - ) 0 F( n" s) {& c0 v" s; \& W; t
- )
. H7 [$ l+ s. `9 s! x( E, t) b - )
! G& h0 {8 Q6 i - )
- N* f. A0 N( V a, [/ ` - (if (= So_Le nil)5 b g7 L$ V% s8 ?7 P5 W/ n# N7 _2 G
- (progn/ O; j* G# {. Y3 A. A8 a" \
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))! c. A1 `) c' t4 t5 _9 E( I# ]
- (if (= So_Le nil)(setq So_Le 2))
/ V4 o9 d$ r# {8 f- v- V - )
6 e; U! X, A* U% G, }& h" v - (progn% Q7 I+ T9 d% C8 d2 k$ Y) F" G3 ?
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:"))) _" Y1 Q; l |4 }
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))0 @" o/ }4 s; Q- O
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))5 _( l) C- F7 i: z
- (progn9 I2 ?, `7 m' f; }1 r
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
6 C8 F9 s9 F, W8 s7 I' C- Z - )
' `, G) g3 t2 b - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
" s" K2 y. [2 J9 K4 y8 i - (progn4 R6 `6 d" {3 V, L* d2 L. L/ {) e$ j
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))8 x; K( b6 ] }% V/ A4 v. \) S
- (if (= So_Le nil)(setq So_Le 2)). f" K9 D+ j8 g4 M( c
- )
) t, E5 \# K& i7 A: g - )
; c% {' } |! f& h) Q8 E0 ]5 P - ). N: u* Z; w7 `, H- i- Y
- )
) ^7 @+ P% u+ X6 z& f+ C8 Y' Y - )3 z# ?0 p9 Z/ F2 b7 e% U
- (setq He_so (/ 1000 Ty_le))
5 {) L1 ]' j- G( i D - (setq He_so2 (* He_so He_so)) ( s/ t1 R& N5 ?# k) a6 Q& F1 C
- (setq dtl 0)
% J+ [( ]: m( \+ E5 Z - (setq ss (ssadd)): m, i( L: x5 G6 J
- (setq oslast (getvar "OSMODE"))
9 D4 ^1 X7 E& P7 o - (command "osnap" "")4 I% t: F. O9 o5 U8 D
- (print)
0 Z- ^* z! d5 T+ u3 Q( E - (print)
) \9 ]( Z* m! u3 r! _+ m6 N& N! @) A - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))) U) p" f/ v9 S0 e( r
- (while (/= pt1 nil)+ z. D! R8 m' E
- (command "-boundary" pt1 "")
$ b# z1 H3 n/ O" |/ { - (setq et (entlast))% h5 f; p4 S3 N0 Q" s! u: L; g( b
- (ssadd et ss)
K( s+ g1 ^" w# v9 }0 V, ~ - (command "area" "e" "last")' X+ ~0 A1 h1 V4 v* B
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))$ V: O% x5 a( d0 Q2 h: [8 H2 e
- (command "hatch" "ANSI31" vsize "0" "last" "")% J5 R( ]- m% \, S
- (setq et (entlast))
6 _( d5 q* J, @9 }* e' { - (ssadd et ss)
) _) m2 `1 C# x9 y6 E$ o; r - (setq dtcon (getvar "AREA"))$ M) {7 ~) v1 M8 ~1 e( i
- (setq dtl (+ dtcon dtl))0 Q& `7 L8 q0 R8 j' f0 G; a
- (print)! c7 q1 n- ~* h+ ]7 D9 g
- (print)
# D+ `3 ]" Z6 E$ _5 f& U3 f - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")), {! ~3 u4 `! x% w* k. x7 X
- )% E% P+ q( L9 y; |- `
- (command "setvar" "OSMODE" oslast)" @: n, c! i" I+ E
- (command "erase" ss ""); {! I8 l9 M, e& K* t1 @( Q
- (setq ss nil)2 K! N, k. k4 _% G
- (command "redraw")+ _) L7 k. E* Z- ]6 n2 n* o
- (setq dtl (/ (/ dtl He_so2) 1)) ! p/ ^' X& }" }1 }3 J
- (setq en (car (entsel "Thay cho so : ")))
4 p8 j6 H0 P! j, C - (while (= en nil)3 B" N9 W% O' o! |$ \. l
- (setq en (car (entsel "Thay cho so : ")))6 y( ` i" }. S. W9 m }
- )
1 A! k4 s! H. A0 r - (setq elst (entget en))
3 U( Y/ l6 i! {& o0 V$ m - (setq elstold (assoc 1 elst))
5 l. U; [# t9 ~ - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
& R9 n# w: C" G - (setq elst (subst elstnew elstold elst))" h4 Z+ _9 w9 _/ l
- (entmod elst)) H/ W% \+ B; b- V
- (setq elst nil)
; a5 n+ J. O# s0 v7 {, r V' h7 K& } - (setq dtl nil)1 c, o; y8 |$ q$ Z+ m
- (command "_change" en "" "p" "c" "1" "")
( S: q5 s+ a$ S - (if old_osmode (setvar "osmode" old_osmode))
6 }7 |' o7 |! L6 N - (if old_autosnap (setvar "autosnap" old_autosnap))
/ n7 ?3 T2 l- E - )
$ B I% H& o' | - ;==============================================================================
& `0 b5 t9 c+ i. K; ] - (defun c:ss()- c# s* m$ p) i! V" ?
- (setq old_osmode (getvar "osmode")7 D3 `! D. ?5 j+ \
- old_autosnap (getvar "autosnap")- s1 L% c; z$ \: M/ s
- ) 9 x/ k4 R* ^3 d6 d+ p$ V$ w
- (setvar "cmdecho" 0): c8 R+ A& I& N$ g
- (setvar "DIMZIN" 0)
/ D" ~: F" f8 e+ i1 s; E - (setq He_so (/ 1000 Ty_le))
3 A W0 t3 u( x" H4 z1 K! K1 v - (setq He_so2 (* He_so He_so)) , ^) q3 Z' D2 A% e
- (setq dtl 0)$ F X3 m6 {4 Y7 z) D. q
- (setq ss (ssadd))
& d. c& R1 `# ^5 d+ @7 `6 k% B - (setq oslast (getvar "OSMODE"))
2 c* \: |( a6 }4 z - (command "osnap" "")' Y% E6 t0 R& g4 R f
- (print)
" d! S( E4 q) P" @& K - (print)
( B) K1 t( I/ H V' [ - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))7 v+ a4 e0 o6 W1 b3 E
- (while (/= pt1 nil)' R% u: [' p! z6 L
- (command "-boundary" pt1 "")0 N9 F: B- `+ Y( D
- (setq et (entlast))( ` j7 I2 p. m7 W/ Z: \3 ?1 E
- (ssadd et ss)2 d/ ?& x! o. h; [" M% l
- (command "area" "e" "last")
3 @4 K! M' d' R. J" K/ t. N - (setq vsize ( /(getvar "VIEWSIZE") 50 ))" y4 V) c' X/ E( F* Z
- (command "hatch" "ANSI31" vsize "0" "last" ""): m0 ?5 v+ H1 ]9 H$ E$ S+ U* Y) R( a
- (setq et (entlast))8 L6 ^% Y9 Q# U! Y
- (ssadd et ss)
+ b& _9 H' _7 p/ M/ d6 r, V - (setq dtcon (getvar "AREA"))& v1 X2 e7 Q- C
- (setq dtl (+ dtcon dtl))
% v* L( Z: `. I" j, [1 M% | - (print)
. |! b9 G% Q( A. @ - (print)$ Y L( I7 [6 \' T- Z: Q
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
3 B2 d! g! k: I/ F - )" ~. e8 x, ^% b$ U
- (command "setvar" "OSMODE" oslast)0 u$ u3 H7 [1 ]3 {
- (command "erase" ss "")
" C/ ?7 V& z' n: O1 o5 F; M - (setq ss nil)
* Z! X7 G2 G) [8 l' z1 G - (command "redraw")
7 G! f1 f; Q" O- o$ M5 _ u1 } - (setq dtl (/ (/ dtl He_so2) 1))
( @+ B; w$ k5 l* ? - (setq en (car (entsel "Thay cho so : ")))
% v! i* n# F( }+ F, H - (while (= en nil)! Q% E! }5 V7 Q+ ^8 A8 y0 K6 S- ^
- (setq en (car (entsel "Thay cho so : ")))* [" G: ^7 a, i" [- j" x
- )
, r" @' h) Y7 K; R* X3 {1 J- P - (setq elst (entget en))
2 T6 N1 r/ X$ x9 [ - (setq elstold (assoc 1 elst)) . R- [4 ~ @! s# {& x/ B: {
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
) k Y. P5 R6 H - (setq elst (subst elstnew elstold elst))
0 O2 w% P- `& o: y3 t( B6 H" T. u - (entmod elst)
3 l2 v- @. n5 `& d - (setq elst nil)
4 ~+ [$ K1 F# W' i4 D - (setq dtl nil)" C2 e7 Y4 o, K* [1 T$ F
- (command "_change" en "" "p" "c" "1" "")
' p" ^7 m9 }" ?& @! U - (if old_osmode (setvar "osmode" old_osmode))
" y1 R4 z J" t, g - (if old_autosnap (setvar "autosnap" old_autosnap))
: {. C0 M% V1 y1 U; c - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)