|
|
- (defun c:ss1()
+ {* L* a# I' _! I - (setq old_osmode (getvar "osmode"): m5 u# X. y/ h
- old_autosnap (getvar "autosnap")5 x7 ?* X0 }1 I Z" |5 p& z1 a
- ) 4 g8 J7 N- s, S
- (setvar "cmdecho" 0)+ F+ U, k- m/ _5 Z$ P# w# Z$ @4 a9 Q
- (setvar "DIMZIN" 0)4 R6 C- [5 P) Y6 T6 O/ U( ^1 i
- (if (= Ty_le nil)7 a( Q( V! D. f# [
- (progn
- h& d8 c9 D- [8 @7 P& @4 N - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))
; P3 f. z6 |3 O" y5 f! \8 \3 B4 n - (if (= Ty_le nil)(setq Ty_le 1000.00)), C4 ]2 u* T) u" N5 j, [9 J
- )
( L% n" D3 _2 v4 f1 |3 l8 e. l - (progn
/ k8 {. d' T' t* }& r+ V$ T - (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))" J/ ]9 b3 n: O3 ]
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
& H* |& t/ y# e) w* r - (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
0 I) _* P" B) W6 V) g - (progn
3 b5 o0 Z9 @! J8 s0 | - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
. g) ~# z* G" S. P9 a9 v, [4 Z - )
6 t& G1 K( |- l, A Z - (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))- o2 j' v; p; m( v! ~
- (progn
: _0 `5 I7 `1 r - (setq Ty_le (getreal "\nnhap ti le <1000>:"))
9 k Q( c: `7 a: J. q% C - (if (= Ty_le nil)(setq Ty_le 1000.00))
# n1 n) |7 v$ M) S' Z) f7 ^0 _ - )
6 O* i: d0 f8 J# N0 ~1 ] - ) & Y2 B; ?7 A$ s: u, L
- )
q& b5 q0 J+ W; A( _1 |. d( e4 O- F - )
$ x) U7 E; ]" O2 o; L# I, c& U - )
2 \" d( S% o8 q* [1 k i% Z - (if (= So_Le nil)$ Z7 k+ p, X, t' I8 O
- (progn
3 D3 K- X6 d" c1 Q- B% z - (setq So_Le (getint "\nnhap so le dien tich <2>:"))! U9 G/ E7 x2 V2 m6 N
- (if (= So_Le nil)(setq So_Le 2))
$ }6 X7 d0 `- z# Q# q+ O s& e - )8 d+ @1 d. @5 V7 p
- (progn
o4 E: z& S7 x2 E3 V: | - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
- ?9 j6 [0 G7 T. G T - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
: b" T5 U/ y% f - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))3 p: J a+ b0 Z* |
- (progn
: s9 N! }; T! E5 K2 g - (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))! O; r0 N$ s5 P$ ^5 `0 ]+ l, B
- )+ O( A0 }" O- `$ ]( f( |+ n
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
9 N; X, k! t4 Q: p% ?; ^; d) {% k - (progn D/ \1 }6 a& P" K
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))
: @1 V1 ?) _* d7 Z& z2 B3 A! O - (if (= So_Le nil)(setq So_Le 2)), H( S- e* P: P
- )2 C2 }$ E+ d/ q
- ) - s0 h( l% Q6 i+ K% T4 v
- )
$ I1 i9 G9 @. e8 { - )
6 h% G- O b2 ]4 w k* j6 M' L - )+ H E5 j- i, L0 X1 | R
- (setq He_so (/ 1000 Ty_le))
9 B% ~7 q& B8 h1 R- B, \9 U) } - (setq He_so2 (* He_so He_so))
1 n) b! L3 f D+ `4 @ - (setq dtl 0)- O. B/ Y4 Z+ S( k
- (setq ss (ssadd))! a! s! Q* R2 S0 P2 c
- (setq oslast (getvar "OSMODE"))
: ^: I; L% r: E1 Q1 k1 n7 B0 `. [ - (command "osnap" "")
) h$ [ b& F& w0 T3 R% B5 K - (print)
5 _- @6 o7 }& o9 m% ]6 t2 o" ^ - (print)) s" x9 |1 V8 _
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")) i6 Z- |' d6 E. L
- (while (/= pt1 nil)
8 q+ ?. L+ H2 \( Y! O - (command "-boundary" pt1 "")( u- d' W9 s' S. r% ~
- (setq et (entlast))8 F+ f4 P. R. p1 F+ Q! w+ x, |
- (ssadd et ss)/ H0 R; b; I( `: s4 ~
- (command "area" "e" "last")
* h# p/ b j$ O3 B# `3 D) J1 s - (setq vsize ( /(getvar "VIEWSIZE") 50 ))% ]2 p0 o- h& D! [* R: D; z
- (command "hatch" "ANSI31" vsize "0" "last" "")
3 a$ V$ K% |# C" ` - (setq et (entlast))
) k, q2 Q5 z3 r: g( R - (ssadd et ss)
: }$ R0 \# ]6 ?! ^! N - (setq dtcon (getvar "AREA"))! v& k' r* n) Q) s1 J9 O
- (setq dtl (+ dtcon dtl))) H, \# l3 V, |' x* v( b. i
- (print)
" ^; e, z' ?+ p5 r - (print)5 M* g" Y" M& y: d5 y& m) D1 n
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))/ v4 }% U# n3 V, l' h
- )
# @' R7 @6 N. \9 d" r' b6 x - (command "setvar" "OSMODE" oslast)2 b! l3 b: v9 Q, X
- (command "erase" ss "")
$ o! u2 D1 X2 n% }' F; ^ - (setq ss nil)* ?1 _8 Y+ J5 [$ o Y+ W2 t7 f
- (command "redraw")
% |' d9 z( f+ B" d - (setq dtl (/ (/ dtl He_so2) 1))
2 f0 e3 ?0 k2 @% ] - (setq en (car (entsel "Thay cho so : ")))5 n; D. U4 [, W4 w `- j
- (while (= en nil)
! T1 a( M% {6 [- w - (setq en (car (entsel "Thay cho so : ")))
+ G1 A- K2 F/ {* f: x4 G; c - )
% D- \) Q4 _5 G. u( I - (setq elst (entget en))! }/ u% k4 Q3 D2 [2 L7 J g$ h
- (setq elstold (assoc 1 elst))
" H, N. |4 l9 O0 K; o - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
) w/ i7 L- `9 C9 }& @/ Q - (setq elst (subst elstnew elstold elst)). k+ e. O9 z$ P+ p0 q% l
- (entmod elst)+ v" h5 U# ^% [( p
- (setq elst nil)
4 y# Z ?3 ~# g/ O: y3 J) y) V - (setq dtl nil)
. a5 D9 E" _ j( i - (command "_change" en "" "p" "c" "1" "")
8 e V7 M0 w; d9 A. u3 ~$ t - (if old_osmode (setvar "osmode" old_osmode))
) J% I$ o$ x- @2 y1 ~- V - (if old_autosnap (setvar "autosnap" old_autosnap))$ \8 _% y* t" r4 W; W1 l+ |4 S- x% }
- )
* _- ~& `6 b' R! l0 i/ D7 H - ;==============================================================================
* ]8 s1 T2 z' u0 z$ s - (defun c:ss()
6 k% n& K1 ^) y: e - (setq old_osmode (getvar "osmode")6 ]0 K6 y( D# h9 i
- old_autosnap (getvar "autosnap")2 X, e! b" \8 E* q
- ) 9 r3 N# K' `' _# X' X! Z
- (setvar "cmdecho" 0). p- V+ O5 s. ]: n. O$ ^
- (setvar "DIMZIN" 0)0 U0 W; I6 @# i4 x& O, g
- (setq He_so (/ 1000 Ty_le))
1 Z: V& e: E) K7 N - (setq He_so2 (* He_so He_so)) t0 r( K- E9 S3 F4 @" O
- (setq dtl 0)
% Z; |! X5 B+ }) Q/ B6 L - (setq ss (ssadd)) a% _# o- P0 d" T: C: ^1 R
- (setq oslast (getvar "OSMODE"))
- |6 v) N) u: u( J- w6 K6 F5 I - (command "osnap" "")5 ^" F; |2 H. l; a
- (print)- A6 ?5 y# S4 r) }) H Q
- (print)
" {/ I6 V% ]* ~7 f8 A, G9 z$ T" } - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
% h) j; [, h, i6 \5 x) m# y6 ] - (while (/= pt1 nil)9 q9 ~& r5 v7 M" G
- (command "-boundary" pt1 ""). o3 ~& q: p8 z. N% U, B$ y# d
- (setq et (entlast))
; b1 p0 O% g# o' x( o/ w. _ - (ssadd et ss)
# @2 g1 l. W# u# s - (command "area" "e" "last")
5 {6 S; x- z* ]* @5 W& i9 u - (setq vsize ( /(getvar "VIEWSIZE") 50 ))6 C. y8 R5 Q: ^
- (command "hatch" "ANSI31" vsize "0" "last" "")4 J' J2 |. n0 b% a3 r' c8 p
- (setq et (entlast))8 D2 s# S6 k$ L# o! V
- (ssadd et ss) p5 d9 `+ q' i2 ], N1 | G/ g
- (setq dtcon (getvar "AREA"))% o& S6 A5 x. d6 ], e+ u0 ?
- (setq dtl (+ dtcon dtl))( B2 X8 y9 @ | s$ G& U5 g5 {+ D
- (print)% e) I8 I% x% F8 M! d
- (print)
+ B" o7 H5 a# `- |9 g( q! \ - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
8 u" g) F O0 H1 d& k5 N$ X5 i) R - ) n: Y" T+ A: A, F3 {# g
- (command "setvar" "OSMODE" oslast)
& u3 `% p" J1 D* g0 S: l4 b - (command "erase" ss "")
' a3 |# B0 W% n1 B6 B% l! F: [ - (setq ss nil)$ u; A8 L' S4 H9 F
- (command "redraw")
6 f, T1 a" S1 j" S7 N - (setq dtl (/ (/ dtl He_so2) 1))
|; d# N. z" W/ ~9 p7 T) E - (setq en (car (entsel "Thay cho so : ")))0 ]$ I& F: u. h3 D: E) z
- (while (= en nil): u5 }1 ]4 R+ p2 T
- (setq en (car (entsel "Thay cho so : ")))% U- _3 P0 A* N8 }3 q) _, l/ m5 `
- )3 E3 v" M# ~3 R$ y! A
- (setq elst (entget en))
: S( y, n7 q8 R+ \; L - (setq elstold (assoc 1 elst)) - W5 C. b s& s; n2 K% @5 z
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
6 x% h! T; Y$ E$ t - (setq elst (subst elstnew elstold elst))% V, Q# `/ s0 F3 ]6 E" m- [! \2 ^
- (entmod elst)( o! l/ F- M+ b0 Y1 J% W
- (setq elst nil)
8 u, i1 x5 Q, Q4 K, { - (setq dtl nil)
1 h# T2 }9 V( U( C# k - (command "_change" en "" "p" "c" "1" "")
7 K% L. S- a; p' ~9 K( ? - (if old_osmode (setvar "osmode" old_osmode))( ]/ b) Z' Q% D; i( E9 H# E3 K
- (if old_autosnap (setvar "autosnap" old_autosnap))3 {7 s1 G) y, Y
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)