|
|
- (defun c:ss1(). [& M2 ^+ A- ?, w( H5 d
- (setq old_osmode (getvar "osmode")5 X/ \+ J, `/ t! |
- old_autosnap (getvar "autosnap")
' q& i6 @2 t) D - )
5 Z# D2 U# ?7 v- A( P" H2 S: n - (setvar "cmdecho" 0)( j F, g: H- J
- (setvar "DIMZIN" 0); U$ A5 X; S8 N) T
- (if (= Ty_le nil)4 s. {" d8 g" p' d% o& o* Q
- (progn" o( R! s& A, Y. j
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))* Z, b8 b5 l# g& C
- (if (= Ty_le nil)(setq Ty_le 1000.00))
. `. U7 O- g; @# ` - ); R) n3 ]/ P4 ?& y5 w Z. R Z
- (progn$ ]2 l" @ u, R9 c8 {
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
9 d8 F& |# T( e, I" N6 P1 \ - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))+ _& ~* h* Q9 r/ [6 F+ o, I
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
# b j* Y: [1 `- \2 ^) u5 t: M - (progn
h$ h& |7 i3 k/ d& u/ m/ c - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
8 x2 B. |( k1 s" Z- r - )
# y0 m1 m* F3 a; i# } - (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
- L" m+ p$ l: L# Y, |5 G - (progn: T7 g, [9 H( Y; @8 {4 ]
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))7 v; f6 L! ~$ h/ A
- (if (= Ty_le nil)(setq Ty_le 1000.00))
3 z0 E8 j/ `0 @/ d - )
2 J% K+ S! Y6 {( V/ `# H8 U8 D" t - )
: S# a* \$ W; e - )# |6 \5 e& x! f8 K- w6 M$ @: `
- )
) k8 C9 s: _% E. b* u6 w, D! L - )
) n, ^' s. g9 T' _4 G1 h. r - (if (= So_Le nil)/ K1 i. C2 `9 K; n4 g8 M
- (progn7 d# Z- w) H' |; Q
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))! Y% a6 v$ h* I0 U( {2 F: s
- (if (= So_Le nil)(setq So_Le 2))( P% \: z; A ~' P$ v# J
- )
' k0 {5 Y8 N U( h - (progn
- b& `2 _' {7 p+ `7 I - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))2 F' {( t5 s. x; P- W' n( H) b
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))* I* f g8 I5 r8 N: ?
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))- z3 n% f# Q- m9 i8 U' x. y
- (progn2 g. e! m" s* r4 o2 w U
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))6 _; v0 z* n ^4 P
- )
1 O# |5 \- j2 l, n. x6 R( {2 V - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))3 P: ^2 \, s* c" e& M8 ?( }
- (progn k: q% `! ~3 o3 Y7 x- n; R
- (setq So_Le (getint "\nnhap so le dien tich <2>:")) s1 G8 O' v' G, Q
- (if (= So_Le nil)(setq So_Le 2))
+ w. [: `6 i6 ~) d - )1 E7 Y* q( G9 p/ M1 G9 R4 t& R4 S+ z2 a
- ) 2 x, O" }% X% p
- )
8 r4 e' W' Q2 L7 i; U7 R0 E - )8 b/ C; ~/ B9 \# V, c \' K
- )
1 c" y" T( C. a* ^- ] - (setq He_so (/ 1000 Ty_le))# `7 c8 B' N( @# h9 h% D$ r- _$ H
- (setq He_so2 (* He_so He_so)) * a! N! l, D; d$ ~3 q: y
- (setq dtl 0)- S6 N' e: Z1 z$ ]+ u
- (setq ss (ssadd)): K" k- D4 Y6 @+ P% f
- (setq oslast (getvar "OSMODE"))
! |/ M0 M0 e" s9 a; \6 F - (command "osnap" "")
8 ~' ?' l0 [2 L1 j! w - (print)
$ r) e$ w F, Z9 R& S - (print)
( ~, _( E- g7 z# E- E6 V - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
$ J/ p3 ]' U9 Z# `2 L b l - (while (/= pt1 nil)- j5 _! |( p% q8 w2 b2 A1 j
- (command "-boundary" pt1 ""), ~" K2 {! P9 J& c! R
- (setq et (entlast))0 {2 g$ y/ X$ w, r# X5 q/ c
- (ssadd et ss)
. g, b! J! f2 I% o' `7 Y - (command "area" "e" "last")8 u, F; v s1 ^- Q, ]' p
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
1 h, y" M/ a; E - (command "hatch" "ANSI31" vsize "0" "last" "")
, m4 U2 b& b& _9 ~/ L! s4 \ - (setq et (entlast)); o8 A3 k8 e' H% Q+ N
- (ssadd et ss)8 ?% W+ W0 j6 d1 B% @; Q# _
- (setq dtcon (getvar "AREA"))
! { V6 } C/ Q3 ^% O - (setq dtl (+ dtcon dtl))
Q4 r7 F1 o. x' J7 w% s - (print)
0 m. h; a7 d5 v- \/ m1 N% z - (print)+ K3 A# A' H4 t! M, S2 v' O4 x
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
$ z' o4 ^2 s, U2 r4 x - )9 i* L) Z5 o, p B
- (command "setvar" "OSMODE" oslast); n. g" R: K# K/ J- t' m% L, G
- (command "erase" ss "")
, U. }: A5 R% Z- X! j0 ?! C - (setq ss nil)4 n1 A: r) Z% q( [: l+ V3 _
- (command "redraw")5 Z3 A: a, R6 N
- (setq dtl (/ (/ dtl He_so2) 1)) # {6 K. _, B4 [, B- w
- (setq en (car (entsel "Thay cho so : ")))
$ C9 u$ u( J7 u R3 Q! k - (while (= en nil)
9 g) x5 j( L; E% j+ h+ N5 z. q - (setq en (car (entsel "Thay cho so : ")))' O/ a* q, F: r1 m) ?
- )" |) ^7 x) K/ @% l2 g. {' d4 M. _: \
- (setq elst (entget en))
" L, h% `- m& w5 N0 i" M - (setq elstold (assoc 1 elst)) 9 h0 U& M5 {& y* \; }/ A& q
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))) P/ ~5 \3 \1 }, I; Q) h
- (setq elst (subst elstnew elstold elst)) @5 }3 c; o! u! a& e: Q) H8 h
- (entmod elst): W& L0 M3 Y% { q B g& Z. a4 H
- (setq elst nil)
7 P" l" M. A% o v8 p - (setq dtl nil)
/ M1 M) [) q& B3 ~ - (command "_change" en "" "p" "c" "1" "")
6 J9 J) e& b: c& c4 |( t# N+ f - (if old_osmode (setvar "osmode" old_osmode))
2 x+ { W2 j, D, L: k8 G* I: Z; C - (if old_autosnap (setvar "autosnap" old_autosnap)); Z# c# R1 i4 F S4 t( Y9 |+ i) X
- )4 M4 @/ d; o8 V$ b
- ;==============================================================================
# x+ t9 _5 e$ x7 w0 Z0 j - (defun c:ss()
% S: e) B. [. q0 c - (setq old_osmode (getvar "osmode")% X, W8 g! x8 ? \, Z# B
- old_autosnap (getvar "autosnap")
5 p2 {- H7 K% I, k k* j# v- @ - )
4 {! I7 a6 X; I9 \! b3 G) H- U2 } - (setvar "cmdecho" 0)& ?9 V( U! R/ d- w4 G- ?& R
- (setvar "DIMZIN" 0)
* I* p$ e- b, P$ N9 ^ - (setq He_so (/ 1000 Ty_le))! B P- {/ j( m+ D. i
- (setq He_so2 (* He_so He_so)) 0 k8 U" x/ n, t) f+ q$ b. y
- (setq dtl 0)
) ~5 y4 ]1 [4 I) g2 } - (setq ss (ssadd))3 F9 s* ~) U R2 [6 T
- (setq oslast (getvar "OSMODE"))1 S$ K. }; Z% @9 z, P( i2 ]
- (command "osnap" "")
4 `4 _ U! e t7 z2 b - (print)( E$ [0 S# ^% h; H
- (print)2 I% K, m* s1 k
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
8 N8 E. F9 B; L2 B9 S! b* A" M( t5 R0 c - (while (/= pt1 nil)* R9 Z/ `! `, j' p6 M
- (command "-boundary" pt1 "")
% }- R, V! `& |! d) D3 @0 \' ~ - (setq et (entlast))
9 ^( r% C* r/ d - (ssadd et ss)
3 F. X, \& e7 |2 w; j A - (command "area" "e" "last")3 B+ E6 e7 u l
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))4 }4 Z9 S$ h$ P; e+ p- _ U9 ^
- (command "hatch" "ANSI31" vsize "0" "last" "")
! n9 A/ F' z6 l - (setq et (entlast))+ n5 \7 _' D) R# D2 v
- (ssadd et ss)
9 a. T8 I Q, H: s - (setq dtcon (getvar "AREA"))0 V! k. v3 X. G' e& @
- (setq dtl (+ dtcon dtl))3 g. @4 H/ G. E7 S6 }9 b$ s) i1 Y
- (print)
6 n$ R% x5 q7 w( s - (print), z9 H0 L1 T' v4 [, u' ~2 S% M
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
) d% \9 J% x4 g% }! h% c7 F - )
, g5 j; {' J2 `% t: F7 B4 f - (command "setvar" "OSMODE" oslast)
2 _0 o8 ~& E1 V4 }6 _. X2 l - (command "erase" ss "")
. s" k4 y8 r, n/ o- K8 r - (setq ss nil)
3 z6 h; V7 E v' Q: q" E - (command "redraw"). q% _8 C0 l7 R& [+ L. ?- J; p
- (setq dtl (/ (/ dtl He_so2) 1))
3 H' k% C2 w, F( a; _; j6 v9 [8 Z. k - (setq en (car (entsel "Thay cho so : ")))
$ O3 Q* C: ]) U+ M - (while (= en nil)# `0 f4 k9 H) T5 N5 ]6 y. t
- (setq en (car (entsel "Thay cho so : ")))7 [( d: p2 O5 \. ?/ `& S
- )- s. c d8 {! a" \- P& C' m
- (setq elst (entget en))
8 E) w+ I% y: g5 o - (setq elstold (assoc 1 elst)) 5 a3 ^7 _- m" F& R* a4 n
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))- ~4 k3 ^7 Q6 w0 P
- (setq elst (subst elstnew elstold elst))
% x Q( M& K6 E - (entmod elst)
- U' T e' a9 c- B - (setq elst nil)
8 Q! b% E: d1 V2 X5 m - (setq dtl nil)9 m$ z: d8 j r1 k' A
- (command "_change" en "" "p" "c" "1" "")% n! z7 C; I( O4 p- g
- (if old_osmode (setvar "osmode" old_osmode))
+ ?3 m5 W. l9 A - (if old_autosnap (setvar "autosnap" old_autosnap))
% W* V9 m I3 u - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)