|
|
- (defun c:ss1(). A% h( `* F+ R! _* j+ \+ l
- (setq old_osmode (getvar "osmode")
! z! e# l- |2 A6 c. S1 H& B D - old_autosnap (getvar "autosnap")
+ C8 f& f5 r1 o9 @3 a - )
# m% J3 k$ w7 g; F - (setvar "cmdecho" 0)+ ] p4 P7 d# X/ F7 J0 G
- (setvar "DIMZIN" 0)- ?7 z$ u d6 N" K, \/ e
- (if (= Ty_le nil)
. V0 M8 B7 y' ^7 L4 L - (progn
* A) G$ N, ]; T; c% s) N - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))
/ X) w- I) T% y - (if (= Ty_le nil)(setq Ty_le 1000.00))
t! ?: e, X: e. @ - )8 f8 r4 R; I& @! g
- (progn; U. |9 T7 F U% h5 ?) g2 C6 m
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
) b' I; e+ s6 u/ }- K" v& \+ L2 J - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))0 m+ |# ^9 ^$ P' W S) z0 J2 B- ]
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
( {$ [1 ?& |) X8 l - (progn" D; W3 H+ {( ]9 U2 D' U- N# s
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))5 B, X0 ~4 R, W1 k8 S
- )2 ^/ m1 F3 k5 }! s7 V, R" o4 P
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
3 o3 A1 w, H, I/ r - (progn
% I; u* h+ s4 e. u0 k( U% [ - (setq Ty_le (getreal "\nnhap ti le <1000>:"))6 Z* W& S! a) T% u! k- t8 Y" n
- (if (= Ty_le nil)(setq Ty_le 1000.00))
e! G u, ]9 c* | - )& t5 f% m9 U( `9 J( n
- )
) m5 J1 D7 }; U3 y5 L- E! o: K+ C6 ] - )+ ^" n) d. W, q: J- d3 h; s
- )
$ h: @. a( L+ @! Y* h# p/ B' r# M - )% R& w# b, ]1 o) c/ v8 c
- (if (= So_Le nil)9 w$ f9 J5 _; M( y' ^' h
- (progn
9 L4 k D$ E! {( y G! p - (setq So_Le (getint "\nnhap so le dien tich <2>:"))3 w/ D0 C- S9 F- ~& H. r! t
- (if (= So_Le nil)(setq So_Le 2))2 O; \* H# {7 S5 [' g0 ~
- )
3 {! N f2 M6 _* r; G# G! F - (progn7 f0 J, X+ p+ e/ K! B# S1 h
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))5 h! o1 T0 ?1 m+ A! }
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
$ x; k, K) r3 s$ f! I! w% [: M - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
$ I5 J( _3 N2 a% x9 E - (progn E5 Z$ U0 S0 x& g2 v
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
, M/ h/ f7 |% Z+ ?+ Q- n - )
8 P0 P4 Q2 h5 ]: p2 V5 R: \; S7 x - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))4 U& d% [5 B4 S4 a
- (progn6 O4 U# e1 K. f) _) E! u. h
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))
9 T& |; g8 O/ H+ _+ ? - (if (= So_Le nil)(setq So_Le 2))
- ^- c7 T% b5 d5 s5 t( _ - )
6 u2 I8 ~. `* {4 I- d3 b - )
* ?5 U3 U3 H4 j/ h9 G" P - ). F1 L/ x& O8 c% N. ?- E& z6 G
- )% R. f" W) k0 N. D: J
- )
$ Q& N( I( d" Q, f% w - (setq He_so (/ 1000 Ty_le))
- s( ]; I" |/ c* C3 D - (setq He_so2 (* He_so He_so)) ) u' M/ e6 m A8 p# Z% ` G
- (setq dtl 0)' p: x, F" A/ H4 ^3 D' N
- (setq ss (ssadd))% W+ s- e# l* i' Y0 }4 v9 L
- (setq oslast (getvar "OSMODE"))
3 n9 w1 n; ]+ v! U- o+ C - (command "osnap" "")5 I" Q/ u, Q" y( k, |+ i
- (print)
% e0 p |6 y9 C- V - (print)
3 q5 ~+ a" l1 y3 j& l+ v - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
5 L( p# Z: y, W6 t6 H - (while (/= pt1 nil)
" a2 k* y1 r S - (command "-boundary" pt1 "")# g$ o* d% ]8 g7 j; U
- (setq et (entlast))
1 H9 o% d$ m( O2 J% d: ] - (ssadd et ss)
* P& {8 o! \' v: W6 i. C. i; U - (command "area" "e" "last")
]- w" d e) a r/ b - (setq vsize ( /(getvar "VIEWSIZE") 50 ))" c0 v# T" B6 p
- (command "hatch" "ANSI31" vsize "0" "last" "")8 h. F; q$ p- Y% x& D4 q( G
- (setq et (entlast))
2 f8 u- @/ A( L9 S# i! E - (ssadd et ss)
7 _9 T* t2 } K% f5 c - (setq dtcon (getvar "AREA"))" y9 w5 f/ @( B8 [" z
- (setq dtl (+ dtcon dtl))3 J0 H0 R3 j6 F6 D
- (print)
" v4 \% f. p6 f - (print)
4 u P& w. T7 X - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
: ^ U6 X8 d- o: _ - )
. {& p, e" n u/ _ E8 f - (command "setvar" "OSMODE" oslast)' V# Y& k1 P& P$ y( N: T; B( c
- (command "erase" ss "")9 Q3 x" g; Z) |& o6 [ |1 ^
- (setq ss nil)
- N- c2 F2 ~( T/ A2 V - (command "redraw")) ^: ?2 g8 S# p5 [7 d% x% b
- (setq dtl (/ (/ dtl He_so2) 1))
7 m6 H. W6 Q: v9 J- J( u- T8 t8 B - (setq en (car (entsel "Thay cho so : ")))/ B& n$ b/ H3 s" r' X! S: u8 K S
- (while (= en nil)" W; Y! R# ?+ Y* \8 f
- (setq en (car (entsel "Thay cho so : ")))
, C/ R# {- K2 B9 V - )# z% @3 F( L8 ]
- (setq elst (entget en))
* G+ {+ ]; x, Y& n! s1 ^ - (setq elstold (assoc 1 elst)) , m9 G, c% U! w9 i3 c" x
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))6 R0 s, r9 I( A. [4 @
- (setq elst (subst elstnew elstold elst))
& f4 ?1 [/ U. h# @ - (entmod elst)
3 X2 V' P! M6 U$ l) G6 N8 N1 ] - (setq elst nil)" x) ?" p9 b4 [1 J8 N4 ?
- (setq dtl nil); A: [8 P1 M$ Z
- (command "_change" en "" "p" "c" "1" "")
. x- x' [4 u; j! J - (if old_osmode (setvar "osmode" old_osmode))
, p; G9 Q- X" C5 P - (if old_autosnap (setvar "autosnap" old_autosnap))
8 K" a* v/ E" k4 t4 E F7 x - )8 T0 P4 ]. E) g9 _3 n1 s, R
- ;==============================================================================
1 @0 D% G' u2 Y3 B2 T( v( M - (defun c:ss()
# g- d' T& R+ f4 ] - (setq old_osmode (getvar "osmode")
m3 N7 n" K% t$ D) j+ q) e+ c( k! v - old_autosnap (getvar "autosnap")! k3 ?( Y1 ~% @6 A. }, p
- ) : L2 L2 e' b( A! h$ |
- (setvar "cmdecho" 0) M. D1 M, }9 v7 A7 u, k) b
- (setvar "DIMZIN" 0)4 @( V, s1 p, X, G( n
- (setq He_so (/ 1000 Ty_le)): R# f* K+ n& ?
- (setq He_so2 (* He_so He_so)) # [% [5 N3 j, `2 K# |: Q# ~
- (setq dtl 0)' g: m! a, t( V* |
- (setq ss (ssadd))
4 _3 J4 N- Q5 S) u - (setq oslast (getvar "OSMODE"))+ U* U) g$ d8 K' t h. s4 W
- (command "osnap" "")( H2 h$ y. L5 i* M
- (print)
& F" U7 K. h) d1 m! A" J5 R - (print)7 }) `, S( o( [; g9 O4 f+ Q
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
- d4 F) }8 h( E9 Y, B: K& Y' w - (while (/= pt1 nil)5 E4 h8 ~+ ?2 }' u% a% [# Q
- (command "-boundary" pt1 "")
) W5 U7 z3 ?1 p) W' C! _ - (setq et (entlast))
- H+ c- T- c' w- C - (ssadd et ss)3 t E/ }6 g, p1 R; X6 S. q
- (command "area" "e" "last")
+ a9 \: v. V. s7 Y9 S }$ } - (setq vsize ( /(getvar "VIEWSIZE") 50 ))
$ I3 L& d9 m- r& r# U - (command "hatch" "ANSI31" vsize "0" "last" "")
( [6 Z- Z6 F* M9 ~% l7 j- e - (setq et (entlast))( X8 S8 r- ^( @. @2 D0 d9 S
- (ssadd et ss)
" a/ P/ }$ H0 s. o# y0 u# U - (setq dtcon (getvar "AREA"))! l+ u: T) q8 H6 c8 w
- (setq dtl (+ dtcon dtl))
; Q" L3 v5 S f# Q2 ?' }) Z - (print): y. r8 v& k* Z' B8 ]
- (print)7 l' L% p( M3 U% |0 a$ H" k
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
4 I5 p L+ _- J8 j4 n8 x - )
; l+ N9 X7 x$ l4 ^ - (command "setvar" "OSMODE" oslast): D2 E2 B" M3 s
- (command "erase" ss "")( @8 D1 `- y1 d' J% v N6 V
- (setq ss nil)! @* v) e5 g- H9 {/ n# U1 O7 g. j
- (command "redraw")
4 y* u( J6 L* c3 s - (setq dtl (/ (/ dtl He_so2) 1))
/ [+ Q- @0 E/ j4 u - (setq en (car (entsel "Thay cho so : ")))9 W/ M6 x& B9 t6 o$ m
- (while (= en nil)( l# V5 V* c6 A4 [2 X' [
- (setq en (car (entsel "Thay cho so : ")))
8 x0 F# j, Z$ A, ^ - )/ p2 P: D/ q: P2 e3 K
- (setq elst (entget en))4 {. n5 B) n4 q. Y$ `$ M3 C
- (setq elstold (assoc 1 elst))
2 a( t) }2 G0 d; K, K" } - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
m# z5 G' y+ B - (setq elst (subst elstnew elstold elst))9 G, Z; @! ]! t! {
- (entmod elst): T8 ^8 K0 I$ c4 W' h
- (setq elst nil)
- A% r/ R j2 Z# H1 v - (setq dtl nil)
2 V8 u& b- Y; o/ q s8 T c6 ^ - (command "_change" en "" "p" "c" "1" "")
0 Q/ S1 W3 U d) | - (if old_osmode (setvar "osmode" old_osmode))
r/ P, q7 F+ |, z0 z - (if old_autosnap (setvar "autosnap" old_autosnap))9 N% U5 e% ?6 g5 \6 a* s# }$ A
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)