|
|
- (defun c:ss1()
- D: h% ]3 v# K3 `) ^ - (setq old_osmode (getvar "osmode")
, O/ m* t( }$ h P, K - old_autosnap (getvar "autosnap")
! a! u& x! ^8 y' b* q6 j1 z - )
4 L1 v1 O [1 M - (setvar "cmdecho" 0)& u- R( E! [) D% o/ o5 t7 @
- (setvar "DIMZIN" 0)" ^0 f3 _: J& b
- (if (= Ty_le nil)
9 W' a# p+ l, H- G - (progn
$ i* L# u: v, Y0 z1 F - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))$ E8 a# f7 G5 J
- (if (= Ty_le nil)(setq Ty_le 1000.00))
" g- r7 U. W* w) K - )' n& r6 ]9 n2 ^6 F- f
- (progn4 c6 N9 f* Y. j, T
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
. d3 n" M/ m) `- t& V! W - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))+ _" M* q/ Z+ w4 M. v0 ~
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))7 S% p9 m$ _9 W; }3 M) O+ P
- (progn. Z2 V: a4 j5 I+ l6 P7 q
- (princ (strcat "\nti le = " (rtos Ty_le 2 0))). }9 t9 [9 E7 I
- ). k# c8 A+ U0 |7 e, j5 P
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
. E6 Z* M: A3 B - (progn
' @- b g c6 }6 J7 v y - (setq Ty_le (getreal "\nnhap ti le <1000>:"))' ^" u: x# \0 z5 Z" A
- (if (= Ty_le nil)(setq Ty_le 1000.00))
" `$ L; s0 ~# g/ E2 y7 D p - )" W3 z s8 J0 l: f
- )
7 m2 V# s; f; J/ T4 l$ o7 }8 \! [ - )
' e# A, `! e$ m5 t: w3 `$ f* H9 b; Z4 A - )
^5 ]8 ^" h( Z$ D% w) j - )* e" Q5 ]% L! m$ E. M$ Z) B! C
- (if (= So_Le nil)
+ g f1 u1 r, J, T9 W' O4 V; A - (progn% P4 J7 r ]! B( p
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))
; ~. h8 d' x/ L4 \7 a - (if (= So_Le nil)(setq So_Le 2))
$ V& O5 S5 o% M - )
. X1 F- G. j1 \. \* t8 c - (progn
) t, X. f, F5 J3 R2 U; t3 g7 a - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))/ }; C8 {! t5 }+ V; d* U
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))# R {! P2 r% B& p$ c: b
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
8 s2 l9 y8 O& F( s V/ W8 T - (progn" G/ M# [7 f, m7 v. [6 e( S+ {
- (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
1 r" K' x) }, C* G+ V - )
& p- B, o/ y6 Q$ O3 w9 f. E1 ^) u - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C")), D; h/ x5 F$ ?$ D- R) q. v7 |% h
- (progn
, l' j7 ]: I/ _. G. b2 u - (setq So_Le (getint "\nnhap so le dien tich <2>:"))7 R% g/ l# q' s& ^ h) q
- (if (= So_Le nil)(setq So_Le 2))( C7 H) F% \! ?7 O% l+ J9 m
- )
# x9 B: e. j6 x) j - )
# ? H$ Q1 @2 H3 E# O4 O. D3 |/ y - )7 J; J+ j4 e5 m4 ~
- )
, r& k+ j- @: K4 B0 o - )
- A( M; ^" ]0 o, O2 P! U - (setq He_so (/ 1000 Ty_le))' ?+ C; A- i6 H0 @7 x( M8 J
- (setq He_so2 (* He_so He_so)) 3 E$ k4 C: |+ `, w" [: |" W+ K C
- (setq dtl 0)) k& C& Y: Z: j( P* m
- (setq ss (ssadd))! f$ I I- q$ G: _9 T
- (setq oslast (getvar "OSMODE"))1 X$ {' t" }9 d
- (command "osnap" "")
- l5 f% q5 I! k0 i - (print)7 s$ r/ x4 `4 y1 g8 t
- (print)
. C8 Q; X; f8 t; A# ?+ Q - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))' U0 T' ]4 [3 e# w$ Q8 s& M% i: M! Q" ]
- (while (/= pt1 nil). u! F& M3 H2 N3 i# {. h0 B; j- V
- (command "-boundary" pt1 "")# I! j6 E) b4 l! F
- (setq et (entlast))
% d" G- @0 d6 L - (ssadd et ss)
! z# [% d. ]7 L' R7 S - (command "area" "e" "last")
! i: p: g# t R - (setq vsize ( /(getvar "VIEWSIZE") 50 ))) V0 ` F! r$ H4 f0 t! Q
- (command "hatch" "ANSI31" vsize "0" "last" "")
7 G8 p$ O/ F. O7 T7 W$ n8 n - (setq et (entlast))# ]7 q1 S# ^! s2 P# m. {2 o b
- (ssadd et ss)3 U) d9 v$ f2 v1 m! b9 X
- (setq dtcon (getvar "AREA"))
1 r! l- n1 j1 o$ a/ M5 X1 v - (setq dtl (+ dtcon dtl))
/ v. R6 P6 {! a m% m - (print)/ l0 z, B& d; U7 ?/ _1 R
- (print)
' D2 i4 i# Q K - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
- k n- ?9 ^9 y* w, ^ A, C2 B - )
; t- l# K, S" e& k! f) O1 N' `* f - (command "setvar" "OSMODE" oslast)1 e1 J/ x2 a( r$ J4 M$ F8 i9 o
- (command "erase" ss "")
7 w8 a; j0 Y, p- t. C! l0 J - (setq ss nil)
* K! r* r; _* v - (command "redraw")
( k$ x6 f: t4 Q( T - (setq dtl (/ (/ dtl He_so2) 1))
0 @$ C# y# p* I: ]6 a! L! V/ x - (setq en (car (entsel "Thay cho so : ")))
3 \' f4 E: C, c# h) u - (while (= en nil)4 k( b6 q3 J+ B- d t% L
- (setq en (car (entsel "Thay cho so : "))) c" f& _1 ?4 w2 C: ]8 [& L5 T6 H
- )
! E9 e5 W$ l( ?' C+ z - (setq elst (entget en))
7 o& }8 r: g$ i2 B1 `+ @ - (setq elstold (assoc 1 elst)) 8 _ h0 O6 s' L% w( B1 L5 `
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
' c6 H2 u! o; y8 o! m - (setq elst (subst elstnew elstold elst))
r4 a: D0 M' k* g* [ - (entmod elst)
6 W* G8 U- r( c0 V+ Z - (setq elst nil)0 V6 n* Z8 ^% }. {: C; M" F
- (setq dtl nil)
1 {0 z( F3 L* s N. R& r$ H - (command "_change" en "" "p" "c" "1" "")4 ]( h3 s) ?" d( D
- (if old_osmode (setvar "osmode" old_osmode))3 h: ?8 u# \ x+ ?( d
- (if old_autosnap (setvar "autosnap" old_autosnap))
) @% m3 b, S( j0 B9 p! X* Y - ): V6 C/ @1 r6 w' V/ i% R$ Y$ ]
- ;============================================================================== ^. U3 g) V% ~2 T: M' w5 h# s
- (defun c:ss()# @. a! r) V+ X2 p
- (setq old_osmode (getvar "osmode")
5 |9 x3 Z, I4 j - old_autosnap (getvar "autosnap")
% u- k n( b n* y# e, Q6 Y8 W( w1 S* ]( H - ) # m4 F( y5 i4 f+ e6 p/ A! U
- (setvar "cmdecho" 0)
; P: N0 ?* G' U" | - (setvar "DIMZIN" 0)4 m: e3 \1 S5 @" F
- (setq He_so (/ 1000 Ty_le))
; M. C2 p L! R+ J/ N. w - (setq He_so2 (* He_so He_so)) 3 B( k" k, h0 b0 M6 M: \. Y3 f: Q. G
- (setq dtl 0)
/ \" m& ~1 P: @+ @8 M - (setq ss (ssadd))' l, l+ i8 ~: z
- (setq oslast (getvar "OSMODE")), u7 J5 F( m, K5 _
- (command "osnap" "")6 }1 s" a9 j; u
- (print); B5 \7 _, ~- Y6 C9 u* F, J
- (print)
$ `" l: D5 v4 I2 p8 p7 s - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
9 ?' r$ d9 ^ d. f - (while (/= pt1 nil)
/ ?" C% X+ O# E# P# z6 a+ O; }# |2 A - (command "-boundary" pt1 "")& K' z7 J2 X& v# ?) n
- (setq et (entlast)), e3 d. }5 W4 T1 i' U; F8 V2 l. K
- (ssadd et ss)# S) g: b% a- P5 I' l
- (command "area" "e" "last")5 q: c- t6 ^: x8 k7 v% C
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))# N9 x$ G* w1 \7 B$ L O! `
- (command "hatch" "ANSI31" vsize "0" "last" "")
7 Q# n% B4 ]" I- U* ^. F - (setq et (entlast))* c4 P0 `4 x/ j3 Z$ K) i
- (ssadd et ss)/ r4 M( x) f# K/ Q
- (setq dtcon (getvar "AREA"))
6 G u% F# _, t$ A - (setq dtl (+ dtcon dtl))
. U4 a i: \/ ?0 W9 b/ ^ - (print)
& }, L i6 v' ]3 T* ` - (print)
5 i8 F. x T: G5 s - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
E* ?6 i$ D0 K" m" n5 r - )
+ A7 y: o t2 _; I - (command "setvar" "OSMODE" oslast)! l5 ^- U# \: \; q G
- (command "erase" ss "")
$ T- @6 k N& K2 q9 e% n - (setq ss nil)( e9 d, q5 Y/ o8 d% V/ C
- (command "redraw")3 \" {9 z( P( H
- (setq dtl (/ (/ dtl He_so2) 1)) 1 o# e6 \6 S. F& l2 G
- (setq en (car (entsel "Thay cho so : ")))
3 u& @4 ]6 m4 \1 B1 s8 N - (while (= en nil)# {8 h% g/ @8 v8 ~/ Y N( v
- (setq en (car (entsel "Thay cho so : ")))9 k P# h4 q+ @# k; ?
- )
$ U1 Y, m$ g) l* p5 t4 m - (setq elst (entget en))
6 m+ m2 v! d8 u2 {8 { - (setq elstold (assoc 1 elst))
j0 i9 Z3 b8 P: `7 m - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
- m/ ], B" R, K+ a% i5 ~ - (setq elst (subst elstnew elstold elst)) M4 z. e; p9 |8 o6 D# u
- (entmod elst) p) C5 W, L9 K& v
- (setq elst nil)$ V* D. |# \5 ]4 N8 ?
- (setq dtl nil)- O/ X0 W# s/ f; U. A! n5 O2 o
- (command "_change" en "" "p" "c" "1" "")
2 I- a: D* D: U$ u - (if old_osmode (setvar "osmode" old_osmode))
( n4 L3 T( M& a( x& n" q: _ - (if old_autosnap (setvar "autosnap" old_autosnap))
/ v8 t& y. _8 y - )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)