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()
6 J- \' ^2 E! ~9 W- F4 W* W& ^' t
(setq old_osmode (getvar "osmode")
p9 ~* [# F1 I( \# h9 ?4 m$ t4 P
old_autosnap (getvar "autosnap")
: H3 e! P4 b. g0 ^5 F2 F. ~
)
. p) ?8 K) Y9 m6 p i' W8 \5 A
(setvar "cmdecho" 0)
" R- j+ ^1 G+ k5 D9 n
(setvar "DIMZIN" 0)
" G( E l. @5 n
(if (= Ty_le nil)
% N/ ~& J# J) E; l4 Q' ^
(progn6 u0 _3 G, ~$ t3 Z& m" L& f
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))# }+ \1 o# _' h$ u
(if (= Ty_le nil)(setq Ty_le 1000.00))3 M1 e# {/ @. B
) l" z/ a$ Y" v4 I( N; }' V
(progn
+ E" @4 G4 O$ H& t
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))& C( Y4 o* j, B% G
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K")) A* f! N. } k6 E& b# T' t$ X
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))3 x* S8 \4 x3 m- L% q! { I
(progn
. Z' r5 E& \8 E9 Y, z9 d/ r/ T) D* p& ~
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))/ c7 z, C" ]/ ~: L& ]# M* @
)
2 c. d- s8 s* K
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))" A+ K" c- G9 `) Q1 C/ n5 p
(progn" `4 T3 ]9 K8 ? J
(setq Ty_le (getreal "\nnhap ti le <1000>:"))
. k8 h! q' z) n
(if (= Ty_le nil)(setq Ty_le 1000.00))
: Q! K( N9 X$ {; S$ Q. E# E+ P# I( \
)
( p4 E4 d n- ~( g- l. q" i
)
( H" m1 U3 ~4 Q: O1 i
)) y: I9 D/ l |7 R/ T; U
)
: {" p% w, V% S5 f# }$ R/ m' n
)% K M2 c" j- u9 ?& A" n
(if (= So_Le nil)) y* H# p7 I, Z/ J
(progn7 P0 Q# I- S" h7 j# w
(setq So_Le (getint "\nnhap so le dien tich <2>:"))3 d/ E( m2 h$ @+ L. |5 V
(if (= So_Le nil)(setq So_Le 2)). ?) i0 |' a5 |+ n% m- {0 L
)0 a2 A# ^; J s- O; Q8 V4 n5 H
(progn) @; m7 {9 I1 y I4 A
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
2 i; [! u' M* G
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
$ H- p3 ]4 z {. m+ J1 K0 J
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
: ?6 Y! q( {1 d
(progn
- z: g$ V; q5 s9 F- F3 ?
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))9 ^6 w9 Z' f8 }* T
)
" E( S3 ]6 w8 N* i+ n6 L# ?
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))- ^* I" X: ~* M1 H! H$ \
(progn" G3 z8 l9 j8 @ n
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
9 V* O) X/ m9 r* d# y& S+ T" j; ]
(if (= So_Le nil)(setq So_Le 2))
" ]' b( B1 R$ g6 F
)5 F6 f' b1 ?/ @$ c
)
4 o3 @1 i+ W) y$ B! G
)" A8 |* P- Z+ X% `% Z+ V
)
4 d( h$ }5 x& W' e0 X" L
)
6 {9 y, ?# `7 K7 \; @
(setq He_so (/ 1000 Ty_le)); k# V3 Z0 g! E n
(setq He_so2 (* He_so He_so)) 7 k8 ^/ U' n8 u6 j$ H
(setq dtl 0)6 U p/ i' \0 B0 U# o3 ]0 L# B
(setq ss (ssadd))
4 p% m7 T* i4 @$ s5 u4 K' f
(setq oslast (getvar "OSMODE"))( w. B4 X3 d$ N) f
(command "osnap" "")
U* r: J* O" C, Z; _3 \
(print)
3 V; m4 b6 E+ |8 l; F
(print)6 O: v& K: e" O6 @: P* q! F$ H
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")), v2 I1 K, }3 j: e4 H
(while (/= pt1 nil)
4 y0 z4 E- n5 N. E
(command "-boundary" pt1 "")
% ^+ v* V$ x. j/ m
(setq et (entlast)), V' c$ [4 y4 S2 _
(ssadd et ss)
9 X. F. I) x r/ z2 n: m
(command "area" "e" "last")8 y& F8 a/ Y* C# B, _0 q" z
(setq vsize ( /(getvar "VIEWSIZE") 50 ))2 ~. J. I: O# a" ]
(command "hatch" "ANSI31" vsize "0" "last" "")3 A x. q0 b) Q9 ^5 f% Q) B# ?: T
(setq et (entlast))1 }+ n0 z2 D- F+ f2 I) F% }
(ssadd et ss)) c' Z1 w- z. |
(setq dtcon (getvar "AREA"))5 O! Y6 U) c/ M/ m3 B( b9 l
(setq dtl (+ dtcon dtl))$ M9 t9 f5 a% r+ b; U7 r
(print)% l. @8 d$ k, h: E4 j( f1 F/ t
(print)
2 D( @6 V' ]6 T3 v
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))8 V4 R7 @6 V6 t! {' k- O
)
; {1 a# L4 d! m3 |
(command "setvar" "OSMODE" oslast)
q1 E! p# x4 z
(command "erase" ss "")
+ f* j* \+ K7 X
(setq ss nil)
, @$ C1 U, h" k! C6 B: p
(command "redraw") W+ V& K# y9 @
(setq dtl (/ (/ dtl He_so2) 1))
) o. n4 U4 h* S V/ d* h; t
(setq en (car (entsel "Thay cho so : ")))
6 M- Z9 y' ]# M# g
(while (= en nil); |+ w+ O% k2 c) m* C6 ~0 O
(setq en (car (entsel "Thay cho so : ")))
, D7 h/ d- E9 A+ u1 |
)
" `, [. }% E" k; l; Y( k
(setq elst (entget en))
# x( S" r7 _6 J" M: C- m. d
(setq elstold (assoc 1 elst)) , h# p3 O3 J# j: X5 ~+ R9 C! g# n
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
7 X9 C9 _; M9 M% h$ P% ]; R+ R
(setq elst (subst elstnew elstold elst))- c1 n9 `0 ~. f% x! n% ?/ [& y* C# p
(entmod elst)
- f. E0 ?2 Q+ g5 \5 {
(setq elst nil)
0 U/ Q1 @6 E2 j/ |! b1 D/ _7 `) s2 l1 F
(setq dtl nil)
' F6 h- t) K& h: @: M
(command "_change" en "" "p" "c" "1" "")
) ?) S7 B5 R8 J8 D+ J& B2 m; a
(if old_osmode (setvar "osmode" old_osmode))
) t" h+ F1 v$ D% F, ?3 ?
(if old_autosnap (setvar "autosnap" old_autosnap))( s/ @/ Y" x/ ?. }- n" M
)
" \- }- y e! d# \; S X
;==============================================================================
/ d) }; b9 W; P
(defun c:ss(); o2 J) R5 @9 _- Y
(setq old_osmode (getvar "osmode")
9 a2 j7 M, K. T" G, b
old_autosnap (getvar "autosnap")0 j2 S1 N/ _- h1 _( [; [. t
)
% W/ n% A- \3 H
(setvar "cmdecho" 0)2 B/ J+ W' w2 g' _' w+ G. Z8 x; K
(setvar "DIMZIN" 0)% _2 S8 l, ^6 `$ W5 |, I
(setq He_so (/ 1000 Ty_le))8 Y" W9 a. Q# i+ e! L6 U
(setq He_so2 (* He_so He_so))
, ]" b4 s' A1 D+ I8 x
(setq dtl 0)
/ `( ]) G; w' ?3 B: b
(setq ss (ssadd))
# f I- Q5 \; L2 o6 Q0 F4 Y
(setq oslast (getvar "OSMODE"))
8 e0 \5 Y0 d- ^
(command "osnap" "")
5 U2 o1 G7 o6 W
(print)- X4 W( J" t1 M( i6 \
(print)
+ W2 V4 F2 A; [8 b6 E
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))8 b3 A7 R% |/ X8 _& A7 Y
(while (/= pt1 nil), X" S3 Q7 |: h' w
(command "-boundary" pt1 "")7 R. W$ |- t- r; h% k y* G
(setq et (entlast))+ ^: k& j4 G! ]5 K4 x3 ]
(ssadd et ss)
6 G- j- `0 o5 ?3 U
(command "area" "e" "last")
5 F7 ` r1 c5 f# C
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
5 A5 X [' ~ w. B0 K+ j: [1 X
(command "hatch" "ANSI31" vsize "0" "last" "")
. r) U* L$ j1 X; F" T6 C
(setq et (entlast))0 c) k! o& [. t( M0 W
(ssadd et ss)
$ L: _2 x- U$ i# V2 ^5 f o
(setq dtcon (getvar "AREA"))+ W9 p0 ^& s- G2 x/ t- t
(setq dtl (+ dtcon dtl))
" U6 i! e! O) Q4 i2 G+ Y" i' O
(print)2 I0 J$ [ I5 `2 P X
(print)
- D1 L) ?: w& O2 Q$ O# `: r
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
9 R6 }7 ^, n# }& E y6 b/ D4 R
)9 I! Q A- ?$ x- X: a
(command "setvar" "OSMODE" oslast)
. H1 I5 ?, g4 }+ [+ v4 V0 @2 @. @) E
(command "erase" ss "")( m% f& ?" j0 |0 U L
(setq ss nil)3 ^3 G6 x9 P }2 Y7 i
(command "redraw")
$ g- m0 Z1 b$ R
(setq dtl (/ (/ dtl He_so2) 1))
& S, k& j) Y) m* ~
(setq en (car (entsel "Thay cho so : ")))
# B8 o- M' V1 c) S- I
(while (= en nil)
! C: \4 B/ {% F- m" h; b; ^
(setq en (car (entsel "Thay cho so : ")))
9 q- k% m) V4 |4 B+ [: b, ^% R
)4 I1 g# I$ k# p# G7 T; ]0 Q
(setq elst (entget en))- |+ y, ~- ^( k3 e; A
(setq elstold (assoc 1 elst))
5 e' A6 w' d- I/ \2 ?: B' ^! P7 i
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))1 G- P( t% {7 V( O2 ~
(setq elst (subst elstnew elstold elst))
5 j# N# n4 A3 ]9 R# Q' `8 N
(entmod elst)1 I M5 \8 R9 [7 s
(setq elst nil)8 k6 |' n0 i, i5 t* D0 R# S6 ~
(setq dtl nil)( \$ ^) B9 r9 U) k! J6 ^
(command "_change" en "" "p" "c" "1" "")
; w5 h* l' ?; \/ Y; t, s$ D
(if old_osmode (setvar "osmode" old_osmode))
+ G7 i+ t7 l% ?1 j9 L, p
(if old_autosnap (setvar "autosnap" old_autosnap)); k# U2 Q( W0 w/ v( j3 O
)

Sao chép mã