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()/ k8 ]$ o6 _8 ~
(setq old_osmode (getvar "osmode")) Y, H: O% k. D/ O" y
old_autosnap (getvar "autosnap")' t: a2 ^+ t2 b# I$ E- T9 F* e
)
- F; \4 M$ o' V* `8 p. G
(setvar "cmdecho" 0)# m$ Q! _5 |8 r6 P
(setvar "DIMZIN" 0)
: [ R. r0 s( Z( w
(if (= Ty_le nil)
' O* f g- b# R6 N2 z- J
(progn
: u v8 s4 A) o# ^8 Z
(setq Ty_le (getreal "\Nnhap ti le <1000>:")) Q+ E- i: T5 i; @: n
(if (= Ty_le nil)(setq Ty_le 1000.00))
* R. s, `! r5 ^: Z/ Y+ z1 [
)
% {+ O% u3 z, M4 k# H5 w G
(progn9 f7 h q+ B. ^! V
(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))( M! y- u' d) y/ G4 U4 `
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
( G* ~) L+ {& z* [
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
0 ]9 B1 u1 l/ \6 y* K: t
(progn, T8 ~6 W# @* h+ o* h& g
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))
1 u" N& f+ `, d/ J
) o" h8 \7 Z: P
(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))& p( Z4 g* o# N: r+ C- n! v# l
(progn
: z+ \0 l7 u8 \' o
(setq Ty_le (getreal "\nnhap ti le <1000>:"))
& D; h# q! e. R& V- U$ l1 f) J8 ~! c* M
(if (= Ty_le nil)(setq Ty_le 1000.00))4 Y" d F B5 `! ~% w; d
)+ d K% s/ s; V5 @4 g- O2 h& P
) " S ~. p0 G/ h% N7 m& M- C
). r! P3 h9 Y8 t3 B# @( E
)8 }; m$ E- u$ f, n6 {# a
)
7 [9 l( @1 x3 [3 `
(if (= So_Le nil)
& Q1 [3 i. i3 t, S$ Y9 d; e' o7 `8 n- F
(progn5 j! D: T* s, w6 [, z& F/ n) q
(setq So_Le (getint "\nnhap so le dien tich <2>:")): O0 c u2 [/ x% c- ]
(if (= So_Le nil)(setq So_Le 2))
/ U" T) Z$ r4 }$ o) x# v& w
)
' ^$ _9 T" f" E# e b" Q3 Y. o
(progn
* X( B' x% X3 }
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))6 o/ `& U6 m( e# }- I1 ^, m
(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))4 z2 R1 a2 L$ Y+ _
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
" b0 d* ?3 s* w
(progn7 ?- P0 f# S7 R1 H C
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
7 b- C- a8 p$ f- a6 A( R4 r
)+ [+ e3 {" e ~
(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))* u7 d8 S; V, w5 u% |/ N& M
(progn
* X, V# R n0 p- j0 {1 Z
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
& r2 h$ s5 b' W7 M* }8 C
(if (= So_Le nil)(setq So_Le 2))" ]4 |$ ^$ b- ~7 ]% i- i
)( L+ x# \& k; V- p
) $ e* ~- p. v1 X* P- o
)
% B# l; I5 |3 Y8 ? V7 s" Q, M
)! n0 }' X% Q! u7 o6 E2 |
)3 ]. X) v4 y! f. l6 I" f4 X" C
(setq He_so (/ 1000 Ty_le))
3 |. t" H; D0 M9 K. [
(setq He_so2 (* He_so He_so)) , O) d3 b" m2 G! S
(setq dtl 0)) S" L) ~: @9 C! A. ~, s4 ?* f
(setq ss (ssadd)). Y! f* [) R# |. M* J
(setq oslast (getvar "OSMODE"))
(command "osnap" "")7 Q" V/ E7 ]( i0 j# F+ S
(print)3 F8 A I% B" n9 ?, [3 E* \
(print)
) a; V% i2 K }' \ c$ A- l9 l
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")). J8 f6 I R! K$ G
(while (/= pt1 nil)
+ c) M' N' I* s- g. T
(command "-boundary" pt1 "")
9 J, Y* v5 P$ v3 y2 Q1 D2 Q1 x" r
(setq et (entlast))
0 |# h& z2 n. C- D( m
(ssadd et ss)- T7 \! E! v" \0 B# }; q; X
(command "area" "e" "last")# \2 H: z0 h: B8 l% v1 \) F2 ]8 z
(setq vsize ( /(getvar "VIEWSIZE") 50 ))
' p+ [0 ` Y& G$ _
(command "hatch" "ANSI31" vsize "0" "last" "")
$ X# u9 O/ H/ Y' O
(setq et (entlast))
3 y. j- n, U9 K% a1 D
(ssadd et ss)
) S2 b+ a- q7 U) i9 G6 `/ S
(setq dtcon (getvar "AREA"))5 h# ?* f% @" `- d! |* K9 i
(setq dtl (+ dtcon dtl))5 H3 ]* ], p0 S& @
(print)
# p3 S5 N) U( X: {3 {' X
(print)9 l7 R: h6 p( O9 c7 S
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))$ \/ I R3 z3 J& K1 s" [6 l# e% X5 v
)
3 c. w3 |: x* ^' ~' L
(command "setvar" "OSMODE" oslast)
2 w) U- a0 a3 {. p/ C* l
(command "erase" ss "")
8 X1 ^+ c! ^% `6 f7 c
(setq ss nil)
/ X# N2 A( G, m8 n4 p5 c. j
(command "redraw")) n: d! ?2 ^: S! M2 ~& v+ |/ T: o
(setq dtl (/ (/ dtl He_so2) 1))
/ J2 }0 l9 [* Q2 g8 p+ Y
(setq en (car (entsel "Thay cho so : "))); @1 ], ]& d; X0 z$ Q3 z! T# d. l9 M
(while (= en nil)4 |/ S- p* U7 \# [1 @" [
(setq en (car (entsel "Thay cho so : ")))- v; E x* t4 o+ G5 K$ J: t
)
* C# Z+ b5 V/ C0 _
(setq elst (entget en))
6 \5 |, g; Y0 c# Z" @; a/ E5 R
(setq elstold (assoc 1 elst))
) [0 p. w9 _: d% Y- O8 G% T6 D
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
9 n7 v5 X/ L! Y* P2 U/ w0 j
(setq elst (subst elstnew elstold elst)) T* s8 y% g3 s4 [9 X( J
(entmod elst); Y6 [( x7 _5 z$ Q5 U
(setq elst nil) y1 Y5 D* g8 l& u( g
(setq dtl nil)1 K( o4 C3 V: t$ D
(command "_change" en "" "p" "c" "1" "")
5 u/ s" n1 n/ ?$ m% D4 f
(if old_osmode (setvar "osmode" old_osmode)); @) f1 `3 U- j2 u
(if old_autosnap (setvar "autosnap" old_autosnap))
: {8 z7 O8 k: u- a8 ~
)+ i, C! n+ w" ?4 }+ B+ m
;==============================================================================2 {2 k- q- p y2 E2 q0 _ ~% J. T$ B
(defun c:ss()5 g |( {) E$ ]& p2 x
(setq old_osmode (getvar "osmode")7 J+ d8 M1 `, H- a6 P$ E# S
old_autosnap (getvar "autosnap")9 A7 x7 |8 m2 m+ W+ C" _9 R/ s* b
) : y+ m3 c8 @4 W. A- T
(setvar "cmdecho" 0)! N# c3 C$ E# c: ?* E# Z
(setvar "DIMZIN" 0)
9 m3 n. i" L+ ^1 n! ], D, j# N! u
(setq He_so (/ 1000 Ty_le))2 d5 K* i+ _7 @
(setq He_so2 (* He_so He_so)) . I$ b3 f: D' o1 c6 _
(setq dtl 0)7 U( Q1 o3 e6 A2 a. M; W- M
(setq ss (ssadd))
% [/ j# W% ~" u
(setq oslast (getvar "OSMODE"))4 Q4 U0 U1 N! I6 H3 _
(command "osnap" "")
" }4 c! `) d4 N
(print)7 R& \, }3 {+ G
(print)& k# `5 T2 {0 k3 L4 f! M$ b
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
/ V3 C3 t! D! g L R' \
(while (/= pt1 nil)& K0 C8 x% @# `% a- [" m' s& y
(command "-boundary" pt1 ""); z( o# Q |, n* O' j/ q8 E+ C
(setq et (entlast))- ?4 U' r' Y2 ^5 q ]" ]
(ssadd et ss)8 w O7 t/ {4 j! v& q1 s* b1 c: N
(command "area" "e" "last")
$ {9 ~2 I9 l2 H# o! ~! v& h
(setq vsize ( /(getvar "VIEWSIZE") 50 ))5 r) f m4 @. @/ R, f* I
(command "hatch" "ANSI31" vsize "0" "last" "")
' x8 @4 j) p# |3 q9 ?
(setq et (entlast)), g$ r( H: o" P8 Z
(ssadd et ss)
6 l3 O; h! u9 O; y- w/ _6 b
(setq dtcon (getvar "AREA"))
0 l4 `7 S+ M, q3 p+ `% n0 \- z' I
(setq dtl (+ dtcon dtl))
- P' @# p9 p4 a* n! n3 x7 n' C
(print)
3 w& {* ~/ a* X7 \, u* h! ~
(print)* f# t8 o/ z" b$ F7 L3 v ^% Z( z
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))" e- ^ o1 C d
)
# ~6 S' S0 l4 [* W6 q4 R
(command "setvar" "OSMODE" oslast)4 j/ E! n' T( X7 F
(command "erase" ss "")* `5 M; }/ A7 D* O% |+ R( ?
(setq ss nil)
8 C7 | I+ L+ L, ?: t
(command "redraw")" G; k2 m0 l& X; ]0 d1 L
(setq dtl (/ (/ dtl He_so2) 1))
3 i5 W5 M$ V! E- B6 m
(setq en (car (entsel "Thay cho so : ")))
4 R$ A$ u; i# ~6 w
(while (= en nil)4 x+ ]) c1 S* ^7 j, `* E3 Q$ T
(setq en (car (entsel "Thay cho so : ")))% f9 t2 c. F f2 X+ }4 n1 f7 i1 W% b
)( K8 K4 F E! A% G
(setq elst (entget en))
) Z3 B4 J6 k2 Q* d, n
(setq elstold (assoc 1 elst)) ! B. Q6 [( x$ D! |1 P! ^
(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
# {! W$ A5 B0 e Z
(setq elst (subst elstnew elstold elst))
0 Y' E8 P9 F3 f O, p
(entmod elst)2 P/ z; Q5 \% I; q7 V
(setq elst nil)! H4 S- |4 j- p5 G; C$ W
(setq dtl nil)
. R' u9 r3 Z L, m4 j
(command "_change" en "" "p" "c" "1" "")
8 V( d/ h1 F1 U2 l& U
(if old_osmode (setvar "osmode" old_osmode))
+ [7 Q! I& v6 W9 e f
(if old_autosnap (setvar "autosnap" old_autosnap))
% I( d# c! [+ H3 ^4 s7 ]0 A
)

Sao chép mã