|
|
- (defun c:ss1()
3 A; O! R. ?; H+ p, O/ } - (setq old_osmode (getvar "osmode")
, f) P5 {( J3 i& F0 c: P - old_autosnap (getvar "autosnap")
" Q) L2 x! E5 F! z+ c" [2 _ - ) ' c5 f. v+ G+ ]! W5 ~! P1 o0 a
- (setvar "cmdecho" 0)
, F$ s, k9 V- n3 R; B& y - (setvar "DIMZIN" 0)
7 ^* t3 Y7 ~( `5 a- `- m2 w - (if (= Ty_le nil)
" @8 A1 k6 n7 G# k F' I6 } - (progn6 g" c1 R3 z+ r, ?1 k
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))
$ M, F+ e4 M5 ]2 \ - (if (= Ty_le nil)(setq Ty_le 1000.00))
j& I/ {* F2 n4 [6 u- n! V# J - )
) C9 ~8 {9 g& B8 Z2 B9 d1 P7 g# a - (progn1 r- y6 Z E, R" ?; C' ?
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
2 n5 {# X( o a2 A - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
3 ~# v6 P) k/ u' u9 i D+ w - (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K")). x& ?: k* H, K0 B- \0 _
- (progn! q- w# m8 \% M0 W. X& t
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
. \' g# I& m1 S; R - )
- M; a) y/ y' F - (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C")): _1 w- N% l+ f8 U% T
- (progn2 [6 w% s; z! G' `
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))
3 ? b7 i0 {7 f, @% W - (if (= Ty_le nil)(setq Ty_le 1000.00))% f* n, r+ I, P/ ~( G# _4 D
- )
. M( {) Z% _4 T: \ s7 E4 P ~" ]7 U& B - ) ; v$ L$ g3 w% E! f
- )
/ z5 a1 {% z8 x1 o/ z - )
, X5 R$ W# S$ Y, j: N9 K - )0 H z9 z! X; {! G8 x0 b& B+ U7 W, ^
- (if (= So_Le nil)
# `8 n: F# F0 Q! I! j7 a7 n* o, w - (progn
3 p" K( W" {3 T5 R! C* k/ u' L - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
2 E3 M9 f# k7 Y3 l& j+ h5 r& | - (if (= So_Le nil)(setq So_Le 2))
" M. v5 ?: {9 `! [ - )) [* r) Y' q: _* d' s& n- g
- (progn7 l+ K8 M0 V% J( q, d9 z
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
! H/ v0 z0 M( D/ z5 A - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))3 T4 E) x H- I+ L0 _* y
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))7 Q4 Y% U/ F/ K/ ?9 z7 J
- (progn0 j7 h- A' y5 s
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))) m+ l; G/ L) u, i' A: ^+ @
- ); O( O8 C( b+ w; v
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))- u- k* g+ _$ l. o5 D( @$ f+ S
- (progn* E! v+ |7 o) @0 ?# c3 F3 B+ M
- (setq So_Le (getint "\nnhap so le dien tich <2>:")): T7 g# r/ L9 l, O& I; w+ O/ d b3 B
- (if (= So_Le nil)(setq So_Le 2))3 S2 D7 F- r6 k3 |9 }7 u! o. Y9 o
- )
! P& N2 t4 \4 Q3 g5 D7 o6 y - ) 5 @- n7 }* e) m; C$ _% R2 ~
- )
* u) S! d1 Q' v8 z6 X0 F9 J - )+ o% D. N$ w% C& J$ _3 W: I
- )
% V4 t; @6 K) n3 V - (setq He_so (/ 1000 Ty_le))7 J6 L5 i( ?0 d0 C8 X4 ~, e
- (setq He_so2 (* He_so He_so))
5 f) R) H1 ]! a* i7 q s$ {' W, z - (setq dtl 0)0 g0 b B1 l/ c S; W
- (setq ss (ssadd))
2 q0 n# ^ i1 G0 w2 q7 I9 P* j - (setq oslast (getvar "OSMODE"))" O/ M. k) d; ~# E
- (command "osnap" "")& i8 x! h2 ?. K: J
- (print)
8 E! r- x! g2 u; f) ]" I6 s! z - (print)
) I6 F! z! [- p& g0 @ - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
- G: D, ~8 ~! b [ - (while (/= pt1 nil)
W. L6 L2 p5 E, t0 l5 d - (command "-boundary" pt1 "")
' M( z/ [; e. h' [: j - (setq et (entlast))0 N. u `* i2 T, C" \3 G( Q; N: S
- (ssadd et ss)
8 J0 R0 k7 e, ~% J* H9 L - (command "area" "e" "last")5 [) ~5 O3 Z# q
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))! C+ S! J6 ?1 S. Q0 r+ j( t3 B3 r
- (command "hatch" "ANSI31" vsize "0" "last" "")
! m8 ^- y v3 k3 e" b3 r$ ]1 Q - (setq et (entlast))
! }* Y: j$ G2 H" N - (ssadd et ss)0 e: J- @0 O, f0 o+ q5 N! t% F& A4 c
- (setq dtcon (getvar "AREA"))
# X# O- `2 N) f) D+ P - (setq dtl (+ dtcon dtl))
$ |* h& Q0 p7 t; l; t. e# ?+ n' F I8 p - (print). k4 g& p" i3 [
- (print)
1 Z6 X9 z" I5 {1 ?1 g# C - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
$ R+ f Q# s2 ^' a9 t - )% ~( _$ j) n$ C
- (command "setvar" "OSMODE" oslast)
, l0 [, M4 c$ Z3 m" ` - (command "erase" ss "")
% ?& z9 _8 O; u8 G9 s$ F - (setq ss nil)4 N/ k( m' j- {/ `/ K5 p: x
- (command "redraw"), j. e/ Q) D$ i+ {4 R( ?
- (setq dtl (/ (/ dtl He_so2) 1))
$ L1 ]9 B/ W* z0 b- `" t - (setq en (car (entsel "Thay cho so : ")))# O3 {5 J$ Y7 V4 @* P
- (while (= en nil)
( Y8 P: p! [9 U. e" ] - (setq en (car (entsel "Thay cho so : ")))
" G7 E+ O0 W2 e3 D8 n - )
- n" b, R# V4 A4 \* Q$ w - (setq elst (entget en))
7 ]" U8 [. p3 Z3 p3 w/ M; H - (setq elstold (assoc 1 elst))
) R& o2 H, g# V* j) u% i - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
! b4 Y; g. Z* H- o8 W8 J - (setq elst (subst elstnew elstold elst))
+ Y. u& i: v5 [5 w: ~" I* h& A8 _' L - (entmod elst)
5 O# y9 M5 L8 P7 {1 n - (setq elst nil)
& j- m; J& @* c* o0 b& N. c - (setq dtl nil)# E% p2 F5 \6 e0 }& \; ^
- (command "_change" en "" "p" "c" "1" "")! M! v- E3 r5 l7 c: t: O- w
- (if old_osmode (setvar "osmode" old_osmode))0 r4 Z1 F8 W, t8 [. m1 V
- (if old_autosnap (setvar "autosnap" old_autosnap))
0 Q! w3 }: W3 d0 n - ): y0 ` b5 J( D$ {5 p
- ;==============================================================================( }) f' d* ]. }
- (defun c:ss(). E; \0 b, S# q" u6 ]6 I
- (setq old_osmode (getvar "osmode")$ e. L" d6 Q" I# C* _* @5 Z
- old_autosnap (getvar "autosnap")! x# P4 m3 ?2 Q7 u' ?5 ^
- ) / l& e9 f8 x& G' x0 ?0 F, z+ T9 t
- (setvar "cmdecho" 0): I" ^5 d" n9 x/ S/ g
- (setvar "DIMZIN" 0)% P! T1 p+ n. u: z
- (setq He_so (/ 1000 Ty_le))
# F. J( v' G5 |$ K" U - (setq He_so2 (* He_so He_so))
& s( s. o# a" M4 m. z) U - (setq dtl 0); G, v6 ]( ?+ Y
- (setq ss (ssadd))
; A1 Y5 r' B: a - (setq oslast (getvar "OSMODE")): e- ?8 L. Z w2 ~' O0 v
- (command "osnap" "")
* h6 I+ y0 o9 m- R4 o - (print)
5 @1 w" M c( J - (print)/ n8 w' R# q1 u. ^
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
. B% |: w& c6 W+ ]8 Q. O/ C+ a - (while (/= pt1 nil)
8 b! |, [" @8 s - (command "-boundary" pt1 "")
7 b3 v2 P3 W, b* ? - (setq et (entlast))
4 K8 Z1 o2 U9 x7 @: l - (ssadd et ss)
0 E, h/ Y. m9 n9 G) \. O$ w - (command "area" "e" "last")% q0 J5 u3 R6 }0 y" R+ n4 D
- (setq vsize ( /(getvar "VIEWSIZE") 50 )); B2 P$ m* i# \/ k6 O
- (command "hatch" "ANSI31" vsize "0" "last" ""): I" r6 S; l" G; G% x" e
- (setq et (entlast))
/ W# m, O/ T9 C- v3 p& Q$ A* s - (ssadd et ss)- c! I2 V1 S3 k( H* A( _- s
- (setq dtcon (getvar "AREA"))* a' n! m+ `) x& t; l6 R0 h
- (setq dtl (+ dtcon dtl))
% m+ I3 `+ h$ f0 l$ c - (print)5 k! o8 J9 o5 }9 E
- (print)
* T* @5 E4 y2 G$ j. a - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")). t1 J9 z- ]8 _5 Y) T" M
- )
( b- x8 K* |' ^6 y2 M( V9 s: w - (command "setvar" "OSMODE" oslast)+ H1 U6 b7 ~; H
- (command "erase" ss ""). t2 m2 H+ { ]$ J) @9 I
- (setq ss nil)& J: s" F' J. b f# S$ e" l# E
- (command "redraw")8 ~$ x* ], B4 @1 h" `
- (setq dtl (/ (/ dtl He_so2) 1))
: D/ h4 J* ?9 V( T - (setq en (car (entsel "Thay cho so : ")))
- C" E6 m4 V. M1 { - (while (= en nil)( @ B1 Z5 d; V4 z
- (setq en (car (entsel "Thay cho so : ")))0 h( ^) p) e; ]- ?* G/ }$ h3 |
- )
0 { a9 z! S0 i7 x% B - (setq elst (entget en))
' T7 Z- o5 C8 K: U) A - (setq elstold (assoc 1 elst))
0 K7 i( ^. {0 B* b+ _- } - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))$ L& Q1 F7 M( o4 d! h4 \( v' E
- (setq elst (subst elstnew elstold elst))& n" u6 y% L* V/ `' ]# F+ y
- (entmod elst)
( Q0 Z" s, W& e6 N5 u, H - (setq elst nil)! s0 G* {& ]" {' m) P- ^
- (setq dtl nil): r# S D9 ?7 v% H" \
- (command "_change" en "" "p" "c" "1" ""): G" N/ ]* C2 B$ I8 e+ ~
- (if old_osmode (setvar "osmode" old_osmode))
3 E$ e1 h' b, t( m$ o8 F7 |) R; T - (if old_autosnap (setvar "autosnap" old_autosnap))
$ } T( m" k; ^6 V F - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)