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()
- n) M: ~, p m; G8 ?) g, J, D
(setq old_osmode (getvar "osmode")
3 p9 R4 x- w2 M& e! I/ b& P0 R7 _
old_autosnap (getvar "autosnap")1 ?7 H& b V- p& Z" A7 ]
)
/ h" ^! u/ j: t, y
(setvar "cmdecho" 0)$ w- j. n( [/ s1 G0 c' @
(setvar "DIMZIN" 0)
! O- u/ V9 x' K0 J, }! M+ j' w
(if (= Ty_le nil)% u, C! u0 e/ L$ [7 d y5 q6 R, B
(progn# i Z$ [' ^: S% G- e- w u
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
% c+ f1 T8 m( U9 w' J/ F9 X9 @2 x
(if (= Ty_le nil)(setq Ty_le 1000.00))
s" N G/ v3 v& t/ v; N' A0 Z G
)
) V, k* d& G0 ~
(progn
: n7 O1 z) [/ c" G1 v
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))+ A9 O5 h, p& A( x
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))) o) ]+ }2 J. N; X P+ k
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
6 O8 x' l" ]% C, G; d' `+ m3 G, _
(progn x% o6 K# l; N* d( ^
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))& ^1 T/ K! z* f; e) ^6 g
)
" q- c& Y. c& K0 W9 f4 q
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))/ e3 ]( }, J* R! W
(progn# _, P) n- T: E' n9 I
(setq Ty_le (getreal "\nnhap ti le <1000>:"))" Z2 e+ `) w6 u N$ Y4 f
(if (= Ty_le nil)(setq Ty_le 1000.00)); F+ t s8 i4 P P
)) G' A2 c, m- }# p$ D
)
0 d# S+ d# r) Y8 @
)
)
9 {: t, P' E, L/ h* [1 ^8 K
), s6 @" s0 a9 s, r
(if (= So_Le nil): k1 X, T7 o5 g/ e% \5 v
(progn+ L6 F3 E4 l# }( N( r
(setq So_Le (getint "\nnhap so le dien tich <2>:"))9 n. X: B& e2 O4 a! N
(if (= So_Le nil)(setq So_Le 2))
2 {" d: e& [+ i' F
)9 C3 F" E# i) R5 ^ L( ^0 L
(progn
3 t" j2 c4 B3 Z. x7 H1 Y; z
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))/ E* k; X4 C X) d2 H4 c5 ?
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
& \. G1 X1 z/ @
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))+ i% n$ J. P( w( Y0 g2 m$ @6 K7 I' t
(progn1 g* v. n; r$ i4 ]% G& D' y$ s" i
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
3 ^2 W' z( t& o! T; P2 d
)
+ t' x* G2 y; G! t2 H0 a3 a* A/ V
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))$ Q5 ?) d# d1 M! E3 R
(progn
& _' O0 O% ~: }# [# E- T3 o1 m( m
(setq So_Le (getint "\nnhap so le dien tich <2>:"))# _! A8 _1 ^! z3 E
(if (= So_Le nil)(setq So_Le 2))
1 F7 S3 G. \% V0 V9 U) n5 ^ T
)
7 f8 u# D+ s& ^+ X4 }" l& i
) / }& k' x& {# Y# b% P) g% o, n. Y9 Z
)7 r) n! T. B( U0 q
)% k& V1 Y( d0 p0 m( I, Q8 W/ z7 f8 q
)
1 g$ x8 ~- B5 x) N g
(setq He_so (/ 1000 Ty_le))
3 }% U' f% ?+ S, ~2 k5 j
(setq He_so2 (* He_so He_so)) / g7 Z# k$ d u, [( c0 m1 b
(setq dtl 0)9 {# a* m% z* M
(setq ss (ssadd))
$ A0 \7 g! t) Y9 a6 L
(setq oslast (getvar "OSMODE"))
* Y6 `$ e8 O v# Y# l
(command "osnap" "")
$ ^/ a I x/ n& p# W" _2 ]
(print)0 B U c8 U" D8 _
(print)
4 v/ ~# h# u A4 f
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
0 y5 Z% F& h/ H% o8 |, t$ a
(while (/= pt1 nil)! v- q5 S7 }; S) {, ?9 c8 h1 u
(command "-boundary" pt1 "")
3 G$ q' ~7 G' ] V1 N9 x
(setq et (entlast))
* c8 d) M& c, C
(ssadd et ss)
/ N' s8 R, M* C( E, ?$ w& Z
(command "area" "e" "last")+ P2 c w- z) E A; m8 o
(setq vsize ( /(getvar "VIEWSIZE") 50 ))) y: y E& v' x
(command "hatch" "ANSI31" vsize "0" "last" ""): U4 ^2 l$ x7 h7 e |# B
(setq et (entlast))
" G" f1 D! W3 a. O9 z) T: a! H
(ssadd et ss)
8 I. r+ q+ N: ~+ [
(setq dtcon (getvar "AREA"))" P# O+ m9 b2 ]# u* v
(setq dtl (+ dtcon dtl))/ q( g9 Q# g# ~
(print)
, e- u9 M2 g o' |0 ~! Z
(print)
: ^: P, ]0 G: \0 n- h6 v6 L
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
) e% s/ H( L7 e! A. @$ T# A
)
6 }) h: D Y; L F! }
(command "setvar" "OSMODE" oslast): u4 [1 g: e+ ?
(command "erase" ss "")
# E C) Z" u( ?* o, G
(setq ss nil)
5 H) v8 g- \0 B7 p$ n% b
(command "redraw")
: b' ~& Y2 K2 @; B
(setq dtl (/ (/ dtl He_so2) 1))
) G% p# C3 a# X' I! q
(setq en (car (entsel "Thay cho so : "))) ?3 ]8 U! U+ g/ e1 H: A8 v8 J
(while (= en nil)
# Z X7 n9 e2 X( `
(setq en (car (entsel "Thay cho so : ")))" j! ?! Q% _& O# L
)
Q6 g0 Q0 e, `" s
(setq elst (entget en))& u4 I4 w+ q# K" V4 A6 a$ P
(setq elstold (assoc 1 elst))
. i6 S d) b8 ]; K, d6 L
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))7 m& Y$ b" I1 P) x
(setq elst (subst elstnew elstold elst))
8 v1 x2 q+ Z( y+ A% T% a, C* O+ p; V
(entmod elst)8 J3 Q' p+ T, L3 n U( r5 J# m. c
(setq elst nil)
/ e K2 c0 q' N9 H
(setq dtl nil)
% U5 ^6 G0 B3 P" \$ ?0 o# w
(command "_change" en "" "p" "c" "1" "")" ?% P" Y7 b+ M4 C
(if old_osmode (setvar "osmode" old_osmode))
; n1 O; B4 G) h e
(if old_autosnap (setvar "autosnap" old_autosnap))$ J, W) E. ~. {/ ^$ S
)
, j& [5 ~9 B4 v4 q5 L, E
;============================================================================== H- h- {6 f9 J8 W& ~# o; G6 D
(defun c:ss()
' M$ u& y4 F# h$ b0 n9 Q
(setq old_osmode (getvar "osmode")
9 A0 r, C6 ~1 m f& H: z) h* |# o: x
old_autosnap (getvar "autosnap")6 ^5 m0 a" t+ u @" ^$ Y$ A
) 6 P$ q1 Z% Z I2 Q# W
(setvar "cmdecho" 0)8 j" l3 z: p- ]/ E
(setvar "DIMZIN" 0)- m! P- O7 W; R2 j
(setq He_so (/ 1000 Ty_le))% g- e0 J2 K# A7 ~
(setq He_so2 (* He_so He_so)) 5 m: F+ k0 j H9 k: _
(setq dtl 0)
/ X/ H9 `6 S- q M+ y; A
(setq ss (ssadd))
M) W, f1 B2 p! w6 O3 z9 G
(setq oslast (getvar "OSMODE"))
$ H) v) [, v6 K6 B( V; k% e9 o
(command "osnap" "")
- d& a% z, d) X# ?
(print)$ P* O2 M# e( h/ z0 [" @
(print)
4 W) r/ z/ M2 ^6 {0 f. Z
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))& w# d8 `. v* g- ~# I
(while (/= pt1 nil)% i& f. ]5 K7 F( Q2 p W2 s2 H
(command "-boundary" pt1 "")
4 ^( H& Q5 ^7 `0 W. a3 A
(setq et (entlast))* d2 E0 B* r) m; M/ r$ G
(ssadd et ss)
! v. S0 W' M& K9 u4 F
(command "area" "e" "last"); s& o! s$ A' W# ~
(setq vsize ( /(getvar "VIEWSIZE") 50 ))7 x" T2 y; ? {7 j: |$ L4 ~ {
(command "hatch" "ANSI31" vsize "0" "last" "")
3 H) }: Q3 j; Y# v Q# ^
(setq et (entlast)) U8 C5 n4 F ^4 b7 ?5 O) d& t
(ssadd et ss)+ ^. o7 a, m9 D
(setq dtcon (getvar "AREA"))
* a, w, X, }1 F4 Z4 I
(setq dtl (+ dtcon dtl))
! s! O" G# x* }5 b& W, R' c
(print)
j, n, K& }6 s# ~- B
(print)
- i- `6 X. v; {% s+ f
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))1 P: T' q6 ? ]1 K
)" d$ y" ]" G) ~2 I5 ?" {/ S
(command "setvar" "OSMODE" oslast)7 U7 x3 ]- M: q) Y* r D
(command "erase" ss "")$ q) D& q7 a% t7 e# ?4 A. o! w
(setq ss nil)9 W: d. g+ h3 V |# P
(command "redraw")
5 }! r9 T) e8 S" q4 {
(setq dtl (/ (/ dtl He_so2) 1))
2 ? ]8 S3 ?$ D/ i0 ?8 F
(setq en (car (entsel "Thay cho so : ")))
" }2 I- T% a. H+ Q6 K9 U, z
(while (= en nil)# ?$ h0 d) k7 B$ Q9 A
(setq en (car (entsel "Thay cho so : ")))
3 V. D# } I) L4 U
)) U( F3 O/ ^& E# ^) m
(setq elst (entget en))
! U5 w- q3 j6 F) ]5 _
(setq elstold (assoc 1 elst))
: V6 W( V# I4 R D1 z
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))* ?. e) j! ]- W+ g) _- ], c/ s! D
(setq elst (subst elstnew elstold elst))
* D* L s a. Y. b5 s% Z+ G0 p3 @
(entmod elst)
. j4 L7 e3 I' F. k* @' m3 I
(setq elst nil)
3 f7 @3 k4 s5 G% S/ h" L
(setq dtl nil)
( L- }( k1 ?* N4 G6 I, |# ~
(command "_change" en "" "p" "c" "1" "")
6 [: f# d2 d- G# c8 _0 { d: ^6 c
(if old_osmode (setvar "osmode" old_osmode))
- h5 N o- `6 P& T6 p
(if old_autosnap (setvar "autosnap" old_autosnap))- n; b0 `7 r2 q, Q. s
)

Sao chép mã