|
|
- (defun c:ss1()6 o V- L. c. r* o4 I
- (setq old_osmode (getvar "osmode")
' V8 {8 L4 {/ t; d - old_autosnap (getvar "autosnap")
6 G+ i+ R5 D- |4 p - ) * S+ Z e ^, I u5 f& \) \! a
- (setvar "cmdecho" 0)
9 B1 f% p' v. T+ I1 O3 m - (setvar "DIMZIN" 0)) f$ n. ~7 t2 s2 m( L8 i. B9 m5 F. Y/ O
- (if (= Ty_le nil)
4 y* D2 X( i, c" T$ Y& b - (progn
% v) A1 _/ F6 L0 w8 i - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))5 [( }5 U$ L# V6 C7 n
- (if (= Ty_le nil)(setq Ty_le 1000.00))
" E4 g3 O# x, M. B - )
! u. h2 _* \- B4 O2 S* g - (progn ~5 [" U# g/ @7 i3 F+ M
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:"))) _1 [6 I5 _. p, u. [3 y+ t
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))& t+ E2 g+ \0 O# A/ k
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
6 p8 n- O) z) t' I6 x1 h2 ` - (progn! t7 h' d( N% i; |! N
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))! s. a3 L, ?/ M {. [% `
- )
! M. k1 X' @6 ` - (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))- Y% K0 Z4 Q, s: n) D
- (progn
' E' d$ F z( ?9 C3 z6 u - (setq Ty_le (getreal "\nnhap ti le <1000>:"))
$ v( d# A( t- F% x: u6 |& ^ - (if (= Ty_le nil)(setq Ty_le 1000.00))+ c8 U/ d9 I1 z* m3 l7 y
- )* S8 f T! q% @1 s! s; K
- )
' w( G& f! b* B k* _! t' y0 x - )4 A! B. r# X1 A. y& O; M
- )
t. B* N5 B' [ - )
$ _- y1 |1 B3 Y- F" @. e$ c: C! Y - (if (= So_Le nil)
h; F4 A5 N% W; L - (progn
/ L5 W! [1 J" I5 T/ Y+ m - (setq So_Le (getint "\nnhap so le dien tich <2>:"))+ R# T/ p; V3 t1 L
- (if (= So_Le nil)(setq So_Le 2))
" |% Z. r# \& q, } - )4 p8 ~9 D4 _8 G; d# @) J+ Y& o
- (progn
q& K0 \1 X& L - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
+ y6 o" }8 ]- S, w - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))6 r( A7 A4 O9 }4 J7 n e% C0 J
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
) b3 c4 J: g3 e" F( ]6 w - (progn J: O# c+ d* j# J
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
- M: x1 n0 Q# i% l$ l - )* W1 i" ]: Z5 w/ j) s: T5 j
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))% O0 }' J4 c% j2 X% l
- (progn( h/ b$ x1 B5 a& ~1 P+ W
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))* E) f. w6 [. m7 N, W: q- R
- (if (= So_Le nil)(setq So_Le 2))
( ]9 ?3 y+ a( ^, X - )
6 o8 U) x% O9 }9 B5 l& v- ]. ? - ) $ @( s* M6 T1 n' V1 `2 @
- )# n. i7 ~$ {# M: A: }& B
- )
$ J# O+ ^( g. J0 j O - )
/ Q5 N1 [ f! E: M3 n1 R* l$ u - (setq He_so (/ 1000 Ty_le))
5 F" E' D/ Y& g& N# ]5 J8 b - (setq He_so2 (* He_so He_so)) * A1 O) n: ^" U, |
- (setq dtl 0)
3 [; d# C6 w0 M7 E7 P9 y# f - (setq ss (ssadd)), }2 V1 @4 Z4 G; F3 c: c
- (setq oslast (getvar "OSMODE"))
' f: E3 @! y2 X C' I% f3 ~ - (command "osnap" ""): c! P6 m( H4 E1 a# j4 S$ \( t
- (print)4 H$ p' H7 t+ E# w# s- c
- (print)( w8 M% T1 A l/ V- b
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
. O6 G8 j. I2 z7 v - (while (/= pt1 nil)
3 N2 }" K6 S: N9 d- \ - (command "-boundary" pt1 "")
$ l- @3 B, X/ n3 b. k( j" { - (setq et (entlast))
' @9 Y; }% A* B4 _) c& }8 p4 s& C - (ssadd et ss)
" f9 ~: [2 F( X# o - (command "area" "e" "last")2 Q' `0 t' z- e1 p9 ]% Z. b# t7 {
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
' H0 j; c0 l9 l( D; u. a - (command "hatch" "ANSI31" vsize "0" "last" "")
) r) V% m7 Z7 Q9 f& z. T6 W0 h - (setq et (entlast))
+ i/ \2 R0 w8 P3 A - (ssadd et ss)
( S1 q) ?( ]0 S/ N - (setq dtcon (getvar "AREA"))
y3 @) m; W1 `5 ^ l8 R8 P' m - (setq dtl (+ dtcon dtl))* a! L/ s# }+ G9 I! U! Y& ^
- (print), G. k5 t1 u* x: Z" `
- (print)8 d% K( [) n$ ?. ~( Z5 |) t9 W# q" }7 G. y
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))3 E0 S" d: {. `. J: Q) B
- )
2 N8 T3 l4 K$ J: e7 y* T, q - (command "setvar" "OSMODE" oslast)
# {0 O7 F* m) p. U' d v - (command "erase" ss "")
. O, ]$ O: b' X0 ?0 p* `( ~5 L - (setq ss nil)# p8 J( x6 W( ~& q% H0 C
- (command "redraw")
1 n1 s$ s8 r% q2 K/ f - (setq dtl (/ (/ dtl He_so2) 1))
( R: T( v7 _6 B. W- } - (setq en (car (entsel "Thay cho so : ")))
2 x% ^7 e1 ^, N0 I* r& b - (while (= en nil)$ V! _( F% p" U6 B. M3 y; A
- (setq en (car (entsel "Thay cho so : ")))
8 c2 M6 p- b0 P - )
# O, h4 L; X/ j( h6 n I3 W1 O - (setq elst (entget en))4 [/ _. m- f* Q) F8 l
- (setq elstold (assoc 1 elst)) ]& Z4 E0 k# V$ d4 G) n
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
: T }2 C/ T$ B2 t/ ? - (setq elst (subst elstnew elstold elst))
* J7 ?" B9 V: h% r* i L7 n* k# K - (entmod elst)
7 e5 G/ P/ M+ j, u - (setq elst nil)
* q( h' `4 V$ Y2 Q& o - (setq dtl nil); _ o4 C2 |6 e/ Z3 Z' _ T
- (command "_change" en "" "p" "c" "1" "")
+ k* x! r: @, E) e4 x Y - (if old_osmode (setvar "osmode" old_osmode)) w0 X* g9 y; R" q% o
- (if old_autosnap (setvar "autosnap" old_autosnap))0 B8 v4 A4 V1 L: V
- )
, r1 H' n; l5 A# c - ;==============================================================================% X/ F, i4 D9 T, G
- (defun c:ss()
! R6 A, D) s E7 m5 Z$ e - (setq old_osmode (getvar "osmode")
. H! o1 j$ }; b( O! y, X$ I0 P - old_autosnap (getvar "autosnap")
- o1 B/ {, X8 U' ] - ) _9 P% N/ } s) g) U
- (setvar "cmdecho" 0)0 \. x3 b: s) d' u! e. ?
- (setvar "DIMZIN" 0)
6 l( n2 V2 g9 W* u$ @& } } - (setq He_so (/ 1000 Ty_le))1 h4 A+ s* M/ Q9 K' s: H
- (setq He_so2 (* He_so He_so))
, A8 W1 V+ `" B& u( k) @" I; R - (setq dtl 0)
- s- S( H9 t! K: G/ v - (setq ss (ssadd))
% A1 o$ P6 G: _ - (setq oslast (getvar "OSMODE"))
+ C% `; j5 N& y. }" n0 [ - (command "osnap" "")9 I+ X7 u9 j; N6 S: N) R2 C8 x. A1 t
- (print) `# G$ h) z; \+ L" W, X M
- (print); F$ a; P4 _0 Z3 V
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
/ O" b0 R* y5 |& `) m! Y8 U+ z - (while (/= pt1 nil); R! j( }. }4 [) Y
- (command "-boundary" pt1 "")/ k$ {5 v% p( W, ]3 b4 \
- (setq et (entlast))$ V: C+ [9 z! t
- (ssadd et ss)
6 W9 G+ C4 Z, G4 F5 p - (command "area" "e" "last")) {" f7 T6 K1 u* K5 ]9 V% k1 f% w
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))! J/ `$ j* {" p0 g4 d! U$ |
- (command "hatch" "ANSI31" vsize "0" "last" "")
; y9 u2 U" t" n" q; X! z) D - (setq et (entlast))
* f1 _. C& `' b, x" n- Z2 Y' X - (ssadd et ss)
2 P! i7 Q6 Y/ U! y( D7 V* R4 n - (setq dtcon (getvar "AREA"))( h- j7 e! f( w0 Q
- (setq dtl (+ dtcon dtl))
4 i2 J# ]& u& h9 s+ u) m - (print)
8 A1 x1 M& V$ s3 P$ [ - (print)5 n- `9 ^. g, n9 }
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))( m& O. R# c3 K0 K) r _# q' v
- )9 P5 Y8 X8 F4 T3 t. s# m3 T
- (command "setvar" "OSMODE" oslast)1 K0 T4 c7 e4 c g0 `! L# ]% P
- (command "erase" ss "")0 E, ~' B# f3 h6 \& L; D
- (setq ss nil)) N0 H; ]- n Z; C3 ~2 {! \4 \
- (command "redraw")4 x {7 v v9 T7 q# R2 Q
- (setq dtl (/ (/ dtl He_so2) 1))
, c o( t( I6 w; f4 D - (setq en (car (entsel "Thay cho so : ")))# D, D" Y4 ]* I/ i& W* l& K S
- (while (= en nil)3 C) U& I* ] f
- (setq en (car (entsel "Thay cho so : ")))
* g2 I+ d1 J9 s9 O - )# P. h" }9 M& U+ j; [% \( ^0 ]
- (setq elst (entget en))# A$ w n8 k7 H! F7 |) R
- (setq elstold (assoc 1 elst))
! P' L2 J( V; v2 M - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))! Y: W& ~+ Z2 r/ y5 A' P
- (setq elst (subst elstnew elstold elst))
7 R( i9 l7 }3 b" R' G9 y - (entmod elst)! [; G" J [3 L' b# F
- (setq elst nil)
# y; Q) x& F; B( \ - (setq dtl nil)
0 x7 C# l* r7 R: F2 M' g - (command "_change" en "" "p" "c" "1" "")
V, }; O) C9 T3 n* ?/ j - (if old_osmode (setvar "osmode" old_osmode))
/ }/ K: B; S% e! H4 I+ z - (if old_autosnap (setvar "autosnap" old_autosnap))0 y( g* K; E5 w6 T$ P. s
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)