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()3 j/ y# u' \: k2 F! @% L
(setq old_osmode (getvar "osmode"): J# |0 v+ ]7 u9 r9 J* a' g
old_autosnap (getvar "autosnap")& ^8 K* W7 |+ U/ g& j
)
( U! b# L: H7 Y0 }* n3 Y
(setvar "cmdecho" 0)& E5 T( m* ~$ B) J: B; Q
(setvar "DIMZIN" 0)
: x! l! s( ?% H) p* @: l
(if (= Ty_le nil)& h$ p d! h) G6 q
(progn y! L8 _' Q8 }# R
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
# d6 Y$ O/ ?2 l) s% r* l
(if (= Ty_le nil)(setq Ty_le 1000.00))+ Q) L8 Y. V( |; A( m. `8 b- t, b
)
! i3 c, o4 U1 P
(progn
6 l! v+ x3 v' z$ U
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
7 L. b. E1 D4 M1 T5 s
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
- D$ \! j: V$ E
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))8 s" m, b3 U8 `: C' e9 ^& n
(progn2 O1 h( l0 d& Y: C! \" D
(princ (strcat "\nti le = " (rtos Ty_le 2 0))): O; [/ x z. j5 L
)
^3 Y0 {1 Z; n5 B3 F8 O
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))& p1 O4 R; n' h
(progn$ k# d' H, P7 N9 ?9 T2 m8 G3 J" j
(setq Ty_le (getreal "\nnhap ti le <1000>:"))
( w4 D, Q' w# D R
(if (= Ty_le nil)(setq Ty_le 1000.00))
$ z, J- Z v; J; j# s
)/ O( V2 s# T+ W# M4 W
)
7 L' V+ o6 E( z& _7 a" }' I8 q
)
$ m, P( D" k/ f! p/ V3 u
)
& |# K }3 I+ s& V! c! Y8 Q
)
, _! |8 n* J4 z3 I
(if (= So_Le nil)& o, N* d- ]( e; _/ M
(progn
% E8 Q0 O7 L N, Z1 L* _" K$ D0 a
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
5 E7 K- i) O Q% ^" H2 t
(if (= So_Le nil)(setq So_Le 2))
( w0 c4 J* g: V% _7 t+ _8 e
)
+ U/ V. r- z7 Q5 \: W9 w2 p
(progn2 e7 D J! A. Y1 I; v
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
3 q; ]4 q" J! z5 \3 ^
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
) J7 v6 B( \0 z- j- {, b0 ]
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
8 ^' i& [" r4 \" E! R, P7 G
(progn
. J0 D( e- J$ X7 F6 q5 z( U% W, K
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
) J) P/ Q6 w [8 o" @
)
* w/ w) K: \+ W+ D6 k
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
$ X+ ~9 m( g& V$ v
(progn
3 W$ l0 H3 t2 ~' q
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
5 P7 T% r% t" d4 x; f4 l
(if (= So_Le nil)(setq So_Le 2))" g v' o1 v- i5 G a3 S
)7 V0 W7 b& F+ H$ X3 L) D
) ) k O: k* A% E, l/ n: |: j
)4 ^4 b1 [% X* i- E( c
)5 L( q- }( n+ g2 N
)( M9 A3 v& C' T! Z% l" ^
(setq He_so (/ 1000 Ty_le))
6 r. P' D7 C7 G$ l0 w5 M
(setq He_so2 (* He_so He_so)) / [: v C8 B/ ?* v: @5 p. l6 {
(setq dtl 0)
3 G+ ^* Y2 {' z; d0 k! W' ]
(setq ss (ssadd))0 a% }7 S- a: T) q$ P
(setq oslast (getvar "OSMODE"))
' D, c7 n- p) i0 c- J
(command "osnap" "")
+ r4 G& Z1 ?$ Z: y
(print)
/ s6 W8 v0 z9 H- j. Z
(print)
% X- z( V$ ^/ L8 A# R
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
3 a& v1 w3 p( k: P. C% c2 d2 E5 Q
(while (/= pt1 nil)
$ V$ @; K5 ~* E! \
(command "-boundary" pt1 "")
) q+ U0 \( C: X& \. m
(setq et (entlast))
# h# O7 |" u0 D: k+ H# [
(ssadd et ss)9 z! T* w' s5 u- S6 B
(command "area" "e" "last")8 e/ X, i& F6 T! Z9 N! t
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
) z* i3 l9 x' R p
(command "hatch" "ANSI31" vsize "0" "last" "")5 x4 r1 d, a7 s0 V6 C8 d/ ^% t; k
(setq et (entlast))
/ y4 N* Z( f1 n9 x5 A
(ssadd et ss)
3 j% [+ x/ p# z. \3 x6 F
(setq dtcon (getvar "AREA")) e$ z' ]+ m: ?+ c
(setq dtl (+ dtcon dtl))
" T: n6 l2 D6 w5 s6 [
(print)0 x: W/ c' C2 \' H: J6 ?# ^
(print)1 S, X7 g8 f# Q
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
5 I" ~9 I# }+ O3 r, ~/ J6 E
)# Y* ] w, l/ D) Q% V2 a4 X2 K
(command "setvar" "OSMODE" oslast): Z" y6 L. W; N! g! \
(command "erase" ss "")/ {; Y w4 ^6 J0 \: ?" K
(setq ss nil)9 f8 t" i, v) P! g! w. @
(command "redraw")
k* [. b9 P' b* r1 I6 _9 y
(setq dtl (/ (/ dtl He_so2) 1))
( y- D& [4 U* u$ q' i
(setq en (car (entsel "Thay cho so : ")))
6 Q! W5 I6 [5 |! a
(while (= en nil)
$ M5 f( o+ O( U; L% O
(setq en (car (entsel "Thay cho so : ")))
# _. c5 w# t2 ~$ U$ c
)
9 N- |/ T) N4 }
(setq elst (entget en)), @$ P, w( n( P
(setq elstold (assoc 1 elst))
: b( C" x# X' h5 R
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
0 G9 l2 J# G$ l% [: Y
(setq elst (subst elstnew elstold elst))
% R& t7 R9 W2 c
(entmod elst)
f! a! ~* @9 ~$ x
(setq elst nil)
% \. O0 U0 N# A1 s
(setq dtl nil)
2 W$ ?: \7 n0 A; X
(command "_change" en "" "p" "c" "1" "")4 B9 m1 C ?' O
(if old_osmode (setvar "osmode" old_osmode))
0 I' }: O# Y9 ?9 c/ G' }
(if old_autosnap (setvar "autosnap" old_autosnap))
. A# ?3 Q$ ?, g7 V6 w# I& a% I
)4 I1 ~! g" l: m) U: n" u5 _$ J
;==============================================================================3 h) m/ H* D( L3 s- X, N! Y
(defun c:ss()
6 p4 N& Q3 m2 B9 ^/ J
(setq old_osmode (getvar "osmode"). P4 {: \, t' n8 g
old_autosnap (getvar "autosnap")
* W! |9 i# E! ~4 @- u
)
5 E# C" I3 z- z
(setvar "cmdecho" 0)5 d7 T/ ?) e. D) y. I# c
(setvar "DIMZIN" 0)
% `! ~ p. i* ?/ N
(setq He_so (/ 1000 Ty_le))
: U% G$ C- Q, k
(setq He_so2 (* He_so He_so))
, Z3 Z [( p! T y$ `
(setq dtl 0)6 H/ P1 U$ W3 I7 {2 I
(setq ss (ssadd))) I5 K$ m9 P) f! N. {0 b9 U
(setq oslast (getvar "OSMODE"))
+ T L% ~& v( x* ]7 V- S/ ?
(command "osnap" "")
/ U. _' g! i, L0 H
(print)
! X- b0 l: {6 ?" w0 r, u4 m
(print)
) s" c6 f9 \. `0 x% n
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))0 J1 D ~. f2 J3 C0 ?( f
(while (/= pt1 nil)8 y5 Q* `4 r5 p) _( ^/ A$ z1 S
(command "-boundary" pt1 "")
5 V) k, V7 D p" y, x2 ~
(setq et (entlast))0 v3 U2 j0 v7 a
(ssadd et ss)
) A" U! s; I! r) F
(command "area" "e" "last")
$ b2 a" S- h" ^3 K6 M- y' V3 B. R
(setq vsize ( /(getvar "VIEWSIZE") 50 ))0 O* L& g0 |: c, @5 W
(command "hatch" "ANSI31" vsize "0" "last" "")' @( Z/ }7 ?) Q
(setq et (entlast))) M7 B2 H: @; a
(ssadd et ss)
4 ^2 Y' O$ ~9 P
(setq dtcon (getvar "AREA"))
9 x8 a* c0 p4 s7 p& r
(setq dtl (+ dtcon dtl))
6 r$ j; \1 b4 `% L
(print)- S+ e& I. T9 F: f, E) F/ k n) R
(print)
: p _+ L: V/ d% V7 [6 Q# g
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))3 J' [+ W4 } e' ]' H. J( W/ l) S
)
- G1 ~) h+ _; Q; @- b: ]
(command "setvar" "OSMODE" oslast)9 A+ ~ ]7 |4 V2 _) J
(command "erase" ss "")6 d$ @5 y/ p% W+ }. X1 z
(setq ss nil)
% d6 ~- F# ], C9 ?" _
(command "redraw")$ g: V/ ^% e. y3 l# h: E5 w
(setq dtl (/ (/ dtl He_so2) 1))
! U. I: b" i$ F
(setq en (car (entsel "Thay cho so : ")))
9 x4 ~. c; X x! M5 o
(while (= en nil)
* v/ D C/ p' g- d- ?. I
(setq en (car (entsel "Thay cho so : "))) O! D# h2 x8 Q
)
" c/ A) ]3 r3 ]
(setq elst (entget en))
+ l; U0 B8 w6 v P8 j
(setq elstold (assoc 1 elst))
# @ m1 E1 N8 W
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))) V/ F) t/ ?! |$ u' u0 e; C' m
(setq elst (subst elstnew elstold elst))
( x" J1 F' W' `. d% o
(entmod elst)
: b4 D. h/ w4 W/ b% _8 k1 Y5 O
(setq elst nil)
1 j5 v) i: e" C% b7 L
(setq dtl nil)
& \( E6 ~/ p i H# f: j4 b6 w- b
(command "_change" en "" "p" "c" "1" "")* Q: O0 x8 ]" A* f3 Q5 D
(if old_osmode (setvar "osmode" old_osmode))$ D9 M+ @) L& N0 v) X/ u
(if old_autosnap (setvar "autosnap" old_autosnap))
' S& G" I q. x* Y; g0 e
)

Sao chép mã