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()2 l$ a4 W( F3 N K4 K2 [
(setq old_osmode (getvar "osmode")
# V* o0 P: A7 O; A; z+ S4 h9 w
old_autosnap (getvar "autosnap")( d. E, ^" T _- H+ e
) " z0 U0 L+ C5 u0 L5 Q
(setvar "cmdecho" 0)
1 H, m( Q p9 W
(setvar "DIMZIN" 0)& M- U0 v# j/ _" T
(if (= Ty_le nil)
+ I/ ^/ g- A: c) v: r
(progn
B; @3 T; }0 ?/ N1 }% y
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
' H$ d) M7 E* s3 H! r
(if (= Ty_le nil)(setq Ty_le 1000.00))
- R- C' E2 Y4 e, c b
)' Y8 X2 f5 q8 H% Y! ?' f9 t p
(progn
/ e. w, W1 Y4 z3 A% }) \
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
3 y7 d1 N9 K" l3 D
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K")) X$ t$ {! y$ s2 B7 ]) J1 D! b9 F
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))" Z* {( f, u4 R; Z
(progn
6 U+ t4 W) O; L/ }) k, }! M
(princ (strcat "\nti le = " (rtos Ty_le 2 0))): [7 R& F) `/ g1 R4 g1 Y
)
& m) v$ r) V! U6 a# I8 j, f7 W7 [
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
! [* O! \; r9 d4 f/ y% D
(progn
2 x2 q, ~% c! R* r! e$ ^$ ~
(setq Ty_le (getreal "\nnhap ti le <1000>:")). C5 b, B" ~/ R
(if (= Ty_le nil)(setq Ty_le 1000.00))
6 `9 K% H9 e% |9 p
)# F0 D* g6 D1 V/ R# h0 _9 b" Q; c5 w
)
* u) f! i. I4 E1 D
). |2 m! f/ Y% n; X( X
)
, M6 G2 h' Z: x( y0 D5 i7 j; J5 n1 k
)+ r# B; ?, O/ a; _
(if (= So_Le nil)
6 T4 A: d3 y9 }) \
(progn% D+ a9 o7 k5 ~7 z6 [ ?6 g3 _- L2 \
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
) |7 B: X8 B" j# J
(if (= So_Le nil)(setq So_Le 2))& R" T/ U. ^( Y7 n0 j7 H/ Y" q
)
$ o* x, t5 x V4 u
(progn
2 m6 _1 `$ \0 g) T
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))" r% k5 y; O4 ?& D$ [# ?
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
) ]/ [3 N9 f- j, l- `. ?
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))1 {! M0 U1 p) R# I! Z
(progn
; S% ^8 p+ p" }: r: b3 F% v! v3 L- y
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
" a0 }1 O0 r- J
)
7 x: ]* ]$ U8 V# o+ d6 |
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
( A# V6 D* o* K$ Z5 Z
(progn( D2 Y2 w$ ^$ _5 H% F3 m7 j; B
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
9 Z, Y$ S! A) E9 g
(if (= So_Le nil)(setq So_Le 2))
4 g- O, L. b X; e% {
)1 ~$ W* p" q6 ?2 C/ Q6 m, ^- o! \
)
0 ^/ {0 D7 q) t( ~/ Z6 V
)0 R+ Y% P! S: h3 k2 c9 b
): |3 d+ _- T8 F# d( T
)# i( C7 a' f' ~$ V% U( p% z3 b% v: f. m
(setq He_so (/ 1000 Ty_le))2 `; A/ {- m1 u6 L# n' O& ?" T
(setq He_so2 (* He_so He_so)) " i: y2 V: I' M1 G! z' T3 n
(setq dtl 0)
0 F, m5 E8 e* a2 f) u
(setq ss (ssadd))
. A' j0 [9 B! C" [" N( e5 Z7 T
(setq oslast (getvar "OSMODE"))
! d# f. F N# W: [0 W. D
(command "osnap" "") t$ @- E3 }$ {/ r
(print)
, q4 g. W) R$ q0 q7 ~& l) x
(print)
6 a; A! Z6 w3 C6 z2 a! E. T
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
4 v9 _# W9 S; R( m
(while (/= pt1 nil)1 A4 ?. \ k+ `, m, e$ M/ {& j
(command "-boundary" pt1 "")
7 X) a. h% a9 I8 L; c. b% e
(setq et (entlast))
+ X$ i- v h% g, j# P' l
(ssadd et ss)
5 e b5 }# J* H
(command "area" "e" "last")
7 u6 o: G; i, D7 L( t- k
(setq vsize ( /(getvar "VIEWSIZE") 50 ))/ t% s; K. t# t, a" q% H' v- M
(command "hatch" "ANSI31" vsize "0" "last" ""); H% C7 K1 h5 ^ g' g; ?; P
(setq et (entlast))
7 ^7 y) r8 i$ A+ Q5 J' e
(ssadd et ss)
% P) Z8 n' g; T+ K
(setq dtcon (getvar "AREA"))
5 s0 f, ?" l( t( F
(setq dtl (+ dtcon dtl))
, f8 m# K7 n I
(print). E) r" I0 X* J3 V
(print)) H, V6 J% c1 i: ~) B0 d' Y F
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))+ L5 |9 R( l9 R: S
)- C. a9 e2 F0 @+ Z
(command "setvar" "OSMODE" oslast)
9 Q# R' K4 v# n& g! y# Y X7 j
(command "erase" ss "")
) Q- z6 U( B0 _/ n
(setq ss nil)
3 ~% ~" c. x# [1 w4 E) }# c0 C
(command "redraw")
1 R6 ]) v* i4 p+ s/ d# q. h: \- s+ R
(setq dtl (/ (/ dtl He_so2) 1))
4 m5 N1 X' g. [# q9 u+ K+ f& n
(setq en (car (entsel "Thay cho so : ")))* R+ @, W" i8 q, o
(while (= en nil)% ~2 l, M6 k s: ^
(setq en (car (entsel "Thay cho so : ")))
b* D2 X# C7 _- ?0 }7 G
)# L$ W; ?/ H4 N3 t2 e
(setq elst (entget en))/ c& Z* y, V6 e( C
(setq elstold (assoc 1 elst)) " i3 N; k4 f h
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
" A* P" K) O+ c {+ {& e! |
(setq elst (subst elstnew elstold elst))
8 F: X/ e: [7 ?3 h% I, K
(entmod elst), E! p/ E# s# S. v7 x
(setq elst nil); ?* E/ O* R) n' u2 T* L8 G
(setq dtl nil)$ U9 k: u0 @! z" e
(command "_change" en "" "p" "c" "1" "")
" ~ Z( \1 Q# t: E0 I1 K9 e
(if old_osmode (setvar "osmode" old_osmode))* O/ T: _ V2 l4 |: t1 G/ H
(if old_autosnap (setvar "autosnap" old_autosnap)): H0 S$ |- {+ ~7 y, {
)& n% q9 ]; s* t4 T1 v, C& ]6 k
;==============================================================================
* q6 N0 ?- g" _7 C# g
(defun c:ss()
% ~7 c; I+ h3 d. X4 F* Y! J5 p
(setq old_osmode (getvar "osmode")
1 K c5 y$ C7 R1 c) `1 L
old_autosnap (getvar "autosnap"), ^+ ^; a0 A, X2 ]( @; H7 x+ K: t
) 7 B8 D6 a$ b- g% q! p3 ^
(setvar "cmdecho" 0)" b5 j8 I3 U# g1 U5 d+ j
(setvar "DIMZIN" 0)
# w& U9 u# O. @, k3 f7 k
(setq He_so (/ 1000 Ty_le))
) B5 |! L Q8 G) c8 h$ N0 {2 q
(setq He_so2 (* He_so He_so))
2 ?( n8 V) c# ]# r
(setq dtl 0)
" f2 y7 B- p ]1 \, X( M
(setq ss (ssadd)), f9 ~6 x7 t( P2 m
(setq oslast (getvar "OSMODE"))
: B4 F/ x' c5 a
(command "osnap" "")* L( K. ^- Q# L! W1 \: j6 L
(print). V0 R9 p) k V8 ^
(print)
B- H0 W; j, j
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
# u1 }6 V1 h0 O
(while (/= pt1 nil)
7 Y, y$ n: S: ]9 H/ ~+ W
(command "-boundary" pt1 "")
; i q7 C. H- K0 t" x, G. z! A
(setq et (entlast))% t( v) ]' g8 u9 Z$ Z
(ssadd et ss)% C+ U7 h8 | u5 b
(command "area" "e" "last")( C V# G& \9 V1 f3 j+ ?* N, }
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
+ ~$ @/ c: A! `, f4 V$ z- ^
(command "hatch" "ANSI31" vsize "0" "last" "")
^8 Z. j$ T% n( ?$ l
(setq et (entlast))
/ P% w8 ]: o$ ~
(ssadd et ss)& J; D8 z! m3 n+ y, ]
(setq dtcon (getvar "AREA"))
5 k4 o- O! n2 l9 ]& _( u
(setq dtl (+ dtcon dtl))( U6 ?8 }1 ^1 h
(print)! v; Y8 y, b. Q0 o9 v7 T
(print)
' x. z& S" q" S9 m
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
- c" A; D' R" y
)
5 c) G. }- a. w) H
(command "setvar" "OSMODE" oslast)
# k. }+ ~; `5 j9 l/ A8 }) I, I- v
(command "erase" ss "")7 L/ ~3 J' R* {7 J3 l3 Y
(setq ss nil)
8 D5 A. H l) @ a. \
(command "redraw")
* Z1 w5 H& C; S/ s9 Q8 w h
(setq dtl (/ (/ dtl He_so2) 1)) ; v" s8 M) w. `" m( \% P9 g
(setq en (car (entsel "Thay cho so : ")))
- l2 u) h4 h" x P
(while (= en nil)
' G9 F0 \. i% h9 i& w, z' S
(setq en (car (entsel "Thay cho so : ")))
) v# D" I, F. \3 d5 d, ~$ ?5 b) ]
)
1 i& w/ }& f1 t/ b
(setq elst (entget en))& P; ]. U e) o2 x/ C# ^) x
(setq elstold (assoc 1 elst))
7 O3 a3 N d: B) q% p2 j+ F; F
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
2 r$ p' c+ A( I4 n" O, ^
(setq elst (subst elstnew elstold elst))
% s; [- S% v7 x' W8 M/ v
(entmod elst)
4 N, X- C5 w3 C1 Q$ a
(setq elst nil); m( W# z" d% I; x5 o
(setq dtl nil): ?. a1 z5 K+ b
(command "_change" en "" "p" "c" "1" "")
) v/ I/ J$ \1 ^% R8 H. E$ u' k
(if old_osmode (setvar "osmode" old_osmode))
, d$ a* `6 q$ }6 n; ]* V, G
(if old_autosnap (setvar "autosnap" old_autosnap))
- d6 D4 B6 i' H
)

Sao chép mã