|
|
- (defun c:ss1()
9 }% `+ B8 R. G; G - (setq old_osmode (getvar "osmode")
- I/ V9 n" b3 J1 i - old_autosnap (getvar "autosnap")
& Z) P( z; s0 M - ) o) f$ j% s7 c
- (setvar "cmdecho" 0): _ f- u- X( W6 V' [
- (setvar "DIMZIN" 0)
- H; _* _# p% k; w' i0 y - (if (= Ty_le nil)% @6 ]( B$ {, j: n& d
- (progn
6 M+ w' q1 z, y8 p @ - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))( _+ J( q3 v2 a+ z, W8 f6 w
- (if (= Ty_le nil)(setq Ty_le 1000.00))3 z6 A2 M, ~& T- H+ t
- )
' }4 w- \: V; E: l9 @8 R' W - (progn
& E6 s) h, o |) f - (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
& H& j& _% d% M2 [2 F/ s5 ?& R/ ? - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
" |; ~( C/ N- p5 P1 @) a3 X8 k - (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
6 R: F K; `- }% P1 [! K- w: A/ ` - (progn
. r* W: D" \, b, |: \ - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))0 G# Y2 P+ g1 D& |# t
- )7 @8 c* b8 @% R8 n
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))& @( K- |, Y% l+ p B4 h
- (progn4 S) i: I0 g: F5 R3 I" I4 O
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))1 v' C3 f* T, i" Y
- (if (= Ty_le nil)(setq Ty_le 1000.00))
h" I% Z* k7 P4 ^ - )1 M# L6 k* h$ S0 r6 K
- ) : j( r* {+ a% V
- )# v$ i9 D9 Z3 {7 b# {$ h$ g
- )
& B( ^0 G; U5 h2 b8 p8 R/ z, l V - )& E" b" x+ Q6 g4 F2 n0 f/ K2 o
- (if (= So_Le nil)! @; m) J1 F3 S% E" c% G# K+ z
- (progn
8 A8 X+ B0 |6 L' v% y, f - (setq So_Le (getint "\nnhap so le dien tich <2>:"))* g4 N. b, u( D2 k
- (if (= So_Le nil)(setq So_Le 2))
" B0 g8 U& L$ i - )4 {2 L" Z2 d' Q: Y2 d! _5 L0 H
- (progn
# r" b: B2 t; S3 Z2 _, L - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
0 d1 H7 B4 N; |9 ^# f3 n - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))# p3 v3 T! j0 h, ?1 p
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
+ \: I( O/ y- F* M' [' U - (progn! j g5 p+ a! {' S
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
! |* O$ ~% p1 e5 ~ - )
" R/ T1 _+ r& F8 m W; ?0 W9 N - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))1 c2 n& |9 V1 C( s
- (progn2 R5 _2 L% _- ]" h1 ^
- (setq So_Le (getint "\nnhap so le dien tich <2>:")) a( G- O! n2 |) I% U: o
- (if (= So_Le nil)(setq So_Le 2))
; _+ w! k8 N4 n& a. M0 q! t/ [/ j - )
% }2 O8 n7 P1 b3 L - )
/ G9 Q2 j/ G- Z3 W1 F* b6 i% t - )- ]3 I# j; {' D1 a+ C
- )
7 m2 s6 i: W) c! a; l* a - )! `) I7 U$ W) ^/ i9 u. Z! Y1 |4 Z
- (setq He_so (/ 1000 Ty_le))( |! @+ S# ]9 w. K4 L; w* t
- (setq He_so2 (* He_so He_so))
- F, O/ ?( Y3 ?: U) s2 r- e1 z - (setq dtl 0)5 Z V3 s3 H9 r) A. `7 w
- (setq ss (ssadd))- X- w, U& T. P' F& j
- (setq oslast (getvar "OSMODE"))- u8 U) O5 Y; X4 t- H4 y4 G; _$ Y
- (command "osnap" "")! P* U/ @+ H0 a2 C$ I
- (print)" c) n% e! s$ U% M
- (print)* T8 W/ E) Q4 E6 f; @
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
2 C8 ^) [, d) [3 `1 p J/ o5 O" R - (while (/= pt1 nil), r) F2 Z7 a8 t( t& K4 m1 w
- (command "-boundary" pt1 ""), ?7 U& l: h* d4 H8 n
- (setq et (entlast))
. f% `/ N7 y0 P: o8 B - (ssadd et ss)
, b V2 v( l# k1 ^ - (command "area" "e" "last")6 l# z( N# [$ R8 F7 c
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
1 e8 {. N0 o: q n9 O7 R% L, s - (command "hatch" "ANSI31" vsize "0" "last" "")
; j1 P" U+ Y1 W% E' b% z" } - (setq et (entlast))
2 y, l- H- y6 a Z$ v4 S - (ssadd et ss)
3 L2 V% e. O, Y' d5 H: _& ] - (setq dtcon (getvar "AREA"))
: x" K3 `/ \3 {3 [ - (setq dtl (+ dtcon dtl))
|, }& k8 J/ c- ^& V" I; ^ - (print)4 `- W6 U+ J4 W7 W, P/ Q4 q2 b; q
- (print)& u: T4 i; m. e; J: O! c
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
% A& z, x% I) r - )
, q3 V, \* s+ n9 ~8 d - (command "setvar" "OSMODE" oslast)
1 T \1 T+ E+ o" m" _% T - (command "erase" ss "")
W4 k; N2 v! n. Y - (setq ss nil)
) G- Z; u& j5 _8 O' S& r: r - (command "redraw")& Y7 p* F) S! d: z, u8 G
- (setq dtl (/ (/ dtl He_so2) 1)) + o. X" `; p7 z3 A8 d1 [
- (setq en (car (entsel "Thay cho so : ")))# \. g$ i/ E$ L. ~6 m) v( I
- (while (= en nil)
0 }3 `$ _* ^* j! S - (setq en (car (entsel "Thay cho so : ")))
$ v( `0 q D2 w5 f& { - )! g9 t, D/ [3 r4 \
- (setq elst (entget en))
( u! m. u4 \$ l6 d - (setq elstold (assoc 1 elst))
# d! o1 f) o) }2 n$ F% ^ - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
" c$ r3 i, J, t5 K& l - (setq elst (subst elstnew elstold elst))
: c! w& W* q' s, T; {1 }( Z; C - (entmod elst)
1 \; y1 X' l! W$ e - (setq elst nil)
7 G' X/ r0 |$ M8 l5 n - (setq dtl nil)
( x+ r2 ` x! F$ U& U C* s - (command "_change" en "" "p" "c" "1" "")# \7 P; t% H: D3 V: a
- (if old_osmode (setvar "osmode" old_osmode))
N7 q1 U8 }+ t+ I% W3 U7 s - (if old_autosnap (setvar "autosnap" old_autosnap))' q9 J. R s0 i T0 r" H" L
- )
! k( }8 f1 }: ^/ \, U+ p - ;==============================================================================
3 j) r$ _$ G! S8 G0 v! X) ?0 K - (defun c:ss() W# e* S3 G9 J' m; K, E
- (setq old_osmode (getvar "osmode")
6 C% X7 _7 g5 r% Q - old_autosnap (getvar "autosnap")- F, w0 e; }0 x5 _3 J, O. W: L
- ) 2 o& Z3 o' _5 I v3 Y* d
- (setvar "cmdecho" 0)4 ^5 K+ F! P' U# \# H
- (setvar "DIMZIN" 0)
' |- ~6 i) f# R% f - (setq He_so (/ 1000 Ty_le))4 G' A* ]4 m8 r9 F) L4 I; K
- (setq He_so2 (* He_so He_so))
' [# x. T' M! H2 B' n- z R O - (setq dtl 0)
* K; N# y' l: v: A, g - (setq ss (ssadd))- f \. P+ q( O
- (setq oslast (getvar "OSMODE"))
: _& j4 s- m) g. P - (command "osnap" "")
& o2 }) G# L+ L - (print)8 t/ G: J, K6 d0 I
- (print)
' D! `1 p( d! K% h. l# p! u - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))+ f* [) p7 r3 R+ P# R) }# o* a$ Y7 Z8 q
- (while (/= pt1 nil)
( u! b3 I( F6 o. F - (command "-boundary" pt1 "")% F# R: E) O0 S1 L
- (setq et (entlast))
1 O" ~1 }: |4 M7 d& w7 b - (ssadd et ss)
5 h0 p& U. w/ ~, W/ Q - (command "area" "e" "last"), J7 K$ L" T1 z+ W( s
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
0 M+ S( k+ {* ]' y& B7 g: d- i0 D3 b9 [ - (command "hatch" "ANSI31" vsize "0" "last" "")% [0 \1 x/ I6 u; ~. z
- (setq et (entlast))
* f& @ i( F' ^1 m& k - (ssadd et ss)
9 m# C. N8 o8 g @# m - (setq dtcon (getvar "AREA"))
$ H1 E( U2 ?+ |" v; ~5 c" A- g - (setq dtl (+ dtcon dtl))9 p6 [- ?) V' _3 z5 B" K6 E
- (print)
; P& F& i5 _0 l# _# f+ E& E7 R - (print)
$ X# L/ e& O, V G9 ?# ? - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
7 Y- G' Z: k% G* U' B - )# o% u2 ^2 f3 ]0 \0 X# S1 E o5 _* @
- (command "setvar" "OSMODE" oslast)
! M5 x/ Y$ g3 d( U+ b% U2 X - (command "erase" ss "")! p/ Q" A, b/ e* V9 b; K, K
- (setq ss nil), n7 T( u9 }' n! _6 K) K
- (command "redraw"); [2 m. s6 g0 ~ w$ S% G3 R1 @, N
- (setq dtl (/ (/ dtl He_so2) 1))
" A' W( r, K+ ?6 ~8 [ - (setq en (car (entsel "Thay cho so : ")))& H, \" |, T0 T
- (while (= en nil)6 J: V" ]6 D+ x7 |! w% f* M8 q6 |
- (setq en (car (entsel "Thay cho so : ")))
, f% {& ?* z: T9 t - ) A& S' M) d6 L v& _1 S
- (setq elst (entget en)): a& s# F, n" t( q
- (setq elstold (assoc 1 elst)) 8 r& v! I8 W9 I( G. H: W7 Y
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
! ?: ?& B2 Q$ u* p B' L - (setq elst (subst elstnew elstold elst))
# i5 L: @" C; O9 w9 D - (entmod elst)
1 B/ }/ ~0 A/ B) L/ G7 M) x$ F - (setq elst nil)9 n. v' \: c2 ^% _ _; J, d
- (setq dtl nil)
4 t3 y! v* }7 ~* `6 I - (command "_change" en "" "p" "c" "1" "")
. R- w5 }2 m1 J' k1 x9 [ - (if old_osmode (setvar "osmode" old_osmode))
+ \4 @. Z5 K8 f. q H/ H" K - (if old_autosnap (setvar "autosnap" old_autosnap))
" r2 E7 G8 k( l, j- r1 f0 d - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)