|
|
- (defun c:ss1()
( Z. W- _; L* \, g- u - (setq old_osmode (getvar "osmode")
" a9 T" D0 D; C5 u1 i* T - old_autosnap (getvar "autosnap")4 V; D- E+ _: X* m( A
- )
}+ y- k: c6 N! J - (setvar "cmdecho" 0)
2 i- R$ j3 ~! }" X8 {8 b+ K- k - (setvar "DIMZIN" 0)4 ~+ j: f) ]- x" Y4 _6 c
- (if (= Ty_le nil)2 v& G# S9 c0 o8 F, J
- (progn [" Y. Q* K; B. E; _
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))+ {/ f1 |$ v& t0 j/ v& o
- (if (= Ty_le nil)(setq Ty_le 1000.00))
5 W# F! b: j2 G+ F - )
5 G0 E Z+ R1 I1 Y; \1 d+ _ - (progn+ @) d+ @! {' {7 v w( ?* N
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
# W3 w" }! V5 Z# c - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K")). m- X( h- C' A0 ?2 V4 Z! f. M
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))5 V: h$ a2 z* E& \" X! G. |0 {+ @
- (progn& f6 t$ k3 O4 y: G/ O/ T7 J
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))+ \* p# q+ c" _% ? P
- )4 R+ U( F/ k; m6 ]: b/ k
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
; F+ g: a/ u. ?; h - (progn5 ]5 B& E- \$ l
- (setq Ty_le (getreal "\nnhap ti le <1000>:"))
H9 J7 X | w - (if (= Ty_le nil)(setq Ty_le 1000.00))( W& A2 c) ^: R+ }/ Y3 U S+ c, X S
- )' [/ A3 b& s2 @* J2 @! w5 h& ~. K
- )
$ }, C, }4 c3 v6 c - )! i+ j' G, l* C$ {: |" O" j+ a
- )
7 y9 P1 Z8 E& H& }1 Y ~0 ~8 V - )7 Z5 r- H& W$ e
- (if (= So_Le nil)
9 V5 D6 }2 V3 z& y. o9 U* A - (progn
7 ?) W) g+ r Y/ x+ @1 Y - (setq So_Le (getint "\nnhap so le dien tich <2>:"))0 p/ g$ D' F7 |- w' F: u+ G6 ?
- (if (= So_Le nil)(setq So_Le 2))
% [3 p: v0 a" d, \ - )
. F, B& {: Q: [$ ~( r3 t - (progn
' u6 h4 \) _4 E! l- }: `) U( e - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:"))): R9 F) a2 o" ]' ^' _. |' x
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
2 I! }! J0 S/ z! A8 B# W6 m4 d4 E - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
2 j: `2 T& i3 ~5 K8 i9 z1 F - (progn
* r9 j8 ?) z) [! P& ? - (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))5 J# W9 J/ }) W! X7 J
- )
7 _( r# U3 q9 w! ~7 N - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
5 f6 W5 o2 H e8 D4 A4 Y+ q9 t - (progn+ c7 t0 Q. U0 a& H$ u9 N' p
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))
8 V" }2 [6 N' E3 _) p" n: d% p - (if (= So_Le nil)(setq So_Le 2))9 F% D1 p) {) B
- ), U6 x" y0 _% s5 D% \! A
- ) " X2 Q0 u! V3 a5 S6 {* B6 I
- ); f; k5 }( k# ?1 G8 y% S2 q4 l
- )
% C* ]) S, Q! B% U - )
2 [! _* R1 [! p7 n( z - (setq He_so (/ 1000 Ty_le))
5 ~& O6 l' a" a/ {9 @- T - (setq He_so2 (* He_so He_so)) # \; _( a" P) L- E0 h( X
- (setq dtl 0)
! F* N- o2 {5 ~1 B4 L) A - (setq ss (ssadd))
# C4 ]. t- }6 V7 |. V - (setq oslast (getvar "OSMODE")), d6 S3 t! D/ W9 b6 z
- (command "osnap" "")) p5 W8 S+ k: R$ h" W! p
- (print). x& a9 i, [* ]% u- `
- (print)
1 }$ `" p, B4 M1 }& h5 [! {( v9 n( g - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))3 E& c5 G/ P$ `: D3 s4 p5 |/ r
- (while (/= pt1 nil)2 i4 D$ A) {/ e- | X( g) A5 R
- (command "-boundary" pt1 "")5 D5 \0 D4 M/ L. n0 u
- (setq et (entlast))
6 a5 o0 C8 ~ N. D - (ssadd et ss)
' x, n! h# Y/ ?+ f: H q - (command "area" "e" "last")1 }0 D0 p; @' ^9 x) x
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))# g/ d' H: a5 H2 \6 q
- (command "hatch" "ANSI31" vsize "0" "last" "")
, p. L0 ]2 U" z1 t - (setq et (entlast))0 [7 ]) ^( K" m* S/ r& S
- (ssadd et ss)
, F) x2 W! R! u, z - (setq dtcon (getvar "AREA")) H6 a/ c& \$ k
- (setq dtl (+ dtcon dtl))
@ @2 u6 e8 g - (print)
- f' |' {$ A: e3 B, `( o# l2 ` - (print) i6 P! o; ^- F6 I: F
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
4 i1 _: u1 h9 n5 @ - )$ m. e$ O5 @9 U
- (command "setvar" "OSMODE" oslast)8 |. p+ o n! N- a
- (command "erase" ss "")
D, f/ T7 i# H. K; h7 E7 q - (setq ss nil): g# L2 p R/ u; x
- (command "redraw")
3 w3 V, z) T* ]/ w/ t - (setq dtl (/ (/ dtl He_so2) 1)) " r9 N' W% u O }* W8 f. Y' w3 ?- [
- (setq en (car (entsel "Thay cho so : ")))
9 M6 o: }! f4 j& y; C1 l, r - (while (= en nil)( W+ i2 k0 ]0 d# o
- (setq en (car (entsel "Thay cho so : ")))
5 b$ u( b# t( H i- s! f! _ - )
+ [: c7 n! k4 ?, N% G) ? - (setq elst (entget en))
. {$ y; y+ b& Y& ^$ _9 R" r - (setq elstold (assoc 1 elst)) & C& ?8 K3 r: \! K3 j. R
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))! F7 R$ [4 L* {( Z6 r. f7 [6 q
- (setq elst (subst elstnew elstold elst))% Y" P2 W9 j% e8 S
- (entmod elst)% l3 q' m) _7 V' J
- (setq elst nil), r# ~ S5 z" `& l
- (setq dtl nil): ~2 ?. i6 u% A0 G- m
- (command "_change" en "" "p" "c" "1" "")1 o3 r. k/ N g1 M) V
- (if old_osmode (setvar "osmode" old_osmode)); q& d) | G& Z2 u- H4 K9 X
- (if old_autosnap (setvar "autosnap" old_autosnap))# G, k1 l- W5 N/ U1 w9 [6 B) k
- )
5 e- R" Y5 E. s - ;==============================================================================6 A0 J2 s& R% Q3 L6 ^' d
- (defun c:ss()$ d% p p8 O/ i" K
- (setq old_osmode (getvar "osmode")' u% [0 B2 C; ]
- old_autosnap (getvar "autosnap")
1 U5 A' ?4 i7 G5 h' e - ) 3 j& a7 J7 c! i6 q, V" _8 z
- (setvar "cmdecho" 0)
# c& [$ H% y4 \& d+ [5 C+ p' U0 ~ - (setvar "DIMZIN" 0) P F( O( c7 W( q4 u
- (setq He_so (/ 1000 Ty_le))% [2 {7 L. k, v, A/ ~% Y4 x
- (setq He_so2 (* He_so He_so))
7 V0 o3 M( X1 v; C; Z( J - (setq dtl 0)
% P- F4 T( ~$ r# _) |! t+ Q - (setq ss (ssadd))
* q% @: b, E' U/ H4 y9 Q9 t - (setq oslast (getvar "OSMODE"))
- X( ?# B4 M' H) y - (command "osnap" "")6 I% E% |2 v) y
- (print)
# g* i5 \' ^: Q* n7 m: K - (print)) `2 b5 R4 B* ~
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))7 I# H# i7 h6 B
- (while (/= pt1 nil)# E) R) {1 C4 I% k: s1 u
- (command "-boundary" pt1 "")+ m* u" B0 R* T8 G9 F
- (setq et (entlast))
$ c/ Z! D7 d& E - (ssadd et ss): u* w; z9 Y3 a6 M3 G4 r% a
- (command "area" "e" "last")
: _" G7 W: @6 e9 R' d - (setq vsize ( /(getvar "VIEWSIZE") 50 ))) o2 Z/ u9 a6 F; \5 v O
- (command "hatch" "ANSI31" vsize "0" "last" "")
# t3 L' n' B' q7 I, ^. c" n x - (setq et (entlast))$ I+ ~2 R) x% Q; x0 C
- (ssadd et ss)( p# a' g3 x+ w w5 P1 F* i
- (setq dtcon (getvar "AREA"))
! O8 x5 _: V5 ?. E* y% g7 _1 Y - (setq dtl (+ dtcon dtl))7 y+ L. ]$ J8 T- E r, P
- (print)& p7 K8 ]% L1 E/ _3 Q$ E0 V" z
- (print)1 M8 D* i' W1 O" q
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))- K/ [* K- h8 x+ M& `% e
- )
# f7 w3 v9 C0 N5 i- Z" w - (command "setvar" "OSMODE" oslast)
2 B% A% f+ Z# l/ v: _ - (command "erase" ss "")
/ J1 K) F. G( ^2 n, F - (setq ss nil)+ g! G4 P# x: c. c
- (command "redraw")
( h' x1 r- o, Q: @ - (setq dtl (/ (/ dtl He_so2) 1)) % D# z b& u$ V/ @
- (setq en (car (entsel "Thay cho so : ")))
- K' N9 c$ F/ ]. g - (while (= en nil). a ]9 _. n7 _: [1 q# p
- (setq en (car (entsel "Thay cho so : ")))
' m/ n7 r# `# z$ B ^% i' ^; h - )/ b5 l2 f1 N8 M4 [( t2 ~% M* A- g, S9 @) t
- (setq elst (entget en))( R$ a- u* p1 k9 \: |
- (setq elstold (assoc 1 elst)) 6 K- h$ u8 t+ Z! X9 w
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
0 {& ?0 [2 r6 a% e4 e - (setq elst (subst elstnew elstold elst))
3 v, t1 _+ n$ T- x - (entmod elst)
+ f3 P+ h& ~9 a" ^* ]7 k- h: |, L5 P - (setq elst nil)* x7 Y K2 b; p
- (setq dtl nil)
" @2 L: [) d' X) Q4 d' R - (command "_change" en "" "p" "c" "1" "")
z2 o; Z, w8 ?( h* j7 X( a - (if old_osmode (setvar "osmode" old_osmode))
4 B9 H- u8 @* |* D, g - (if old_autosnap (setvar "autosnap" old_autosnap))
8 z2 J [" t* X% [1 ^+ C! ] - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)