|
|
- (defun c:ss1()
+ `7 V: q! x" E- {& f - (setq old_osmode (getvar "osmode")
, t, u: B/ r& M - old_autosnap (getvar "autosnap")
0 [; W* U6 C. F) x8 t1 q, { - )
+ f1 \+ f6 Q8 E' Z- x; | - (setvar "cmdecho" 0)0 r- E4 w$ k3 Z% C
- (setvar "DIMZIN" 0)( P, E6 `; ?+ Z q* e
- (if (= Ty_le nil)
% h" A6 I2 L/ }( _" l1 v - (progn, _7 L$ l# z: b5 b$ C# Z4 Q$ H
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))) X& u$ {% w: O" o; W
- (if (= Ty_le nil)(setq Ty_le 1000.00))
( G0 T, [3 c6 I+ [ - )& Y" B1 M4 ~5 W( e
- (progn7 z7 h0 C' V' O% v
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
+ g/ t* g9 H! R' }3 P* C - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))# z3 x% a5 {- c% T2 A7 N
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))2 Q1 u% S! U" N! V* a
- (progn
2 T- H$ v7 l) ?" D0 d% M' O - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))/ ~8 E8 F# n, m! B7 G
- )6 h, Q7 N$ f$ W: C! g8 m% Z
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C")), o8 x/ P, N% K: z9 C3 L% K, M
- (progn
2 I- Z5 s" n" I - (setq Ty_le (getreal "\nnhap ti le <1000>:"))0 q: ^) l H3 y5 v" ]
- (if (= Ty_le nil)(setq Ty_le 1000.00))+ `* X' E: i) M8 w
- )
% y; \. H1 k. [) \ - ) ) O8 u, M4 \1 ^# B0 e
- )% Q$ d; B3 ~9 |" u" M' _
- )/ ^- G* P; V; @" [) G( i
- )7 U+ C! o. W. N5 H
- (if (= So_Le nil)
9 J/ ?- h9 }3 L7 H$ ^8 X - (progn
3 E( e( A9 @' V# L) Y- K- r - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
. H! _# r8 A3 e# ]' ]' s+ h - (if (= So_Le nil)(setq So_Le 2))! _/ x8 E; z' h& r/ D$ r8 F
- )3 [) }1 f* `! N E3 O, b
- (progn! N+ J5 C# T) y2 L; `
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))* J* D) |5 e& v2 z! g
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
5 |4 V4 ~* ]4 j e: t) j5 \, ` - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
9 \9 t) A# W+ a3 q5 f4 e9 ^" O - (progn. W8 |0 h- F) n) s1 H
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
: }: g! K& I J3 L G6 j; Q - ). L2 e2 ^9 K! p$ N) E6 W
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))+ W: q% c* D% c
- (progn7 n0 y; c. v4 L/ e) l+ a0 e
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))
) k) D1 x' X3 }! c9 l' m/ ^8 _ - (if (= So_Le nil)(setq So_Le 2))
3 o) S; i' `; ?2 \" [ - )
7 R7 n5 {2 q Q4 L* L5 p - )
+ a. `& q; G! u- ]% A - )
8 i4 k1 e8 Z. b% j - )* H& t% x& g4 U! E
- )0 q0 \/ _. | V$ e" @
- (setq He_so (/ 1000 Ty_le))8 c: |+ n0 s/ M, } I8 j, P
- (setq He_so2 (* He_so He_so)) * K) n8 a6 _% m' I( K
- (setq dtl 0)
`7 X$ p' I! \9 Y - (setq ss (ssadd))/ v- J# Q: D& E, }4 E8 U6 A, D0 k( ~
- (setq oslast (getvar "OSMODE"))
0 c6 M3 S: A5 [" P. I - (command "osnap" "")
6 r3 h- X7 t1 |3 b- U4 k+ D - (print)
4 v0 x% q! v4 Q1 r; ` - (print)
! m6 x& L3 \9 l0 Z3 g - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")): w6 }. A6 S2 }9 T( ?
- (while (/= pt1 nil)
- u1 C9 N# d4 v. _6 D; o8 u - (command "-boundary" pt1 "")( f1 Y* ]0 g) a/ _
- (setq et (entlast))
9 O1 W2 C3 t( h6 \7 \$ B - (ssadd et ss)& n" ]4 O1 u9 P; \
- (command "area" "e" "last")) m+ N( T0 U8 b% @* G
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
0 i F* V9 m* ]% h; {+ l' ^$ l3 g - (command "hatch" "ANSI31" vsize "0" "last" "")1 j5 h8 R" w. N# \; @. M
- (setq et (entlast))
9 l* G% E/ p/ u5 O0 t: n) ^+ w - (ssadd et ss)
1 v: y% l% J% C4 G1 _ - (setq dtcon (getvar "AREA"))
- w# _; W' K! v- S - (setq dtl (+ dtcon dtl)): h4 z/ p, |$ _4 i* j. T$ k, |* t _
- (print)9 s+ @& B7 G: c, L" U. b5 x
- (print) |, p, r. Z* O: V& n& d' ]
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
! o& W! M3 m; T8 Y- V - )
: c1 p [2 x% r - (command "setvar" "OSMODE" oslast)$ K+ S1 ]+ c6 @2 g) a% L+ w% }
- (command "erase" ss "")& u8 B! [) Z# V) r# }: W- H5 Q
- (setq ss nil)$ t- @: g: c3 \6 n
- (command "redraw")
3 C* B) d: k1 F% H. }6 ? - (setq dtl (/ (/ dtl He_so2) 1)) 5 v- N% K# y. Q) q a7 n. e
- (setq en (car (entsel "Thay cho so : ")))
9 b, v& b8 `6 _3 s! |* I4 r+ Z - (while (= en nil)' Z R. h+ L# _ a+ n7 S
- (setq en (car (entsel "Thay cho so : ")))
, C3 F/ M5 D$ D& q* p: E) | - ). p3 R$ x; \1 u- F8 c* G
- (setq elst (entget en))7 }: y' G g0 ]& c# | ^: _1 s* i5 G
- (setq elstold (assoc 1 elst))
1 D6 w0 ]) j4 b2 y' \8 w - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))( w ?& W7 H- u: A7 V% z/ a/ F
- (setq elst (subst elstnew elstold elst))
! J8 G0 F+ Q# O) d- u - (entmod elst)$ w6 L2 e0 T g7 A- l* T4 n
- (setq elst nil)/ l# {" {- A A5 S' Z9 a
- (setq dtl nil)) x$ r# R# |3 F. O6 x
- (command "_change" en "" "p" "c" "1" "")
: Z+ }8 p. G9 Q8 M. G/ ~1 g) h% M - (if old_osmode (setvar "osmode" old_osmode))1 m$ a' P( N! |- l* }6 R* N
- (if old_autosnap (setvar "autosnap" old_autosnap)), o9 q0 G5 v9 X# y' Q$ u" [# g2 T
- )0 p; R4 A7 d& G$ H
- ;==============================================================================# }* |5 |( v0 |
- (defun c:ss()
: N; t) z# {# G& ^ - (setq old_osmode (getvar "osmode")
& S" R `. Q/ _7 @: s6 H. X# `3 { - old_autosnap (getvar "autosnap")! r6 J' a# v1 J% [8 {8 s
- ) 5 \. c' b* P& u h
- (setvar "cmdecho" 0)/ ]$ w" T4 g7 m4 O3 a9 h
- (setvar "DIMZIN" 0)
" p& j$ d1 E% l8 }7 s, F1 U - (setq He_so (/ 1000 Ty_le))
( _; l6 q+ Q- p' d - (setq He_so2 (* He_so He_so))
, A) w5 O9 ?, _5 t - (setq dtl 0)1 G: Z- v8 P8 f' Y
- (setq ss (ssadd))
) g B3 V! a4 M - (setq oslast (getvar "OSMODE"))
1 ^: y U9 @1 A; y3 K4 _ - (command "osnap" "")+ h/ V2 D i7 s- w' _
- (print)5 J, D: Z; y, R: |# I! {
- (print)
$ E2 ^ y( K! `3 c7 X4 H - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")) S" Q+ ]" T! ]
- (while (/= pt1 nil)
& }' J, N8 L- M1 [+ p- W- n8 d J+ J' n - (command "-boundary" pt1 "")
2 v: M- Z7 j5 m+ x - (setq et (entlast))* Y4 T/ a9 ]; \, a: E4 r- l, @% J8 Q
- (ssadd et ss)0 V8 K7 A$ j8 ?, K+ F
- (command "area" "e" "last"), m% f; z( V. A" s# G/ Y
- (setq vsize ( /(getvar "VIEWSIZE") 50 )). Z7 @8 _9 K8 H( h$ ^9 f/ a
- (command "hatch" "ANSI31" vsize "0" "last" "")
X9 M x& i7 {' `! b2 f - (setq et (entlast))" Z% D9 L e2 s0 o; ]; X2 S0 m
- (ssadd et ss)7 M8 o4 }" d: J+ n) k. d$ V
- (setq dtcon (getvar "AREA"))
: [: ~* w) n3 e) A& U - (setq dtl (+ dtcon dtl))3 M, \2 Z4 t- {
- (print)
1 E1 M# T* t# J4 `* e. h - (print), E6 \" G+ T& U5 Q& Q) j1 D" U
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")) r* Z8 m# I. j( Y" A. P) }$ I
- )" o# \" X' u+ |1 ~) d/ K
- (command "setvar" "OSMODE" oslast)6 h/ g1 p/ | v0 c. k+ C
- (command "erase" ss "")
# {" |, `- Z5 {/ c% y: l - (setq ss nil) q- m& ~% s% U( g+ ^$ {( q
- (command "redraw")
* m8 Z. H3 \: U, \ - (setq dtl (/ (/ dtl He_so2) 1)) 7 s8 C' S, |6 R7 T! r2 y6 @3 N
- (setq en (car (entsel "Thay cho so : ")))( \6 p8 U: P2 h# a5 F. Z+ j
- (while (= en nil)
! l: C' y6 L0 y- q. r5 N - (setq en (car (entsel "Thay cho so : ")))* a) E9 \4 C, O! }: y6 w) `
- )3 [! [$ _3 }- b$ L5 x
- (setq elst (entget en)) S% L O, G4 ~7 K. m6 u. Q
- (setq elstold (assoc 1 elst))
! z- J4 @0 D& @& l% i. z. _9 F - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
, }3 E- `! e8 x9 ] - (setq elst (subst elstnew elstold elst))
! I u! I4 [& Z/ e; u - (entmod elst)
* U) H: ~, O7 j% _2 v - (setq elst nil)) F5 a! Z5 l+ p& R" q
- (setq dtl nil)
& n& N0 |0 \/ d4 G; H( i; Q - (command "_change" en "" "p" "c" "1" "")& g/ A" Y/ U& }! n" T4 F0 x
- (if old_osmode (setvar "osmode" old_osmode))) U; W9 l. y& p3 S
- (if old_autosnap (setvar "autosnap" old_autosnap))
. `' l1 n/ M$ @* Z - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)