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 M6 W) \3 |, R% H
(setq old_osmode (getvar "osmode")
, }2 \- H$ H& f8 G: n# M
old_autosnap (getvar "autosnap")
2 W, V1 Y& A) W, X; B2 z+ s8 y7 P
) 6 y1 k4 B- w/ P( F$ M3 `# Y) l, o
(setvar "cmdecho" 0)# b1 R! h4 o5 h0 l! z; H3 E
(setvar "DIMZIN" 0)( s0 a( u: M+ O
(if (= Ty_le nil)
(progn5 c6 f5 x. L& `$ J+ e( G+ w
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))" y- R8 U k7 A8 e5 C- U, e
(if (= Ty_le nil)(setq Ty_le 1000.00))
$ r0 W3 @; a4 w4 ?
)0 F8 c4 f' }5 S: S
(progn
1 @9 O( z0 s7 e+ n i# A
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))0 B% K( \' ?! [8 Z7 Q
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K")); ^, @* k" q ~9 S8 [ q2 ]& D3 ^& ?
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
( O; D. b* y% V$ `' b- z
(progn
; R. q% I# ~ K7 V: g% A, I: |" a3 _
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))0 v& a0 p& ~# P1 c9 x
)
- u7 z7 k, h* l5 }0 B) U( {
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))' x6 G1 [. E' e8 D3 X
(progn
* h, H/ g4 `* N& w& b) x
(setq Ty_le (getreal "\nnhap ti le <1000>:")) U% Y9 l) r4 P( ]& ~2 @& |
(if (= Ty_le nil)(setq Ty_le 1000.00))3 @" t* L8 x( ^- g/ L0 ]# B* T
)
- d1 M* H9 v7 m& o' H+ S8 y
)
$ L! L7 Z. t. ^; }% C0 A
)
3 @: ?2 G: [ k2 ^2 j
)
; F, U" l6 u4 ?! J+ q* m$ s
)" w9 g2 v9 K4 F* h
(if (= So_Le nil)' b/ x' ~7 d9 k$ ^& a
(progn
1 U# J0 |( T8 `( X8 X2 x* Q: }
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
' T: ?% U7 W9 P+ P) E% ]
(if (= So_Le nil)(setq So_Le 2))) z; x3 M/ w1 Q+ j; S3 ~+ [
); l; S% R& q8 O8 t2 E J. {+ k, i
(progn! P( D2 a' K& g
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
( X- p, u( E- e; t: y' J
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))+ q5 k y4 a6 S( R1 x2 o; n2 o, [/ P
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))4 V Y9 V/ o7 f/ S7 f% \
(progn) V( N% R& I3 s) h
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
/ \; {4 r |6 A- \
)
5 @; R7 L& d- |$ w7 I
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))4 y* @ Y7 f4 Y4 ?; Y
(progn
# q- G9 I, G$ t7 k- M) r* k( g! z @
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
/ ]6 ~$ g# C( f8 F& b4 h2 G" g7 j
(if (= So_Le nil)(setq So_Le 2))
5 f1 f+ c* ?. i0 ~1 _ K' [
)) s& E! v6 j8 L- {
) % U D- [6 Q# g9 ]. l& C
)
5 Y4 s" |$ k3 [
)( T$ Q9 o# S, U5 y
)
7 Z+ a2 _6 `- I) q m, R5 |/ U
(setq He_so (/ 1000 Ty_le))
6 ?1 {" F# o( F$ m& h# g
(setq He_so2 (* He_so He_so)) 1 q% r5 _' Q# b% v8 C
(setq dtl 0)
5 X# [! F! y, Y5 e5 {
(setq ss (ssadd))4 r: C+ i% U6 K2 q( P
(setq oslast (getvar "OSMODE"))' q8 z) j! v3 t& r, @. x; Y
(command "osnap" "")+ v9 n9 G ^/ r$ Q; r& P% E, q
(print)( z5 w4 {, o! A9 Z- R6 r3 V$ s
(print)4 f7 m0 B' U; A3 {8 t% C e/ C! R- B3 r
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
* p( @; X# u$ V1 K5 e
(while (/= pt1 nil)
# y4 w0 ^2 t% I" } K
(command "-boundary" pt1 "")' [& f; F# q# S' u
(setq et (entlast))
" }" b V p# x3 J0 W# o
(ssadd et ss)4 {* k; I* l+ U
(command "area" "e" "last")
3 F& ~8 `5 N, {# K; O
(setq vsize ( /(getvar "VIEWSIZE") 50 )), E s/ v( c. |9 V) r1 w
(command "hatch" "ANSI31" vsize "0" "last" "")5 ~& I6 H& g8 J p( K
(setq et (entlast))5 S! U+ b2 t7 D1 F) y1 ]. O! e9 G2 U
(ssadd et ss)# r9 ~- Q3 o, M: W& _" | ?1 p
(setq dtcon (getvar "AREA"))+ n2 {( l& w. g7 w* v4 J; [/ f( }
(setq dtl (+ dtcon dtl))
, N) k/ Z9 L$ b, G2 A
(print)' V0 L; e3 C% D
(print)
$ [) B4 @( d: S( W6 I, e6 y; E9 Y" r
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))& c2 H, c2 S- g' H u
)
% \, h5 I' F4 @: P4 B/ L
(command "setvar" "OSMODE" oslast)8 R6 R. D, y8 M; Q9 X. q& E l
(command "erase" ss "")" g6 ~1 t; ?" m# O* e' J' A: P
(setq ss nil)
# I- ~7 G. n. u8 }
(command "redraw"); H! a" S' \" g) V! A( W
(setq dtl (/ (/ dtl He_so2) 1)) 1 F+ J3 K, A: g3 F
(setq en (car (entsel "Thay cho so : ")))6 G1 C: B2 K3 ]6 ^; q- w% R! X7 I
(while (= en nil)5 ^' x5 O3 s6 C1 y" r
(setq en (car (entsel "Thay cho so : ")))
* e% L# c/ I1 f4 H. B; q7 n
)% v# [ e& h% i E4 `
(setq elst (entget en))
: L* b) z4 O9 W/ n" b3 ~; z
(setq elstold (assoc 1 elst)) ) U w2 h! m+ ?5 q
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))4 o5 e! S7 v" i+ p X( S
(setq elst (subst elstnew elstold elst))8 x" w/ J* I2 A
(entmod elst)
$ t0 r( M: }) m# \* f. K
(setq elst nil)
9 i& y6 W6 n' y3 Q' o) W/ M- r; O
(setq dtl nil)
7 I; U' O, j( g$ c& X; s* h5 ?
(command "_change" en "" "p" "c" "1" "")% p: r# F" a& l6 d
(if old_osmode (setvar "osmode" old_osmode))
& B. J& q6 F8 _: B( }* ~
(if old_autosnap (setvar "autosnap" old_autosnap))5 o6 K7 K6 O3 ?- y4 v4 c
)
$ w! P) F* k; V' b! s
;==============================================================================
T& s4 B' z: D8 t' M
(defun c:ss()
( S) o# o& G2 f+ T1 O
(setq old_osmode (getvar "osmode")1 i8 a# K& q7 h& ?4 Q- }
old_autosnap (getvar "autosnap")6 g. m6 r' ~5 r
)
9 G/ K) }2 o3 `, H& b
(setvar "cmdecho" 0)& B5 P. Z- y& g6 ^' ^' F
(setvar "DIMZIN" 0)
(setq He_so (/ 1000 Ty_le))% M( c5 J2 n4 P; r$ e, y# ]
(setq He_so2 (* He_so He_so)) * o- i3 O- k7 G! _. h
(setq dtl 0). k6 Y7 f' c0 b
(setq ss (ssadd)); Y3 {, T2 q7 W3 M5 Q$ p: q
(setq oslast (getvar "OSMODE"))
# T) @3 _0 r1 P6 o7 x+ ^- Z% |+ f
(command "osnap" "")
0 v& v( B# {( j: @
(print)2 @2 @) M A' P
(print)) `+ A) j( D0 f# V
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))6 W( w0 G0 m# C% k6 E' ~: Q
(while (/= pt1 nil)5 T8 |6 |4 s- v& c& H& z
(command "-boundary" pt1 "")
7 ~% ]/ }6 H: m' `9 ~- A
(setq et (entlast))) K$ M8 @ s+ A' G( v9 w' s y
(ssadd et ss)6 L4 S5 x) o. _
(command "area" "e" "last")
+ q! r# W1 Y$ e: W+ d6 P
(setq vsize ( /(getvar "VIEWSIZE") 50 )): n: B. @8 q W& Q2 O5 N/ q
(command "hatch" "ANSI31" vsize "0" "last" "")
7 ^% d" a, K9 F
(setq et (entlast))
, d$ G/ `0 K* E1 V5 S% f
(ssadd et ss)/ t6 }5 V- @* d
(setq dtcon (getvar "AREA"))
: S& h0 i) J- J m6 ^
(setq dtl (+ dtcon dtl))0 l: r3 z" g7 b( z1 j" T7 {$ F
(print)
3 ?2 Y) f, D' Q) N; t& S
(print)
* J! E$ }6 y0 |$ _$ n4 Z
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))$ c$ J N) U! v% b j1 Y
)
2 |7 t" R7 A% ]" o
(command "setvar" "OSMODE" oslast)
! n1 ]6 f9 w% a1 A5 h* L- a
(command "erase" ss "")& y/ t w- X3 O% J' u o
(setq ss nil). w1 U5 S9 w; O8 i
(command "redraw")' I& ?3 `( g& D: ?8 T$ d2 c
(setq dtl (/ (/ dtl He_so2) 1))
5 S7 ]+ a* J/ W8 L, s+ N% c
(setq en (car (entsel "Thay cho so : ")))
, ~' s; d5 [1 e7 x+ x: f3 G
(while (= en nil)/ d) S$ T& D; G+ [7 v5 ?& Y
(setq en (car (entsel "Thay cho so : ")))3 r" T. u, I$ ~* b) e; d4 |
)$ a! G# T. a3 {$ z _ @
(setq elst (entget en))
5 k* _ \6 p x4 Z3 O
(setq elstold (assoc 1 elst)) 7 q' l! w: h8 f1 M& U
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))8 U+ d2 r' D1 b9 w& o: \. [
(setq elst (subst elstnew elstold elst))
(entmod elst)
^; k" n& q) J$ Z
(setq elst nil)
- ]* O. M0 V7 O& N- ]! c
(setq dtl nil)
+ h% E! r* {" k2 V9 F
(command "_change" en "" "p" "c" "1" "")/ ^2 [2 r7 g) S, t! A1 u) Y5 t c
(if old_osmode (setvar "osmode" old_osmode)). }7 t7 i# A7 t0 q! h; ^
(if old_autosnap (setvar "autosnap" old_autosnap))9 I8 c3 R2 M) d, z, }+ F
)

Sao chép mã