Lisp tính diện tích hình kín và thay thế text có sẵn trên màn hình. - Thư viện xây dựng: Tiêu chuẩn xây dựng- Văn bản- File mẫu- Sơ đồ- Quy trình- Phần mềm xây dựng

(defun c:ss1()
' l |: D7 y$ A& k) x5 b
(setq old_osmode (getvar "osmode")4 f( T& U/ V8 r* B3 L% S
old_autosnap (getvar "autosnap")& @6 m2 s! B# N) j: i/ G
)
9 D$ L( l) r& \
(setvar "cmdecho" 0): f+ Q/ n' N$ [8 c7 J
(setvar "DIMZIN" 0)
: s+ U& p# M/ S/ i" \8 r
(if (= Ty_le nil)
0 h- h1 y: r3 R4 u
(progn
/ M3 O7 j: U/ Q7 \. p: G
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
P( N' ?4 S) c9 {9 t8 ]
(if (= Ty_le nil)(setq Ty_le 1000.00))
2 k5 a4 K( _- ?2 y
)
3 @* F4 R0 \7 t! ]: h
(progn K8 [" I c5 m3 P M \$ m. p4 N
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))) F( Y4 L9 O6 i+ P6 O; e
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))3 x: n% Y4 ]! K1 o
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))2 p" j6 x+ D( g( q
(progn5 E4 [* m6 w7 r* @. ~ h; m; a4 X
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))# H/ o \9 J( j
)- Y |$ s4 d$ [) l: Q
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
& x/ G; I t" V) @* d0 H
(progn
& D3 W! o3 J; z9 E0 _7 F8 y7 R
(setq Ty_le (getreal "\nnhap ti le <1000>:"))
* Q1 R+ F4 L% V" l" Z
(if (= Ty_le nil)(setq Ty_le 1000.00))
( f2 d; w9 |' X$ H. D7 Z/ D% Z
)
( Z% S7 [2 x. _8 A
) * R8 w$ i# x% z; [, J/ ^
)& _( j* u, _ e; H
)
7 ?6 s* d6 Z; |& F( b" R- q
)6 E g: u3 y: t' E( H: t4 t
(if (= So_Le nil)
4 [# `2 S3 e( M7 S
(progn
- A2 X, L2 }1 s$ z" c8 [
(setq So_Le (getint "\nnhap so le dien tich <2>:"))7 B5 T9 S5 g/ r, |# \8 U, ?1 x
(if (= So_Le nil)(setq So_Le 2))
! ~( s$ R, R( s) ^: h6 {8 ?
)2 l9 a- @7 R+ Z/ z( V
(progn
- c; V- i% D) v4 W2 T2 K5 l% r% p
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
9 s Q: W0 u6 Q3 k1 M" Q
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))# f' x: f H' B0 e+ Z6 ?0 k, U
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
7 G! b8 x. f9 I0 a+ P- q2 V' n
(progn/ x& A# y1 i" W: H, }
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))8 m; }) Y) J1 d7 s
); F: [( ? V$ ?. D
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
, L/ Z! t w& i* G* C5 w
(progn) `+ O$ ^) V, F U7 R& e
(setq So_Le (getint "\nnhap so le dien tich <2>:"))' _7 ~' C" w) f8 J7 H) b6 [: |# y
(if (= So_Le nil)(setq So_Le 2))
4 v$ ]' t8 s. ^. }4 e- ^( d
)
6 F3 J& t4 a: I: |1 Q" K) ]
) / a# ?7 t- O/ z6 q; r2 ^, Q% Z) S
)
: e0 ~$ w ^7 X. L6 ?; ?8 V$ U" m
)
8 T: W0 D& D( n7 H: ?1 i% y
)! P R% K. C) {7 @ B. } m2 b
(setq He_so (/ 1000 Ty_le))3 m- e4 E2 j$ A2 K2 H2 a9 R0 ~4 v
(setq He_so2 (* He_so He_so)) 4 D" P# C2 }$ N- A" Y3 k
(setq dtl 0)
0 |8 p* ~* e' x' p% o
(setq ss (ssadd))5 F* X0 y6 n" z, a0 y7 L- w
(setq oslast (getvar "OSMODE"))3 P) [7 D7 K# g. u, d: h1 U! U
(command "osnap" "")
. l% t) G0 a2 ~ {* x {+ j
(print)
2 x7 M0 S6 G. @+ f: A8 x1 F! a
(print)
9 L# L3 t4 w. O9 P+ s! d
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))! {5 w2 B3 ? @
(while (/= pt1 nil)
+ C/ |' ]/ w) s) A2 d- w) ?5 |
(command "-boundary" pt1 "")! h' t$ f* m3 ~$ C) A7 u
(setq et (entlast))7 Q' \% Q% z( x6 d
(ssadd et ss): \ M# Q( a6 B6 }5 l0 V( I
(command "area" "e" "last"), k1 w, N7 j0 i1 M/ N
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
( f- Y" R# J# m. O
(command "hatch" "ANSI31" vsize "0" "last" "")- o" q8 T, r6 u4 @
(setq et (entlast))# p# V. o* @+ D7 ^$ p" x
(ssadd et ss)
) h8 E+ {, H" a5 H; s
(setq dtcon (getvar "AREA"))
/ d1 h8 `8 p% k; P! L# n) l
(setq dtl (+ dtcon dtl))
+ e" c' j0 {$ y9 x1 @: }
(print)
% w8 u+ S9 h& m% T2 J
(print)
) D* }" l- ~9 N3 {9 b. F" u
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
( I5 i6 w' K" N( }; a+ R1 s
)
- u+ K( ~* V- C3 |
(command "setvar" "OSMODE" oslast)+ Z( E! ~" K8 F! r0 u$ H
(command "erase" ss "")
9 \/ ~) z1 N! ~/ `
(setq ss nil)
6 J/ D7 i. r# [9 `2 Q
(command "redraw")
- Q" z% d: a% l- O' k& n% ^' c
(setq dtl (/ (/ dtl He_so2) 1)) % D. l% G! v6 M+ E5 q
(setq en (car (entsel "Thay cho so : ")))3 |& t/ G+ A- u+ K; h3 |
(while (= en nil)
8 `9 F1 `- h+ t4 k" k! R5 D/ P" H& p
(setq en (car (entsel "Thay cho so : ")))5 `% L! k- G7 d& H
)9 [: z' O# }' ]2 n
(setq elst (entget en))
' w; s3 U0 t) F9 r& T
(setq elstold (assoc 1 elst))
6 m( ~% D. P! J* P+ Y) N! _
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
' x, v9 d+ m/ K' y: V1 p" Q3 H
(setq elst (subst elstnew elstold elst))
; P, m c. A$ `% r
(entmod elst)6 W- N& @; [4 l6 s5 C
(setq elst nil)
) }+ u+ w* s8 k% }+ o
(setq dtl nil)/ [3 ?# W% J& i0 p8 Z4 R3 G3 E* N
(command "_change" en "" "p" "c" "1" "")
2 |3 c4 [# U! U9 K
(if old_osmode (setvar "osmode" old_osmode))+ x0 C' ]$ y3 U& F t6 k
(if old_autosnap (setvar "autosnap" old_autosnap))( y# s& f. e: Y* s
)5 H. |0 R1 l3 e0 E/ k/ ~
;==============================================================================
& d& a t I x& j% J" ]
(defun c:ss()
# }' s$ l. q: f1 ~
(setq old_osmode (getvar "osmode")
, U' Q) B1 N) q% L
old_autosnap (getvar "autosnap")
' w ?( z& F' r/ f1 r8 a8 }
)
, {- R( F" b, j1 W
(setvar "cmdecho" 0)1 g9 }0 }( }. `: ~8 b4 U
(setvar "DIMZIN" 0)
! d S: z7 y$ r
(setq He_so (/ 1000 Ty_le))
8 | F1 M0 e$ D2 Y7 `
(setq He_so2 (* He_so He_so)) 9 O V1 y( r4 Y& |
(setq dtl 0)# O! G U& S. |2 t2 x
(setq ss (ssadd))" ~( o! E; R8 \
(setq oslast (getvar "OSMODE"))
# S; I* x1 } Y6 [7 k* R8 w
(command "osnap" "")' Q& i" C& z& J
(print)
7 S4 x3 V, h8 D' C3 ^. @% o
(print)9 g+ c2 j# o$ |3 B& i0 E& V
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")): n* G, A% u. a8 W3 ]0 Q. `/ u2 `5 I( H
(while (/= pt1 nil)
- Z, F3 Z0 n7 U( F' a
(command "-boundary" pt1 "")" u! z+ t0 X0 `# h Q) A4 D2 E
(setq et (entlast))
3 Z7 }) V% \2 t/ W, Z _2 z
(ssadd et ss)" G8 Y9 e+ D- V& H( d8 U$ N; A5 C
(command "area" "e" "last")6 H. l0 @6 ^% h* @1 |
(setq vsize ( /(getvar "VIEWSIZE") 50 ))& f* f# h, L6 D. _
(command "hatch" "ANSI31" vsize "0" "last" "")2 y7 y: R8 h! J- a0 }
(setq et (entlast))
0 s1 ~4 q2 J* }3 O2 Z6 T2 o
(ssadd et ss)* z6 @1 I2 q' c, w% ?8 u
(setq dtcon (getvar "AREA"))
1 w7 A& n# ?5 D6 D3 k8 u
(setq dtl (+ dtcon dtl))- c4 T- U' H) u, q0 Q
(print)
+ Q- J- X0 d' x# l' k3 Q" O) W
(print)
) b3 ]1 e# L3 O( e7 f O7 i
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
" Z2 K H' z% U% h/ X6 p8 ]
)9 `7 a- ]( Y) o5 ?- k
(command "setvar" "OSMODE" oslast)
' s1 j* V; G! M
(command "erase" ss "")$ E$ V- _- P* F/ t; v2 w% }
(setq ss nil)1 y: H- S, z/ Y* P( c. J4 _ r+ a' m
(command "redraw")2 J6 n4 E- S6 G5 Q* V$ `2 ?- T
(setq dtl (/ (/ dtl He_so2) 1)) - v/ N( Q O2 X: ]( m* e) k
(setq en (car (entsel "Thay cho so : ")))3 ]+ r6 U7 a, K
(while (= en nil)
+ n! I# h1 k8 V; t4 D3 Z4 @
(setq en (car (entsel "Thay cho so : "))); f. Q* p8 h: G4 r. N3 y
)0 G" \ |; {3 `7 [, E7 N; M! b/ A
(setq elst (entget en))
7 K; z' _5 ?* H, A0 d; i4 i4 q8 q
(setq elstold (assoc 1 elst)) ; ^1 |$ k: N5 `+ Q
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
2 v8 ]3 ^- k2 W
(setq elst (subst elstnew elstold elst))
, G$ a: `5 t8 B' D- } V
(entmod elst)
6 P: O. V2 |2 e- t9 G% q
(setq elst nil)4 `" s9 M3 f7 k' Z8 z; k
(setq dtl nil)
! N7 P9 m- h! D- D
(command "_change" en "" "p" "c" "1" "")
3 Q5 o( P0 Y" ]+ t: g+ i
(if old_osmode (setvar "osmode" old_osmode))
+ ?& r1 f/ G9 t* P0 g
(if old_autosnap (setvar "autosnap" old_autosnap))$ I% d$ p K; }2 q
)

Sao chép mã