|
|
- (defun c:ss1()5 c. D( q9 `. B* T1 {
- (setq old_osmode (getvar "osmode")0 g" I/ C ^/ j0 I- g& ?
- old_autosnap (getvar "autosnap")3 F' f& J4 T6 X6 _8 `# S
- )
2 a$ `* n/ L: k% }% D - (setvar "cmdecho" 0)
5 @+ {8 G! f5 T - (setvar "DIMZIN" 0)2 s- b* k; N& H7 H" l
- (if (= Ty_le nil)
+ s0 i9 L8 _5 C6 ?( c t: ? - (progn7 [- i+ Y% t1 F' K' u+ U
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))% F' b% P' f* i6 v; Z: K* d
- (if (= Ty_le nil)(setq Ty_le 1000.00))
( S! H8 h% l6 h1 l- |! R5 T& f - )
B! ?; R9 _* n7 I - (progn
& _/ @3 |2 ^) {: c - (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))) _. w' x# f* U; l: ?; C
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K")); P0 x- ^: i7 Q: z
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
" b; l8 ^' P( V - (progn5 P( ]6 A3 J$ L: L$ H
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
3 \5 Y" \( V4 h1 x - )( H3 @) N' N6 f8 k r3 f. M
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
6 Y/ n+ [6 ^3 `+ [8 J% T% G - (progn6 Z" D# A: p! B# v! I' ~
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))
5 J- G/ N6 g3 d - (if (= Ty_le nil)(setq Ty_le 1000.00))
" o4 z; W$ {7 v, j" M* e - )
' F8 t0 O$ J* T* @! l2 `3 h - )
. V0 M2 A. P! a8 U+ s& N - )
& O3 ^- ?& q! Q: ~1 B0 n; V3 W - )
& F- {" J& V1 G - )# V a; D% u" [. ?4 [
- (if (= So_Le nil)
~' ]1 a1 C( `0 n( X8 ^! M0 M8 _ - (progn
" `) k/ V8 B. a" d# t3 B1 S; h* I* Y - (setq So_Le (getint "\nnhap so le dien tich <2>:"))+ h9 g+ \& @0 E) o- H) g! c
- (if (= So_Le nil)(setq So_Le 2))+ q. m+ y- x2 e4 ~& x+ x- j
- )
! h* @( I0 G8 q2 k. A+ o - (progn3 ^8 t* x+ }' {5 F8 M# G4 P$ O2 U( _
- (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
J7 p; }/ q1 @$ S; o - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K")), Z1 Y" `% o4 \$ t
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
( A! y& L, i7 M; m - (progn
- C+ [0 m2 C# I; h4 R - (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
* H" y% m9 \9 B6 x- H - )
; v) ]$ X/ z6 j4 u+ R/ H - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
- m) \$ Z3 x' k" w: n, o/ B; Y0 U - (progn
" a% c; [! n% j9 |* @2 h# r - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
/ c$ @ D! g1 }* t7 m! y) E - (if (= So_Le nil)(setq So_Le 2))
8 D* M, n+ _8 ]& q4 t - )* S9 m8 I2 o/ T
- )
' t: j; I; }8 T. Z; Z3 ? - )
6 `. w* S2 K) m% P1 v - )
" M8 L9 Z# n" b, O, I* |/ v - )
/ f. _5 l2 p/ r6 H - (setq He_so (/ 1000 Ty_le))& s2 q; I- |1 `7 c ]- p8 g
- (setq He_so2 (* He_so He_so)) , H$ r$ i$ P& {- V$ x( j- G! |1 C1 {
- (setq dtl 0)1 u. I1 J" Y. X- ?. `( e8 h
- (setq ss (ssadd))5 G p& z- }8 s' `# b2 M
- (setq oslast (getvar "OSMODE"))1 E$ x M6 \: p. z4 H4 s. M; i
- (command "osnap" "")
: r# ^, q# u" c) w( r/ v - (print)9 {4 }4 S/ j/ E
- (print)
4 e1 K- ]2 P- _: q - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
4 m3 p {8 C' s - (while (/= pt1 nil)
* S8 T" {8 f- O' [2 | - (command "-boundary" pt1 "")" z8 }+ Q% h( V- G7 l
- (setq et (entlast))5 I; B/ x1 K; D* B
- (ssadd et ss); D8 S6 O8 E J* E) `
- (command "area" "e" "last"). T7 ~7 |5 C" f8 s, a! X% ^
- (setq vsize ( /(getvar "VIEWSIZE") 50 )), R3 q4 Z: T) @5 q
- (command "hatch" "ANSI31" vsize "0" "last" "")" N6 k4 D3 {8 m2 f/ Y3 M1 J
- (setq et (entlast))
2 v" A0 F0 O( ] - (ssadd et ss): G$ a4 Z! a8 g9 n/ c5 {8 q
- (setq dtcon (getvar "AREA")), R" y5 E2 D8 Z
- (setq dtl (+ dtcon dtl))
- p# m- L9 ~- U% Y - (print)
! h* w0 E; C% e, Y, D - (print)$ F0 R; f8 d1 J+ H
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
3 V n: w$ r8 \6 q - )
! W9 `! _; M( V9 B1 ?; H - (command "setvar" "OSMODE" oslast)
0 m$ U6 @* i0 u - (command "erase" ss "")
" z4 @. B6 c0 B( R- P6 H - (setq ss nil)
% ~0 _9 S; x) J% y$ n g - (command "redraw")' B9 ~6 L4 [2 i/ q6 s
- (setq dtl (/ (/ dtl He_so2) 1))
% s" Q. r. ]0 Y3 _9 q p$ E" b - (setq en (car (entsel "Thay cho so : ")))7 ?% v4 Z6 T0 X! A2 G. X$ {
- (while (= en nil)
8 t, y4 `; O; d+ ?! u4 o - (setq en (car (entsel "Thay cho so : ")))- W1 `8 Q& x+ E1 P8 ]( f9 C
- )
" h [9 L1 J9 x. c - (setq elst (entget en))
/ }: l% |% x6 W, I - (setq elstold (assoc 1 elst))
& W" U9 P( g$ {& U! @ - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
( {4 F- V2 W. J& O) I - (setq elst (subst elstnew elstold elst))
6 N7 ]! t) }. j: W. @ - (entmod elst)
: ^% a: C4 i0 c2 p3 e - (setq elst nil)
5 @( X, K4 c! |1 e9 q- S$ m+ A - (setq dtl nil)( f' f+ @9 [: j5 Q
- (command "_change" en "" "p" "c" "1" "")* M* D, T q5 ^" y8 _
- (if old_osmode (setvar "osmode" old_osmode))* ~( \/ Q- c. Z+ t, w( j, P9 D9 q3 f
- (if old_autosnap (setvar "autosnap" old_autosnap))! r1 H- E- O% a2 m; N
- )1 {" ^* }$ d; E5 u& |& C2 }5 _
- ;==============================================================================7 P+ n* I! A1 a( H- }
- (defun c:ss()% j0 x, O" F* t9 C) q! \
- (setq old_osmode (getvar "osmode")
O6 Z. i6 i+ w8 @ - old_autosnap (getvar "autosnap")* H2 {- r; x+ O7 I' x7 G8 r
- ) : E O7 t* L$ B9 ]1 p1 Y
- (setvar "cmdecho" 0)5 ^) S6 U2 O& \, ~ H0 b
- (setvar "DIMZIN" 0)8 j* _5 M1 D5 O2 {' s) n- _
- (setq He_so (/ 1000 Ty_le))- e& H; }) a0 S8 w5 ^
- (setq He_so2 (* He_so He_so)) . z R5 r' ~0 r/ W% X+ h
- (setq dtl 0)4 |5 d3 K) N- v
- (setq ss (ssadd))
9 P9 P! d0 ]7 C& s/ b! F( j- v - (setq oslast (getvar "OSMODE"))
3 z! g5 d# g4 k+ T! E' S2 K4 M - (command "osnap" "")7 A- S. N8 S% ]# B" }4 O
- (print)
F V& F9 Q7 U0 Z - (print)
1 K# y7 V& ^+ p5 M# u - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
# f4 _8 ~- Y# ~ U- B& L& `5 P - (while (/= pt1 nil)
& u, F8 {' G5 o3 X% }$ ` - (command "-boundary" pt1 "")
$ L I j* K `% Q* m - (setq et (entlast))
+ M- _* M3 q8 X2 l/ K4 K' r, g - (ssadd et ss)
0 w0 A( f- Z0 q/ C6 X% j3 Y K1 ? - (command "area" "e" "last")
0 P0 T1 e' |$ j" g6 Y - (setq vsize ( /(getvar "VIEWSIZE") 50 )). J) V, E9 T. i8 z; S* k
- (command "hatch" "ANSI31" vsize "0" "last" "")
3 q K. m1 W* A! m' Q - (setq et (entlast))
+ C! v# j8 D' d% p - (ssadd et ss)0 F+ w; Q' W" h- b" H
- (setq dtcon (getvar "AREA"))
* H; T- Q) X: c - (setq dtl (+ dtcon dtl))
- h! ?6 A9 T/ ?1 g - (print)
* L; W; U$ J! W: U' E# B - (print)* ^1 ?2 l2 ?1 Z
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))* b! X- s, Q: g# z: |9 l; `
- )
2 i8 v' I4 j- E - (command "setvar" "OSMODE" oslast)
* n; Z+ c# I% X% I9 d* B - (command "erase" ss "")
, { |' g! L0 [9 U! p" Q* ?! t; D - (setq ss nil)" ]% {! ~% X( @, _' R
- (command "redraw")
' G% B9 Y2 u1 J5 y1 W# _" o1 w: I - (setq dtl (/ (/ dtl He_so2) 1))
+ N9 d. q# ^. E9 _ - (setq en (car (entsel "Thay cho so : ")))
! o: k5 x4 ~! l" M( |. [" z7 o - (while (= en nil)! U. v' B0 B/ m7 ^% N" r
- (setq en (car (entsel "Thay cho so : ")))2 @( ?2 d4 b' s) h) y: `
- )
7 j& c7 L# Z5 ?9 J' x: Q8 W) K/ E - (setq elst (entget en))$ G v7 x! j& L1 K- O4 Z& d: f
- (setq elstold (assoc 1 elst))
% j6 G0 _4 H1 I( u; d - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))" f, y* O- H* b4 b
- (setq elst (subst elstnew elstold elst))& k) L6 Z; B" Y
- (entmod elst)9 M8 W2 b" z7 y; N# [
- (setq elst nil)
: ^- q1 k( n% G! S - (setq dtl nil)
5 |/ p4 A% h- w1 h2 r% k* g3 Z, a - (command "_change" en "" "p" "c" "1" "")1 j$ g* @3 ~; ~" g- g Q
- (if old_osmode (setvar "osmode" old_osmode))0 c0 o! l9 X' l9 H! M: \
- (if old_autosnap (setvar "autosnap" old_autosnap))! j1 f( k5 N9 X. i$ q& k0 Q# A
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)