|
|
- (defun c:ss1()
6 i( l% w$ L# |/ N* @ - (setq old_osmode (getvar "osmode")# v# S) G7 b2 P3 t
- old_autosnap (getvar "autosnap")4 x$ T' B! l: Y2 n
- ) " d% k& g6 F, Y
- (setvar "cmdecho" 0); I/ p5 B, v8 x8 ]/ r) q6 N+ T
- (setvar "DIMZIN" 0)( B% E' u; F; H+ `9 T' w
- (if (= Ty_le nil)& z, p) ^- J* M( K h
- (progn( N S y7 h6 l, t1 i
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))3 X2 U" c! ^% G) I9 S
- (if (= Ty_le nil)(setq Ty_le 1000.00))
2 A4 _; s9 i: `5 O5 Z7 J: b( _7 ^) K - )1 f7 ?; ~5 d" [ r
- (progn) l0 k5 I# l) k+ l
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))# {9 E$ P# T, u% U1 G1 J1 m* M
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K")); _/ ?/ F W0 D' a# U- I$ U
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))3 y+ o- E. e1 ^" u
- (progn
; d) ]) L# t" A1 ]) } - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))6 c0 r4 x% e8 p/ J5 i( `
- )* O6 n$ n: j5 _, T3 S: L
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
3 R: C6 m/ l% J; n& A - (progn
$ Y5 R( f; Z8 j" a+ U* H - (setq Ty_le (getreal "\nnhap ti le <1000>:"))
+ f! Z1 N& {) Z - (if (= Ty_le nil)(setq Ty_le 1000.00))1 W0 w, Z* W- z3 I9 r' h
- )0 J4 C. Q0 T0 e! b8 W7 ?
- ) ?. z- h- [" @+ B8 @" j5 q' I
- )/ K0 [( W8 |% }# g6 M" P* D5 c
- )
- B+ Z$ G. p8 m% V - )7 _7 t# l2 W$ p, `2 `% |* G
- (if (= So_Le nil)) M" U6 b$ h- K& w% s2 Y; ?
- (progn
; |4 K n$ y# H0 U. r* r4 W - (setq So_Le (getint "\nnhap so le dien tich <2>:"))3 Q' R b4 U( T/ N5 }$ ]
- (if (= So_Le nil)(setq So_Le 2))4 J4 |$ s; T2 M& d* E
- )6 l/ ]$ i) A+ T0 f
- (progn# x+ r# |8 c$ h/ K' D6 \
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))/ k% g- }$ N, E$ k
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
( [2 u1 f( T4 R. \/ Z - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))% P; V" p. i2 v5 B" Q' M
- (progn9 D) {5 n0 b1 Y h" C
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
" u3 U- _8 `/ ]( f - )
2 O2 P2 w" b( n( h/ s* [ - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))& H( e: D s8 i; s& U5 `6 [
- (progn, i' ]1 k* \& `( U1 Q, J
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))
. U; ?) x! w* u/ m( c: O2 ?0 Z - (if (= So_Le nil)(setq So_Le 2))
+ @' X# B' x+ V( ^& K - ). {& E6 {8 p" s
- ) 6 U+ E& s7 P9 d3 L. ?% ~
- )$ L) t9 s; e8 h9 V0 B0 i
- )5 L, e# c" \/ M5 D5 P: v
- ): K* l8 c$ Q% u2 O) p
- (setq He_so (/ 1000 Ty_le))6 W7 J4 b( s g
- (setq He_so2 (* He_so He_so)) ; _- ?% ]3 V4 }9 a
- (setq dtl 0)4 t9 w2 l% V, p5 [3 w/ F) B
- (setq ss (ssadd))
; j3 b. Z+ N u - (setq oslast (getvar "OSMODE")) M' U- a/ \# U7 p
- (command "osnap" "")
, N9 j5 G/ o& u+ ^6 S: z- s+ Y* M - (print)
4 e( k% f: |$ @- b, J' w - (print)
2 a( S1 Y, k, _ f4 D B - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
4 v1 {+ F( U2 z7 g( p' K+ z; E - (while (/= pt1 nil) ^( M# L+ `* S9 ~
- (command "-boundary" pt1 "")
3 r' i2 n( m# [ - (setq et (entlast))
2 y/ E! N/ Q* E: ` - (ssadd et ss)
+ {7 Y. w: r1 r9 u) W: `4 Y - (command "area" "e" "last")' h$ X5 t( D# ^
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))5 N9 j& X( d( h
- (command "hatch" "ANSI31" vsize "0" "last" "")
/ L: D, m4 l) H! w0 ` - (setq et (entlast))+ o7 p5 x5 O) {7 H- e( @
- (ssadd et ss)
* y/ g$ L; Y: ^2 y" \" c. z, h$ a8 N - (setq dtcon (getvar "AREA"))- ~* F! a* N! Y7 U. Y
- (setq dtl (+ dtcon dtl))
1 X# f- n/ C( B2 L9 O - (print)
0 S& F+ N9 L5 F+ H4 z2 x8 u - (print)( Z" ]9 }" i7 Y7 J+ \- U5 g
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
( y& R' H# A2 s2 r0 g - )8 ~9 w! `- g+ M- q
- (command "setvar" "OSMODE" oslast)
9 d. }3 X1 V* p) n5 t. ~9 O - (command "erase" ss ""). z" B6 {1 @, X0 D& `
- (setq ss nil)6 K: H0 b' z, d& `( E% i, G$ f' I& L! ^: c
- (command "redraw")
' W, i o& C; B3 m( [ n - (setq dtl (/ (/ dtl He_so2) 1)) ' Z! J4 \, A$ l2 s1 x
- (setq en (car (entsel "Thay cho so : ")))
8 I9 T# p X5 r8 } - (while (= en nil)$ J8 \2 n# c8 \
- (setq en (car (entsel "Thay cho so : ")))
' w- T, d+ x: N8 U5 U - )0 ~: `) _3 x2 s" F. Y
- (setq elst (entget en))$ w/ L7 f L2 \; B' N
- (setq elstold (assoc 1 elst))
. B8 C( ^& {+ q3 h- x) ? - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
- d; c2 o& _! w! g - (setq elst (subst elstnew elstold elst))
* ^: m8 Y0 y/ N- |6 l) c) | - (entmod elst)- ]$ s9 R- H& J% f
- (setq elst nil)% P9 `, c! N( @4 A% v7 @
- (setq dtl nil)9 D: e/ e9 z/ u% X% Z2 A
- (command "_change" en "" "p" "c" "1" ""). V8 |6 \- }1 p ~/ L2 L e& U5 c
- (if old_osmode (setvar "osmode" old_osmode))
8 D. Q' h9 l1 T9 p( H% j( } - (if old_autosnap (setvar "autosnap" old_autosnap))3 J3 g1 N9 Y! {6 v7 q
- )9 c( z! ]3 E) A( O
- ;==============================================================================
* W- b) T8 R2 k7 z2 b& @% X - (defun c:ss()
! a# Q( x$ Y1 m, |6 L* f! ^7 U* Q - (setq old_osmode (getvar "osmode")4 z# y7 ?- ^! D/ Q# J2 Y/ q
- old_autosnap (getvar "autosnap")( _* Z0 o4 }2 S. j
- )
( _# Y. C- j3 p* }; d( O - (setvar "cmdecho" 0)
' [8 _, H. _! P7 i: [* Q - (setvar "DIMZIN" 0)! U; g0 o8 E$ C- b
- (setq He_so (/ 1000 Ty_le))% M! e$ r; X, c
- (setq He_so2 (* He_so He_so))
, [. U' n% f3 K' j - (setq dtl 0)9 g$ C- g- {' O3 b
- (setq ss (ssadd)); d/ A/ U" C+ e: w3 k; f
- (setq oslast (getvar "OSMODE"))
! S+ F# a" M; p* ~ - (command "osnap" "")
9 {3 x. } ]+ T& ^2 E' N! G - (print)
( V1 C2 L) O% @; x2 p3 h6 U - (print)9 e. q; l$ h; q" U% n0 D
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
[ ^) V# b5 Q - (while (/= pt1 nil)
$ q/ [7 t& y4 a' v: }& [7 { - (command "-boundary" pt1 ""), [6 l7 W9 l1 Q5 G6 s9 N
- (setq et (entlast))
. q% ?5 U* I2 a+ r8 a$ [ - (ssadd et ss)- {+ r" Z( I5 Y
- (command "area" "e" "last")8 w# w0 w) j4 h: k& x
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
& h( c, Z1 y3 {* u1 g - (command "hatch" "ANSI31" vsize "0" "last" "")
/ }1 l% ?& W5 z) i - (setq et (entlast))' h- e% Y7 V! M% X3 }5 W
- (ssadd et ss); l! p3 r2 C% ?" }1 O* W, y6 S
- (setq dtcon (getvar "AREA"))( m+ r6 I. `! D! G2 l% F! H, c
- (setq dtl (+ dtcon dtl))& ~3 Q- m7 s; g' w$ k3 t
- (print)
; r5 b2 R4 t' F" l, o2 e, Q - (print)
2 o y( e! a' t& `) E - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
& O5 E1 k/ t) B' i - )# G, g7 ?' n+ M" Z9 f
- (command "setvar" "OSMODE" oslast)+ }( d! J; C) V: Y* r( h/ O
- (command "erase" ss "")
! N1 N4 G7 `0 H' M - (setq ss nil)
$ n: y# f, ?, K/ w# x2 i - (command "redraw")
0 w/ Z O9 m& Z9 u% g! R$ B, I - (setq dtl (/ (/ dtl He_so2) 1)) & o" X; R$ w0 n* J0 R. l4 k( a
- (setq en (car (entsel "Thay cho so : ")))
4 S3 e! @. D" X8 y5 E8 M - (while (= en nil)
+ u; n7 A o& q! }3 e) R - (setq en (car (entsel "Thay cho so : ")))0 B2 }( N; D! q& ]
- )9 F9 f" L8 R0 k5 v
- (setq elst (entget en))
0 i; |' K' |7 ]2 Y& d; B- V' R - (setq elstold (assoc 1 elst))
3 w2 k6 Q( s) ~; g6 K - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
: p& n: |6 @' s- ~1 x) L* k - (setq elst (subst elstnew elstold elst))( S+ f0 T$ P) Y, Y u6 h$ b
- (entmod elst)# o4 b# n6 _1 R3 C
- (setq elst nil)8 H, \( g) m$ l$ k. }& q
- (setq dtl nil)
$ q2 c0 f' e8 u0 `4 d* X" f5 v - (command "_change" en "" "p" "c" "1" "")
) h( Q% z. J; G9 S# D; H! y* f - (if old_osmode (setvar "osmode" old_osmode))
6 V- V0 \4 R( P* {! D - (if old_autosnap (setvar "autosnap" old_autosnap))
+ j* L; b B. e- z$ F - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)