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()
7 q( ^% d* N+ D
(setq old_osmode (getvar "osmode") |4 a) `. x, ?6 F8 S; Y
old_autosnap (getvar "autosnap")) N" n- ?0 n) T3 m: F8 Q/ X
) ) G+ H2 M) ^" ?4 t9 k$ }- r
(setvar "cmdecho" 0)
! h, `8 ^) z" Q( S3 d) B
(setvar "DIMZIN" 0)
V& T1 O, M$ h j9 x9 N8 S8 i
(if (= Ty_le nil)
1 D, t# x9 P6 ^* p/ v" A
(progn3 j/ z8 j7 C" S2 e
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
, o( F' ?! \( H8 _7 a
(if (= Ty_le nil)(setq Ty_le 1000.00))
p3 T ^7 B& C7 O
)
9 j5 d8 \2 Q0 F: ^4 R2 ?. f' j
(progn1 ~% `# O6 y/ ^8 ]
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))5 n/ W1 f" u0 O+ r! i. A! X( L1 D' K
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
+ p! K: [: _7 W* v" Q* @7 p
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))1 y! u, A2 w0 O1 \9 V. a
(progn! K* d$ ~# P( m7 R
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))
~/ G- t' v2 m
)
$ g" {8 S+ Q' S% k7 L
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
1 [) |) {% Z6 u+ S- y9 T
(progn
1 j+ A2 ?* j. G' K, o- {
(setq Ty_le (getreal "\nnhap ti le <1000>:"))
, @. }/ J, M+ p0 e$ |
(if (= Ty_le nil)(setq Ty_le 1000.00))
& x+ H4 p' z6 g: ~0 m# c4 A0 ~1 g
)* T+ \' w0 e7 E* e* c7 z; Y- ^! S
) ! A% t* m" _+ M& l2 V- X
); j, `0 q' S/ m9 d) `5 M# m
): \" e3 G5 Y+ V: d! o1 Q
)& G4 [1 G& |' ?; U' G& ?5 j
(if (= So_Le nil)7 N6 Y+ h* q N0 ]9 L W$ f W
(progn' \6 N: R" D" k
(setq So_Le (getint "\nnhap so le dien tich <2>:"))4 z+ H, O2 Y' C, P
(if (= So_Le nil)(setq So_Le 2))
. ^/ `8 `3 `" {) P. N" s
), B& \% p3 m' N
(progn
9 `. d1 Y1 `$ P9 q
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
; p& R. Y5 D9 D: y0 ~
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
8 ^- l; ?# {& `: t
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
/ j& m( K% `( J# P% K+ q
(progn+ U* o6 I+ J0 i' n- x" T/ U; Z
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
9 N" l3 L! }) w
)0 n& L& a* j# L r
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))% y6 ?: C# V3 N
(progn- b: M! d* c" V* I+ H
(setq So_Le (getint "\nnhap so le dien tich <2>:"))4 ~/ }* H, G" c& N N
(if (= So_Le nil)(setq So_Le 2))
" `9 e' V) X" N- A9 i* r7 y
)
8 s+ G# n1 l% i$ q1 K6 x- h7 @* p' g
)
# {3 C m/ i/ f0 Q7 H
)
0 R. V% p7 ~0 Z) i: a3 M
)
! ~8 x& ?1 A( h! a! g' U
)
# y, }& A) S4 T" E5 h: S5 `2 D0 L
(setq He_so (/ 1000 Ty_le))
; Z! z2 h) z) V! `, D- v) X
(setq He_so2 (* He_so He_so))
. e7 R6 g7 Q+ u3 N) W
(setq dtl 0): P7 E' O) C% ]" S- [
(setq ss (ssadd))
; K y+ s" @, N/ b
(setq oslast (getvar "OSMODE")). I( @8 x8 V$ T7 D
(command "osnap" "")+ T1 P6 l' e2 F5 d8 E( X# I- x9 _
(print)" t+ J) t; t$ C% q: l7 v; r
(print)+ @, T( q, c R
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
/ C* ]: W: M* y; g! ?
(while (/= pt1 nil)7 C- g% _) [4 h6 S* _/ J
(command "-boundary" pt1 "")
/ p* [/ a1 f, H- _7 g1 d
(setq et (entlast))" |) {) u, B* u0 W5 Y
(ssadd et ss)
' g. x4 u, E. R: P
(command "area" "e" "last")9 N: R0 I7 Z" R. d+ e, o) Q. m" |7 H
(setq vsize ( /(getvar "VIEWSIZE") 50 ))" B6 e/ Z2 b y1 q/ |8 d
(command "hatch" "ANSI31" vsize "0" "last" "")% F4 V& S8 r3 m0 X4 f+ B$ g/ o
(setq et (entlast)), L+ h) M4 z2 d' e% M3 m
(ssadd et ss)0 I* ^, Z4 `$ e" n
(setq dtcon (getvar "AREA"))
. U# f' b, e& e" x |0 W+ ]2 \6 ^
(setq dtl (+ dtcon dtl))
& d" X0 ^8 J( ~' ?% G3 [
(print) j4 C0 X7 T/ p' I0 v
(print)
# N# E! w$ M. P: G O/ p5 n, W
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))+ l+ k8 {" k2 _1 }9 ^/ N
)
; L' |+ V$ f2 z% j( c: Q: I$ h
(command "setvar" "OSMODE" oslast)0 u. f* M$ ]5 C' r5 `, Y
(command "erase" ss "")
) n+ o8 \& g$ k
(setq ss nil)
. i. I$ `" r2 c' c0 q
(command "redraw")
( Q# r+ W( x u' C6 E$ X# Y" B
(setq dtl (/ (/ dtl He_so2) 1))
" V6 ?$ U. ?$ M3 f7 j4 D
(setq en (car (entsel "Thay cho so : "))), s3 R; H2 @2 ?6 T* b+ |% V b
(while (= en nil)! G0 |4 u7 f `; h( _+ s8 o
(setq en (car (entsel "Thay cho so : ")))
3 U$ Z- z/ }3 i
)1 J- T9 g }9 ^
(setq elst (entget en))
: F4 y/ C3 w7 o7 Y7 X7 @) `
(setq elstold (assoc 1 elst))
6 ]9 V4 H8 U( [1 p
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
7 y, N% U8 O1 B1 a$ C: ^
(setq elst (subst elstnew elstold elst))% ~( _) h9 S6 h' }. S- K
(entmod elst)
4 _" c& k: ]- a t; A( [- _% E/ x/ Q
(setq elst nil)
: ^6 V9 p2 b6 U6 U1 _) I3 s
(setq dtl nil)
0 z+ }& \- S! r( ~: ^
(command "_change" en "" "p" "c" "1" "")
C$ T, n+ e3 ]
(if old_osmode (setvar "osmode" old_osmode))
6 y8 @% j( P r! r
(if old_autosnap (setvar "autosnap" old_autosnap))
/ R& L# X( w O
)
: H9 K0 i% e1 _% G4 C& `
;==============================================================================" X+ o0 c+ { z C# z2 c' H! x5 Z
(defun c:ss()) I% n7 I( {( |3 J$ e
(setq old_osmode (getvar "osmode")( D% }5 y6 N9 g
old_autosnap (getvar "autosnap")
! m6 T1 _, U6 N+ G% \0 S# @
) # ]4 I f5 S. v0 @. ?. y
(setvar "cmdecho" 0)- }/ m- @. z% b* u
(setvar "DIMZIN" 0)
0 Y# [! \5 W9 O' @$ Q' Z6 g
(setq He_so (/ 1000 Ty_le)) T* g9 r: |4 z; I' ^& \: D
(setq He_so2 (* He_so He_so))
+ o) C. T; n7 H; i: A# x
(setq dtl 0)
5 D) M6 N" Y# A3 }. e
(setq ss (ssadd))
w1 R! c6 \2 a3 v+ E3 V
(setq oslast (getvar "OSMODE"))
7 a3 P; j5 r+ s2 H( D u/ ^
(command "osnap" "")
3 J8 d" [7 s* _* R, \* B
(print)" u$ R7 t( e. I1 r; D1 d- L
(print)
: t1 P2 k; Z$ B" j
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))# o" T1 |' I7 N7 H9 N# E
(while (/= pt1 nil)
& L0 H* J9 C* \2 i9 `" _
(command "-boundary" pt1 "")
, l* ~8 Z& M: r' n
(setq et (entlast))
5 u. ]. F! D7 D0 W. I; Q9 S
(ssadd et ss)4 L. g0 x0 |1 ^. l0 O3 Z
(command "area" "e" "last")
% T% D$ f: |% c L# {0 C
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
, o3 Q, G, F- ?$ K; N' v5 K
(command "hatch" "ANSI31" vsize "0" "last" "")
B6 Z$ c0 `& f5 e) E1 W; N. N
(setq et (entlast)): H7 A. }/ j- E* \& W
(ssadd et ss). x' o0 P: x3 y5 m; W* L
(setq dtcon (getvar "AREA"))
. l( B0 ?" B2 E. U- p" \# ^
(setq dtl (+ dtcon dtl)) z. k3 _0 o0 s }) h
(print)
4 [8 H' S9 }4 y; z, y( @! _
(print)
0 B8 V& D% t' f( c0 u% D! V
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))2 Z L% X* I* S3 F2 U3 @
), _4 z, i! p. `; r, r, v9 M( S8 L
(command "setvar" "OSMODE" oslast)
5 ?/ B3 r1 i/ ~/ g" E4 m; m0 s8 U- u
(command "erase" ss "")4 q( ^5 y/ k7 U6 z; d+ L
(setq ss nil)
4 [% z* X' _% E5 C! f9 q6 m
(command "redraw")8 W/ z' Y& B+ E+ K; R& ^7 a
(setq dtl (/ (/ dtl He_so2) 1))
0 J t/ s9 J' d2 w: c
(setq en (car (entsel "Thay cho so : ")))3 Q* _9 ]/ M5 W+ l
(while (= en nil)6 u% j9 X5 i8 q! Q$ [0 E
(setq en (car (entsel "Thay cho so : ")))3 n5 M$ D G4 a
)0 W% [- S9 x4 i" a. G
(setq elst (entget en))! s7 R k1 U: I
(setq elstold (assoc 1 elst)) ' o$ G% ?4 D0 O7 x2 Q* ~3 S) K" o7 `
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
7 X% C! \2 A6 |, \' t3 [1 V6 n4 c
(setq elst (subst elstnew elstold elst))
- F" z4 g; _) i, A4 P3 c/ Z
(entmod elst)1 Q& v7 U1 F" X" L! V2 f! Q
(setq elst nil), j# e" E& A7 y8 \" x }2 p9 \
(setq dtl nil)) v* t- ?2 G3 w. \/ y% v- o9 G; k
(command "_change" en "" "p" "c" "1" "")0 f& P) I! j5 w" w9 i, \
(if old_osmode (setvar "osmode" old_osmode))
9 U \" U# ?; [! m
(if old_autosnap (setvar "autosnap" old_autosnap))
4 {, t5 A& L. j; k; V
)

Sao chép mã