|
|
- (defun c:ss1()
9 r, f: k G; b0 P; a* q3 k - (setq old_osmode (getvar "osmode")- s/ q* c" G6 B; _
- old_autosnap (getvar "autosnap")0 {0 t [1 e; a
- ) , O& D9 c6 R' T* V0 r' C" l
- (setvar "cmdecho" 0)7 V, T, f4 ^) Y
- (setvar "DIMZIN" 0)
' Q, Y# f, }7 y! p6 h7 B - (if (= Ty_le nil)0 `- @# j: i$ f- w' r
- (progn' x7 h! l! V2 _3 J4 k
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))+ R2 G" i5 W( k! B) o) ` o
- (if (= Ty_le nil)(setq Ty_le 1000.00)): k( K0 u# r9 E9 j% h* H
- )
}% O8 ^% J0 W6 J% U; x - (progn3 C G6 O! `, E, }/ u2 ~
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))& m0 v" ?8 I8 M" a4 m: w
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))" ~& D5 t. m6 U1 @6 J: h
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))0 o# l+ s: j* R( m' O1 p" w
- (progn$ C; b% [; _5 e; f2 |, _/ c: D# {
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
+ g0 J/ e9 @4 [8 m) \- t* c4 j0 d% }9 X - )# d# Q! ]( ?4 d9 w- K& Y% e5 j
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C")): R2 f/ X8 e2 g/ M
- (progn q2 i, V, \) d9 ^( F% Q7 `: x
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))
0 ^& U: G: B$ f" Q3 p" ^: \+ H - (if (= Ty_le nil)(setq Ty_le 1000.00))
# x% _. W$ I8 x: S& }7 i9 m - ), Z0 K3 g$ x8 g# I9 a$ C2 p
- )
3 p4 n# Z* T: J) s) V m1 z/ m L - )( H$ b$ r& I' K" Q4 t/ k6 E- J: I) I
- )
) n0 p" R7 W/ T! r# f - )
: s1 M4 Q7 s# F9 l& V' O" }# w - (if (= So_Le nil)
|, S3 `) X2 \4 @2 U+ q! S - (progn
+ g6 `+ G, Q' z+ ` - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
5 d6 e) L% E8 z2 ]0 J( a - (if (= So_Le nil)(setq So_Le 2))' Q9 |7 Y( o1 N! L
- )2 \8 T) i4 x V5 S
- (progn0 |$ J3 L0 p. e, p0 v
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))$ v6 f! R# l4 d+ j; C- y
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
1 Q; d$ G9 l) l4 r3 i* z - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
4 j1 J& O6 @9 [3 h: a1 k& i - (progn/ {2 o" i8 i" R3 V _
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))1 r7 u: |1 I% q1 b2 G7 K
- )- B( Q& q0 U1 [* T- n( @5 z
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))# H3 S# i" w1 t8 [
- (progn
8 N/ P" S1 i5 [( N: @4 t - (setq So_Le (getint "\nnhap so le dien tich <2>:"))4 T, x' n$ _1 i" t
- (if (= So_Le nil)(setq So_Le 2)) B1 ^7 o9 \9 e. E" M* |8 h9 y
- ) z# s( X# L( O' O g
- )
% a# ~; {1 W0 |7 S w& u - )
8 B: Y8 X1 d) y$ c1 K. w. @ - )* I5 s, u/ o! H% o( ?
- )5 g! e4 D, f$ u9 Q* P4 \: W& X
- (setq He_so (/ 1000 Ty_le))
2 t1 N% a+ u- Q; k8 G( E0 h7 \ - (setq He_so2 (* He_so He_so)) 9 o; G; A) m3 j* ]9 F! I+ X ~
- (setq dtl 0)! {" |/ }! n% X! V9 l2 @7 W
- (setq ss (ssadd))9 x, c1 b) ]/ @ c7 ~' R8 H+ h5 _
- (setq oslast (getvar "OSMODE"))! P. _" ~5 i8 \: A0 }' k+ c
- (command "osnap" "")+ L* x7 h) g" d+ |! b7 k
- (print)
2 r# ?7 E" C8 x/ ^( M( f4 o: a - (print)2 [0 V" k9 W! C% \
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))$ d+ w0 Z. h/ f8 p& R
- (while (/= pt1 nil)7 t/ X; y0 K1 E! t2 F0 d3 f% i
- (command "-boundary" pt1 "")+ T- k* N, e9 b
- (setq et (entlast))1 b& e: d4 e2 h
- (ssadd et ss)* E& }- n0 T3 b9 `* y
- (command "area" "e" "last")4 H% c9 q h- H) u" D3 P
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))( R: ~5 R. L1 l" \6 E
- (command "hatch" "ANSI31" vsize "0" "last" "")
$ O! @+ ~) \ J( r( Q6 t# g% R7 a - (setq et (entlast))& D% P* N7 m- n, \3 z$ S8 }! a% h
- (ssadd et ss)& _- R* z h. o b" C& I( D) h* p
- (setq dtcon (getvar "AREA"))
9 x8 D. t: e# u/ Z: s - (setq dtl (+ dtcon dtl)) f' t5 c% W% ^' n S
- (print)6 \9 U# e6 ?2 K3 R$ i
- (print)
+ m# S' @- N/ h1 x" I4 | - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
& w& t* ~" }* x# W( s3 X - )1 [* A( ?4 O& V& Z- b7 H, a+ @ f
- (command "setvar" "OSMODE" oslast)5 \7 P! h4 U, F2 y$ W
- (command "erase" ss "")& e1 O+ i: D2 W- L6 @+ }' o
- (setq ss nil)
* @# X0 ?6 d" ~0 g) N! a, { - (command "redraw")
/ l$ y) p8 y6 ~3 ` - (setq dtl (/ (/ dtl He_so2) 1)) 1 I9 v$ n" F. [+ G; n3 o
- (setq en (car (entsel "Thay cho so : ")))
3 q$ \$ Y, r+ a* q: p6 Q/ {0 B8 G; W - (while (= en nil)" ^* g8 @7 J6 r: Y5 X' |
- (setq en (car (entsel "Thay cho so : ")))
9 ~3 K9 d2 p0 k+ X7 p5 _9 G- M - )- V8 X2 k; X; w5 a9 c: @* @
- (setq elst (entget en))
( G/ d1 W+ d9 ]; Z" _9 I - (setq elstold (assoc 1 elst))
6 x% L( ~: O7 Q( z$ E5 P - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))7 F F/ t/ O3 Y
- (setq elst (subst elstnew elstold elst))
4 y/ x: h5 Z4 `4 \# } - (entmod elst)
$ T m' ~6 [ S6 S: u# R - (setq elst nil)' `% H- d h1 M B; I6 h
- (setq dtl nil)
8 D0 D) K( W- G7 W - (command "_change" en "" "p" "c" "1" "")" z- ~0 ?8 V' K6 u
- (if old_osmode (setvar "osmode" old_osmode))4 C8 F. J" ]5 j) c" Y
- (if old_autosnap (setvar "autosnap" old_autosnap))
+ s4 K: S7 K! Z; O - )2 v0 d: P7 {( m. f: l% h: j
- ;==============================================================================
8 ^- U0 |/ i' }. [: l - (defun c:ss()
8 c) J$ ^ C! W0 A, V8 R0 C. i - (setq old_osmode (getvar "osmode")
5 U9 V& ?9 x/ e - old_autosnap (getvar "autosnap")2 F% e* a5 q5 W$ A
- )
' X) m3 c7 o/ O& O! \) B" Q7 B - (setvar "cmdecho" 0)/ I- E8 ]5 w4 \ ]
- (setvar "DIMZIN" 0)8 q- y: b8 X" f/ b% F
- (setq He_so (/ 1000 Ty_le))
/ r- m- ]2 B4 w3 J - (setq He_so2 (* He_so He_so)) 3 s2 R L7 \. `; Z% a1 S6 Q" n
- (setq dtl 0)
3 A- ]4 U! o6 c" `0 r - (setq ss (ssadd))
# B) X6 N* u$ F- ^6 r$ o - (setq oslast (getvar "OSMODE"))
0 {+ }* I( N& p: A) I; v - (command "osnap" ""). N8 Y1 o/ o& O/ e7 U( q
- (print)
R7 e" T+ L: ]9 h5 t. V - (print)
6 X6 l- _ m" {. ] - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
( N r* ^& G& @1 g9 L6 m: k4 d( Z - (while (/= pt1 nil)# C, [7 z+ G$ b0 w
- (command "-boundary" pt1 "")9 T6 F0 J5 {. K4 ~0 F
- (setq et (entlast))
: j9 Y* u' n* a' s - (ssadd et ss)
- `/ c$ |2 n( N5 V - (command "area" "e" "last")+ u7 t1 z# r/ C
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
! }% l0 ^; y0 Y3 ~ - (command "hatch" "ANSI31" vsize "0" "last" "")+ k5 d% F% D, B) h( a$ p
- (setq et (entlast))
0 n5 B3 c0 y- H( _/ T [8 Y - (ssadd et ss)
7 ^/ C; g- l; C+ V" r/ g0 r - (setq dtcon (getvar "AREA"))8 i! ^4 q3 h5 X: h8 ^
- (setq dtl (+ dtcon dtl))) l, b( G: P/ c* f( e5 U
- (print)
3 W7 r5 c) ?0 X& k/ O5 O e - (print)
" |0 P; |+ d; q - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
! L. b8 y. {* H% L5 Q - )+ e! `( [% }! W
- (command "setvar" "OSMODE" oslast)4 b2 ?2 E2 S, h5 X7 y0 ]* \, |3 m
- (command "erase" ss "")/ T: r$ J9 o2 F, Y% ?
- (setq ss nil)+ [8 b& k! Q, y) C+ Q" A, Z8 ?
- (command "redraw")
8 P* I( I( ?7 s: p7 f3 [ - (setq dtl (/ (/ dtl He_so2) 1)) 2 R9 }4 h8 y/ I5 V
- (setq en (car (entsel "Thay cho so : ")))
/ Q# J9 e) h8 b6 W5 T* R- @: ]# Q - (while (= en nil)
* {. b8 f; y. T. x- b" _0 ^% V - (setq en (car (entsel "Thay cho so : ")))
8 J# O! R* z9 N: g2 _. u - )7 T+ v. s; v9 m: Y9 q% g
- (setq elst (entget en)); I/ R& C8 V7 B" v: ~ `
- (setq elstold (assoc 1 elst)) 1 |5 ?4 r$ Z% R6 S* y
- (setq elstnew (cons 1 (rtos dtl 2 So_Le))) `+ v2 {% I! Q: R! T& L) `- x3 Z! U
- (setq elst (subst elstnew elstold elst))
2 p- K/ K' u4 q* e- S! ^9 {" G1 Q+ n - (entmod elst)' x- s2 c- l/ D; a0 V0 P& M) r
- (setq elst nil)
$ z! ~+ v0 I: Q! P9 y - (setq dtl nil)
1 M6 j4 g* s3 |6 w. ?' Y) l+ _ - (command "_change" en "" "p" "c" "1" "")1 q2 m0 [5 Y& a% k
- (if old_osmode (setvar "osmode" old_osmode))
9 T' c; W* F6 A: L6 Q0 n) f7 Z - (if old_autosnap (setvar "autosnap" old_autosnap))
1 g1 y E# ~, y5 i) v. {. M - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)