|
|
- (defun c:ss1()
- ~* p4 z4 ~% L7 ]7 G6 f# E4 j - (setq old_osmode (getvar "osmode")4 p' U( ]+ u( O$ d: F2 N( C
- old_autosnap (getvar "autosnap")
6 u$ [5 K q9 \+ d - ) + y% c2 n/ t5 J4 C
- (setvar "cmdecho" 0)! r) S" l& H! ]' ^
- (setvar "DIMZIN" 0)
$ ]7 m1 f) o0 x) ]3 N# V - (if (= Ty_le nil)
: F. `" t. a+ t2 q2 K - (progn
2 }: m; S5 P! c - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))
( [! Q" ~; L# r% z% m+ v; _8 z - (if (= Ty_le nil)(setq Ty_le 1000.00))' u+ h. X, a. _8 e1 a& p* J, S% c$ x
- )4 `+ g% k$ x3 x$ l) ^ j
- (progn; @: T1 m$ ?2 C) { K
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
9 V; k. y# _# n- |6 F; x4 [ - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
- n7 w ?* e) V3 u - (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K")). B2 D7 U) x- [* o/ j; L
- (progn
& C; F k" W0 Q0 ?/ D l0 D - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
' N' E$ K7 i, R7 v/ G - ); [: u8 h1 l$ @3 U5 W" b: A( P
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))' I3 Q s5 g1 A3 q
- (progn8 I! H q, \4 {( X) X
- (setq Ty_le (getreal "\nnhap ti le <1000>:")); c" o9 ?% w5 W! f2 z
- (if (= Ty_le nil)(setq Ty_le 1000.00))' w: X% h* u, _7 _
- )) f# B0 H8 T, e1 o0 V7 x/ W* J, f
- )
$ J( }7 x0 \4 ]5 y/ B - )
) d, Y7 s# H. x - ) Q3 T1 P* R# l% k$ O5 ~+ {) s; V* b& ?
- )" s" v9 G! D5 k+ A- b# B$ d
- (if (= So_Le nil)
4 a1 E' q, J' a9 U* @# j) z& | - (progn5 c' X% U( r1 \
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))9 v9 l7 X& C' u; ^* ?5 h
- (if (= So_Le nil)(setq So_Le 2))+ E1 b! w' v3 m- x, v
- )0 z4 Y3 g- `" Y. i
- (progn2 I- c; ]& H+ I1 E
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
# Q7 n0 S e4 g; ^# j" z) Y - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))4 B6 ~# G% e) M+ z
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K")): z& L; [( J; @# u. r2 [1 N
- (progn! T0 l: f; u; b7 f) P
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))9 C! {( P- |" S# y+ ^: x9 Q+ ~
- )% A2 D; _4 B7 R0 b( k
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))4 b) S) ]! z6 W* e0 o( m# Q
- (progn
3 O9 U7 a7 O) | - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
) ^1 a8 n. T. f/ ` - (if (= So_Le nil)(setq So_Le 2)), R6 ], T* f* J3 a3 I+ s
- )$ a' k7 z+ _; [7 y- T
- )
; ]; p( e6 d% Z( f4 v; w - )- e* G, U7 ~7 }! c
- )0 f5 G I* O7 p8 f
- )
; U; v8 G* y2 L; ^: l+ O: R - (setq He_so (/ 1000 Ty_le))
: X' E6 E5 t+ i% { - (setq He_so2 (* He_so He_so))
% V, u: Q) h8 [8 I$ f8 ~ W0 t - (setq dtl 0)
; K. _- U* i. y) ?# R2 q - (setq ss (ssadd))
) z1 E2 b2 W$ q$ d7 K6 V+ ` - (setq oslast (getvar "OSMODE"))
3 Z7 N; R$ Z7 ? E: M: J# w - (command "osnap" "")
- X$ d) |9 S; ~! l& ^% G - (print), G6 k+ h% c' p8 k# D4 a4 {6 D
- (print)
+ m& g: y" ?# R: Q- z! e - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))1 u$ K9 x& M$ z. H8 n2 S+ w' i
- (while (/= pt1 nil)' J) z6 C* b1 y# x- ~- c
- (command "-boundary" pt1 "")
+ u$ q2 } t' v; R3 M: O" {) s - (setq et (entlast))* g+ _1 W" ?; v; n# r' ?
- (ssadd et ss)+ ~; p; e4 Z; m
- (command "area" "e" "last")
& @) K3 h7 L( g4 h# N, E - (setq vsize ( /(getvar "VIEWSIZE") 50 ))
9 @* b+ q e7 b( x/ c# { E" h - (command "hatch" "ANSI31" vsize "0" "last" "")
, J( I4 i; N" |& K5 U - (setq et (entlast)). d* e' r( i0 n4 { s% e
- (ssadd et ss)
" e) R" E g- J - (setq dtcon (getvar "AREA"))
5 _' f& f" ?1 ]* Q) R, t# h% P7 u4 ] - (setq dtl (+ dtcon dtl))) C( f% V0 K9 u4 l7 p
- (print)- P' |; J9 s* {. W4 V
- (print)1 y( s3 Q% y: ~6 X" m! x( b# }
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))8 P0 U# Z0 |$ f, s; m# g9 ]
- )# b- }$ U4 Z s1 U- Z
- (command "setvar" "OSMODE" oslast)" L& a( k9 M& f, M5 n) a& z
- (command "erase" ss "")
; C) t& a8 y# ~. _; Z. f - (setq ss nil)9 J% s& ?/ u* D; N3 y6 d
- (command "redraw")- Z) ~! I( y0 r5 {" t: t
- (setq dtl (/ (/ dtl He_so2) 1))
8 }2 U- }8 B6 }, I( d - (setq en (car (entsel "Thay cho so : ")))
6 d6 W2 H% @' @, D- ] - (while (= en nil)# ?1 l" S( c0 U5 \: I; q6 T; w% J
- (setq en (car (entsel "Thay cho so : ")))
& ]$ ]8 Q, h; M5 e4 I3 K) e6 O - )& z+ s- d/ R; d0 y' k; U
- (setq elst (entget en))
. \3 O0 p; H- x6 S+ E - (setq elstold (assoc 1 elst))
( {7 K' {) t# \9 \7 M& [. L; u) q4 k - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))% L+ @9 f9 f9 a
- (setq elst (subst elstnew elstold elst))
% }- R. L% _, p* V' P0 N0 a# M - (entmod elst)6 [1 E" ^- f( [ E& h
- (setq elst nil)" j( U2 k9 A; R* Z, z# z( E
- (setq dtl nil)
; @! @" n' Q' O, k% E6 a* V - (command "_change" en "" "p" "c" "1" "")+ f1 w' U( R# O2 g M
- (if old_osmode (setvar "osmode" old_osmode))5 ~5 l: u: n" }1 k( w- H3 I
- (if old_autosnap (setvar "autosnap" old_autosnap))5 S1 P( R4 ^, q1 c* E6 b* Y& P0 i
- ), V; [* j) L, o
- ;==============================================================================
- w& f3 r& y6 v- y - (defun c:ss()( F' i- {$ m/ ~( w7 S) u* b1 K6 Z2 {
- (setq old_osmode (getvar "osmode"); v h4 E/ }- S6 ?
- old_autosnap (getvar "autosnap"). U8 {# F3 j( g' _6 Y- K% A
- ) + I5 [' x1 C o2 A: x$ P
- (setvar "cmdecho" 0)+ X& ]% K: g* y( ]
- (setvar "DIMZIN" 0)( j9 m+ ^$ o' u9 l% o
- (setq He_so (/ 1000 Ty_le))( ~+ v) P* G9 u F- ], l
- (setq He_so2 (* He_so He_so))
7 N7 _: V" k; B( T* z& x - (setq dtl 0)
7 N4 }3 A& p* ~3 O+ q4 A - (setq ss (ssadd))
' f4 R9 ]; l6 x0 a! F/ J _1 E - (setq oslast (getvar "OSMODE"))
$ j2 S+ M$ `" T4 g; L% r) ] - (command "osnap" "")
3 {( L# D, j) I8 ~: W5 B$ b+ @ - (print)
" ^2 l! c4 U8 `* O - (print)
6 y: F& G: L& ^8 j8 W3 X( z! W. g - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))* ?8 k* E. o8 J2 ?
- (while (/= pt1 nil) Z: D J6 E) I+ o5 i3 I
- (command "-boundary" pt1 "")
) `7 t/ h; ~4 ?, }& A - (setq et (entlast))4 M$ ~& y; t3 W& `6 v- A
- (ssadd et ss)
# _* \( G) ?( Y P8 T - (command "area" "e" "last")( _2 z8 [8 Q7 O
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))5 Y' Q/ m! H$ T' v" q4 M1 f7 L
- (command "hatch" "ANSI31" vsize "0" "last" "")1 f; \2 R, C* {; y; J- F6 F+ U
- (setq et (entlast))
/ o8 m9 W4 p2 d5 E) W - (ssadd et ss)
& Y# N- g+ S2 x5 |( n4 l% i - (setq dtcon (getvar "AREA"))
. {, T: E- H$ K5 w9 w/ F$ w7 _ - (setq dtl (+ dtcon dtl))
, ~! h4 v6 [* q3 S8 d- g t' Y8 ? - (print)' `7 `5 w8 M6 ^7 l
- (print)$ ?4 C9 ?' _5 T! [& ]" t
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
2 N# G, W1 R/ n( d - )1 a# O0 T: U o" ?; h. l& C9 o8 q
- (command "setvar" "OSMODE" oslast)2 Z/ j# z' i# q0 B/ |
- (command "erase" ss "")
; } o6 Y l1 t e/ e/ T - (setq ss nil)
& s6 g% T! f+ |7 ]) ` - (command "redraw")$ v. \# F$ u& Q9 b8 Z, _3 `% v
- (setq dtl (/ (/ dtl He_so2) 1)) ) L! k# _& _( s2 N
- (setq en (car (entsel "Thay cho so : ")))
( x4 ^5 B( x5 u - (while (= en nil)
9 e7 ^1 n9 J& m) W" g$ c2 } - (setq en (car (entsel "Thay cho so : ")))1 Y( k, G7 R) z: U
- )
1 f+ N! h0 N# h/ m: ^ - (setq elst (entget en))" a# C) R. u* L6 Q0 J7 E& Y
- (setq elstold (assoc 1 elst)) 6 c5 k4 U5 `" O) J3 g+ ^9 e, v8 n) O
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
, u7 t; V: n! v0 r8 a/ H; T - (setq elst (subst elstnew elstold elst))
) Y; X( Y" ~; D5 B* w6 H - (entmod elst). m' p; b. h. Y. m
- (setq elst nil)
" R) G4 Q0 q" m+ w" @* N" C - (setq dtl nil)
" p6 d" @( d2 H% R2 t/ ] - (command "_change" en "" "p" "c" "1" "")
" n! M' @% E* E% z% s; x- P/ U7 q; t - (if old_osmode (setvar "osmode" old_osmode))6 g) C( b, A$ i( { T9 D- X
- (if old_autosnap (setvar "autosnap" old_autosnap))
. ?. ]' c+ z* M. {% i - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)