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()
: T2 w5 |0 S/ v+ }; P
(setq old_osmode (getvar "osmode")! a& @( i6 y/ B* l
old_autosnap (getvar "autosnap")- Q" I ` m- |6 z" Q
) # h1 J7 j0 }1 ~ e, ~! h; a$ l) b) S) L
(setvar "cmdecho" 0)5 X6 q- p# r- o8 P' p0 ], Y
(setvar "DIMZIN" 0)
" F: B3 Q! C% c+ @: E
(if (= Ty_le nil)
# l" F5 `' J4 o: S
(progn9 k! U$ x1 l5 L
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))8 A) x) {) |3 a' ~
(if (= Ty_le nil)(setq Ty_le 1000.00))
9 j/ f- \0 o2 `5 k; |; Y7 k' ~7 X+ F
)
, c' X' c* b; }/ m6 @$ N
(progn1 o" _8 i! |4 I; P' E" z
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))3 C( X0 E) X" ~4 n
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
' h a3 v7 ^' m) E' c8 a
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
) l; A# o. H1 E0 l" S9 g/ ]3 @* P
(progn ~0 E- v" g" ]" U0 r# t
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))
0 u8 t1 T8 F6 I% \: J9 ?0 w, F
)
3 k: [. h8 t; H2 r" R
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
' }' _% t, h; b
(progn; t+ @, Y2 d- V3 e. c) P
(setq Ty_le (getreal "\nnhap ti le <1000>:"))$ V/ F; A1 V. d0 j5 \/ w+ T/ f
(if (= Ty_le nil)(setq Ty_le 1000.00))
4 o) N0 v3 {1 |5 w# e5 V, O2 Y
)0 f3 L/ D% h! u1 c, K, Y' v4 \
)
% m& t" }0 f- u- E
)
+ g- ?" v# J$ \* k
)
9 C, k& A$ T6 Q
)
2 O- _3 s) V" r2 P! p2 w
(if (= So_Le nil)
) n" c% X2 I' E. I7 I2 J0 w
(progn
( t, T1 x* O& K3 X9 E
(setq So_Le (getint "\nnhap so le dien tich <2>:")) v/ \0 M7 W1 u7 l" J" {. M
(if (= So_Le nil)(setq So_Le 2))
) ?& @% e" M# t$ h1 }0 b
)
# j/ I' ^6 u& i6 W9 s8 \) }0 z
(progn. O: I4 A! q- b% ]4 e0 h5 \
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
" ]; Z. L* K) V( W" f
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
' T3 K+ J( g, Z J; I
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
5 v: U6 d7 B- R' k( Q0 k
(progn. B3 u# @3 Z% N3 `- X6 a% Q' b6 z
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))$ ^9 D9 n9 g1 u/ U' k
)$ P+ l! z9 i. d9 j! |6 e9 H# a
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
# L0 Z9 m ~) i; P1 ^2 i6 S2 R# a
(progn
8 ~* r; F. E* t( M& y' x
(setq So_Le (getint "\nnhap so le dien tich <2>:"))) |; P5 h& Y" E8 p0 N: T, ?
(if (= So_Le nil)(setq So_Le 2))
) J! P7 _( a8 v6 f6 u% g
)
8 Z- Y3 B2 `4 l, I6 U% n2 K6 G
)
# S9 a. f0 o( q- C' Y; ~1 S6 \
)6 R) B- c8 O- H6 u7 J5 z
)0 W9 F; @3 f+ U* u0 O+ A
): ]2 _$ G9 m& V$ V7 e$ h! r
(setq He_so (/ 1000 Ty_le))
2 T1 ] v. L% V1 {8 R2 H0 ]$ O/ T
(setq He_so2 (* He_so He_so)) 8 U- H6 l1 `8 I5 i ?1 B
(setq dtl 0)3 f/ q+ @ m" |0 M/ N6 E
(setq ss (ssadd))
# v0 n4 N( o9 U' C; q1 n
(setq oslast (getvar "OSMODE"))7 n8 l3 p* b5 ]7 z
(command "osnap" "")
6 Y) D* v0 U2 E9 H! v- w
(print)
' U$ ^4 }7 l: q1 P& e
(print)
+ l' i1 u. t3 Q1 D3 O5 T
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
4 ~7 A. u y( \0 N5 T, R3 T! S
(while (/= pt1 nil)
( \$ c8 E- c, P# g/ u
(command "-boundary" pt1 "")
1 j0 \) E. H3 `6 [. M
(setq et (entlast))9 G) d/ e ?: C; e) T2 n0 _
(ssadd et ss)2 T) k# g8 i3 s9 {
(command "area" "e" "last")
! M) v$ T0 N3 ~- R
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
0 o* y, v% C$ v1 q7 c4 _
(command "hatch" "ANSI31" vsize "0" "last" "")
! G" A* r7 F* u# f# ~9 J' s8 v; T
(setq et (entlast))% I) m j$ s0 E! o1 v# `( g9 v
(ssadd et ss)& o. i8 a; L/ n- @( J
(setq dtcon (getvar "AREA")): V: m1 q) G" t! d- b" Y! |: I& l* [9 F
(setq dtl (+ dtcon dtl))
( R' e, X( N3 u8 l6 D/ i1 \' v# ~
(print)
' e- n |) G' l8 @
(print)! R1 f& a6 }# Y9 x- Z$ {, ]& W# l
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
- F0 n, c2 F9 Z5 d
)
2 J1 Y9 [' X X
(command "setvar" "OSMODE" oslast)' n+ d, Q$ i$ G+ o( Q* y
(command "erase" ss "")
. `; ]$ R' r+ F( C) k; d
(setq ss nil)
' |0 E. U0 g% ]) L4 H# z5 M+ y
(command "redraw")
" N) T# q3 o8 d' g! ^2 T
(setq dtl (/ (/ dtl He_so2) 1))
8 E' H0 Z. G- {: S" x) V, D( p
(setq en (car (entsel "Thay cho so : ")))
2 k- f+ X9 v4 V6 m- d+ p
(while (= en nil)1 o% X5 i, w, w% ~0 }
(setq en (car (entsel "Thay cho so : ")))8 F" a0 A8 ]5 ]6 p( b
)
, _6 H- O' \; D# R1 O* o+ S4 t) k
(setq elst (entget en))( B) A0 j ]% N) K$ {4 j
(setq elstold (assoc 1 elst))
( K, e1 O% s v
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))" b, s" e2 {$ U0 g1 M% g
(setq elst (subst elstnew elstold elst))
8 n& }+ g ~% i9 x: k, R1 C
(entmod elst)
/ P3 W+ A' z( y/ H3 j
(setq elst nil)
& S# I0 b2 J& @4 z% E; l# |
(setq dtl nil)3 R* p) `5 G5 {2 F
(command "_change" en "" "p" "c" "1" "")
0 R; c- a& w4 |! t0 _* `
(if old_osmode (setvar "osmode" old_osmode)) F/ l1 L% H& O* T6 G# V$ U8 `
(if old_autosnap (setvar "autosnap" old_autosnap))
) k6 f4 s$ ?. m4 {5 B8 y
)
2 l5 ~3 v) E9 F6 O0 K" o& `% N* A
;==============================================================================
4 E$ F* y1 Q: F
(defun c:ss()# L& t6 v% p" L# M6 B& [
(setq old_osmode (getvar "osmode")
# \" q3 n* B7 K& E, m, p! p! i
old_autosnap (getvar "autosnap")
/ [0 F2 ^4 V1 W; A7 e
) 4 b! N" a4 d$ p" F
(setvar "cmdecho" 0)
" P+ G" O% p: R4 r- x
(setvar "DIMZIN" 0)
' g8 `5 A3 Y% Q7 o
(setq He_so (/ 1000 Ty_le))4 G6 m% r% f g* \5 s- F
(setq He_so2 (* He_so He_so)) 1 g: H8 F$ s. O9 f# h( d6 F
(setq dtl 0)$ ~+ w1 M+ ^4 x4 F
(setq ss (ssadd))) Z4 L/ W- h2 p6 N! \: I7 v
(setq oslast (getvar "OSMODE"))& g1 T# }% p- F
(command "osnap" "")3 x* ~6 |& N( n" p% i0 E4 F3 |5 x
(print)3 l% B* I* U& V
(print)
4 m9 c, ^% |3 m
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))( v$ t7 f3 U% w' l2 |' L9 }
(while (/= pt1 nil)) V/ \1 [ L; H; t& f# g, j! s
(command "-boundary" pt1 "")
3 l0 }; {* r; B5 h2 _2 C+ x9 _
(setq et (entlast))( b" u+ B4 s Q) o/ \* c
(ssadd et ss)
, [% c3 g$ w! S1 C7 a& \
(command "area" "e" "last")3 u: _! ?- d8 X! e7 `
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
& r; z5 [3 m7 t
(command "hatch" "ANSI31" vsize "0" "last" "")
; b3 j1 f1 v+ R3 X! F# f
(setq et (entlast))6 M! U) K r+ u" `0 Y2 a9 E- b( R
(ssadd et ss), R8 a$ r* ^3 c0 F
(setq dtcon (getvar "AREA"))2 p: u' _% J2 j; s1 e
(setq dtl (+ dtcon dtl))$ `/ V1 d/ k* k) D. X! U
(print)' n0 w% u/ Z; F
(print)
, F' K4 b K6 u$ k P! P3 ^3 V
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")), B) o, t0 \/ G: ~6 e$ T/ u. @
)
/ B2 ^: l3 C! [ z
(command "setvar" "OSMODE" oslast)" _3 q6 {* |7 g! G+ \ M' l
(command "erase" ss "")- {# Z. c+ \& H7 N9 q1 F
(setq ss nil)0 v7 _; k- Q8 G, S k( }
(command "redraw")3 t8 t+ m: c$ ?3 m
(setq dtl (/ (/ dtl He_so2) 1)) ( d/ U: v' k+ `/ j
(setq en (car (entsel "Thay cho so : ")))
) p% |, z% U/ c, q5 u$ C6 ]
(while (= en nil)
6 o' o% A- \! \- ~. G$ D% g
(setq en (car (entsel "Thay cho so : ")))) L5 L2 p/ O& U# b1 ?
)
- e0 R% Y+ U3 p
(setq elst (entget en)), n3 _: w; x1 M# }" n+ o
(setq elstold (assoc 1 elst)) , R; T8 |2 r% J5 `) [; C) m. a8 \3 m O
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
5 }' o. N' O" {7 ^5 A
(setq elst (subst elstnew elstold elst))
. H5 ~2 s/ g& `5 g" E) g7 K3 U
(entmod elst)
. A* c5 a% }' Y6 {; c
(setq elst nil)
+ T: L+ A$ D0 P) p
(setq dtl nil)
' L% x+ H$ h/ ~1 d- u
(command "_change" en "" "p" "c" "1" "")% [# p# y- b+ x$ p, H% ^* B" @
(if old_osmode (setvar "osmode" old_osmode))
; R; ] v9 H/ y" b' Q- O3 f5 W
(if old_autosnap (setvar "autosnap" old_autosnap))
3 l% t; \9 _. k" D& m4 F
)

Sao chép mã