|
|
- (defun c:ss1()
2 {2 q$ ] o9 P2 U/ T9 d* Q/ a; ~7 Y - (setq old_osmode (getvar "osmode")
$ U c! T, V1 b- ~% ], ^) W - old_autosnap (getvar "autosnap"). B7 c0 i2 }$ j' d! d: N5 b
- ) " T8 S' h2 w( `3 ]/ X) K# i
- (setvar "cmdecho" 0); [2 h% ~) x5 W, }- x% w
- (setvar "DIMZIN" 0)
' Y; E" e, f3 ^4 t' a; `; f - (if (= Ty_le nil), h/ `/ t- N' ]8 c, Z- N5 q/ P
- (progn4 ~% @' l; T0 t* h! [/ O
- (setq Ty_le (getreal "\Nnhap ti le <1000>:"))5 T, t9 `3 ^; i0 c8 |4 Q* k
- (if (= Ty_le nil)(setq Ty_le 1000.00))
# d8 x; l: ]# q8 M. }, x - )
) `3 o- y) m# a4 `% S% ]% p - (progn J+ Z$ Y# |6 L4 h. @
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
5 f+ b" p$ H5 X - (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
) D3 n2 C; ^' a" O% k4 _3 f - (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
. p! Q' S5 @. M - (progn& \; S, J# S) a. Z
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))1 E8 f# T. h+ e3 c M
- )4 K z! }! Y8 p' u" t8 H" I
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
) v+ l4 j: V+ W9 I8 e - (progn
, K/ {7 D5 P4 E" l5 Q* j% L - (setq Ty_le (getreal "\nnhap ti le <1000>:"))) D, ^; H& C( d$ X# W, a
- (if (= Ty_le nil)(setq Ty_le 1000.00))( e1 ^, A! R* @; G+ @8 P, w0 c
- )
^/ i9 E: M/ W1 R$ g1 v - ) ) I8 W3 @( ^* r, h; X# [
- )
& A f8 y5 |; F W1 d6 b' y - )$ _4 c* b# K% \* {
- )+ V2 B7 x: D6 L6 }7 d) f
- (if (= So_Le nil); v, Q- ~/ u+ g, i- |7 N
- (progn) \( V$ w0 `6 J! ?4 P/ T. F% r1 i8 ~2 f
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))# G1 C& u. b; p/ Y3 ]" [
- (if (= So_Le nil)(setq So_Le 2))) ^- Q% O! ?% R& o
- )
0 ?: f! Y; b. p( `3 s& p1 ^" n - (progn
0 x0 a3 g! e$ T2 q: B - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))* Q7 U" v- Z1 G
- (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))* {! x# k4 i1 ~) [) S
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
& {, Z+ N6 f1 u# J" J - (progn
* J6 S: `) I" @) O( h5 l - (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
( w: V7 l D, Y2 O - )! ]1 M. P b! L3 D, q- a+ N5 G
- (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))3 u* k- _- _' O( `5 x" J" k
- (progn
4 c( q( h' ^- e& y% `0 R; ~ - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
& [: y) }0 w, w* {. t - (if (= So_Le nil)(setq So_Le 2))) U' o" S. E$ M1 Z
- )( C; J( X2 E! X, w4 o8 Z- k
- ) ) e2 F6 W/ R" Q7 e) O; O
- )
- m+ e; r5 k) }- y& h& W( T - )1 |3 t; \* Q7 ^/ A% T! x/ x3 ?* y
- )& t6 a, [. ]: l
- (setq He_so (/ 1000 Ty_le)). [5 K3 e: r+ k t2 n ]% P
- (setq He_so2 (* He_so He_so)) # C6 O2 m# `# m) C+ ], y9 t4 O9 c
- (setq dtl 0)
1 V0 o( D. L4 d, t3 `/ s - (setq ss (ssadd))
7 ^5 K4 E: T6 E/ q" l+ k u/ p - (setq oslast (getvar "OSMODE"))! s. Q( {0 ]/ Y5 u# z: Z! O( P9 c
- (command "osnap" "")6 y5 e( G+ l8 C' Q$ C' E
- (print), p6 @$ ]% {5 ?
- (print)7 m6 u0 ^& N5 y1 K
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))/ k3 E0 K3 a! X% `& C
- (while (/= pt1 nil)
3 L" ]0 e7 N- M8 w& t1 x - (command "-boundary" pt1 ""). O5 i' n6 \, I7 ^8 L7 s
- (setq et (entlast))
6 ^( L# l0 r2 h( Y% [% l; ~" F - (ssadd et ss)( V7 W* z* k; M6 E% k; j
- (command "area" "e" "last")
# d8 {9 h4 ? _* _# p - (setq vsize ( /(getvar "VIEWSIZE") 50 ))
6 s% b+ j! N3 F+ {+ I: _# h2 m" s - (command "hatch" "ANSI31" vsize "0" "last" "")
8 K) ]# O/ q6 v) M* g: i - (setq et (entlast))
U/ X+ ^0 i) V* Q* b1 W - (ssadd et ss)
$ e$ e- ]4 [* \7 {( H5 d6 A# Y5 K# L - (setq dtcon (getvar "AREA"))* l2 Z! _2 V( A3 j8 p0 x
- (setq dtl (+ dtcon dtl))) c+ J( p; ~3 H6 G9 c
- (print)
4 s5 `4 F" ?$ w! k - (print)1 u% J5 [) W' `& Q2 C' [- N
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
* v* ~/ z1 L. x6 J4 { - )
# a5 T( J1 y9 G1 i0 p/ }& { - (command "setvar" "OSMODE" oslast)/ ?# h+ g& m; t+ ~; b
- (command "erase" ss ""). }% k$ \8 z; o5 b' @& i
- (setq ss nil)
# D4 Y/ S7 d. K& t - (command "redraw")
: P0 w% i# M0 c) N) y+ @ v9 D: ~ - (setq dtl (/ (/ dtl He_so2) 1))
9 i& Q+ P0 g: l3 H6 l8 X - (setq en (car (entsel "Thay cho so : ")))
3 S, B8 r3 v" K; ~ - (while (= en nil), {: w, Z9 X: I8 `! |9 k0 {
- (setq en (car (entsel "Thay cho so : ")))
* h8 ~/ V# ^1 c/ _ - )8 r3 V% X6 ?; h5 [
- (setq elst (entget en))
7 e# @, b# X3 | - (setq elstold (assoc 1 elst))
( K# g. h9 w" `. R - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))+ I, A$ L) D$ C8 g$ N) l
- (setq elst (subst elstnew elstold elst))
, Z& L. @7 [' n5 ^" X - (entmod elst)
- z3 |9 {; K! \8 L# Q - (setq elst nil)
1 D( X) M! p; a& l, \, p - (setq dtl nil)' R, A& r- m7 P d
- (command "_change" en "" "p" "c" "1" "")
1 i* A s% {9 v - (if old_osmode (setvar "osmode" old_osmode))
+ N4 I1 d# r# y A+ _ - (if old_autosnap (setvar "autosnap" old_autosnap))( I5 w; p& U$ W7 g; F
- )4 k) Y) _6 L) I) m8 b8 _9 M% r
- ;==============================================================================
7 S. ^% T+ _8 D' i4 c: ~. b/ z. i - (defun c:ss()
- ]8 ^1 o6 d% E/ Z- M - (setq old_osmode (getvar "osmode")" j& k) |+ {- T4 h9 w
- old_autosnap (getvar "autosnap")
+ `% E$ p$ ~' `2 `( x - )
' ]' Q4 g5 @8 c7 I2 @' D k - (setvar "cmdecho" 0)$ Q. z- I6 y, ?. Q* K ~6 u: V0 b
- (setvar "DIMZIN" 0)& O% ] L7 w0 {" q- j/ C
- (setq He_so (/ 1000 Ty_le))
; o6 b3 ]/ x. O: C) Y) o* K - (setq He_so2 (* He_so He_so))
! O" B3 n& f) U# D8 D* s X - (setq dtl 0)
6 S6 w: H6 D7 J3 D$ J$ s+ d1 ]- o8 X! r - (setq ss (ssadd))- T" W/ B6 E' c6 n0 {3 K
- (setq oslast (getvar "OSMODE"))3 w6 L m! P2 M8 Y
- (command "osnap" "")
- ~4 U1 W9 ~' H" c) } - (print)2 W! U( U5 T( l+ |; K
- (print)- m( W3 Y& y( j7 \
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
* H U) @! f8 O3 k, j& B- i - (while (/= pt1 nil)/ j, f7 a) O% ]! s
- (command "-boundary" pt1 "")
$ f5 V6 e6 V; e8 V - (setq et (entlast))" [1 F! w0 L) q5 w* |1 G7 T& h1 Y
- (ssadd et ss)4 w" o w6 b( Y4 Y! W0 Q( _
- (command "area" "e" "last")
4 H+ {: h3 a$ h8 Q+ k. B - (setq vsize ( /(getvar "VIEWSIZE") 50 ))
/ O0 Q0 ], H+ B9 A% a - (command "hatch" "ANSI31" vsize "0" "last" "")5 g0 ~, e$ g% ^. O/ k% [
- (setq et (entlast))
+ C t# d# R' s: t) B$ |( R b' D - (ssadd et ss)
- F/ c6 n! Y$ x0 K/ s$ l - (setq dtcon (getvar "AREA"))
# f; b; E+ t; D4 D* N& x - (setq dtl (+ dtcon dtl))9 m) t) D. u5 i5 S, l
- (print)* H$ _+ h( m9 p$ u6 D1 B( {2 d/ {
- (print)
$ [- y5 g. F! z( ? - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
/ c% T! Z$ l; Y/ C - )9 H, c# K3 |0 h
- (command "setvar" "OSMODE" oslast)- w; c7 }, r- F
- (command "erase" ss "")
% n g, U! e9 a - (setq ss nil)* b9 v3 ]$ V6 h F8 Q
- (command "redraw")
: u& a% B9 [3 c - (setq dtl (/ (/ dtl He_so2) 1))
- c/ F% B( Y \: S - (setq en (car (entsel "Thay cho so : ")))
+ |5 D/ I; \9 A% d - (while (= en nil)
' o1 C1 ^: D! E" h6 p - (setq en (car (entsel "Thay cho so : ")))
. g: B, j% F" Z/ Z( \5 q) O - )2 l* B0 c5 ^7 }/ i: N1 c
- (setq elst (entget en))
t3 n) _: y- Y5 c! h" e7 { - (setq elstold (assoc 1 elst)) # @* e- U2 S( L+ Q! [
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
2 a; f# ?& n4 g1 Z: z - (setq elst (subst elstnew elstold elst))3 q4 p+ f. L9 R- [
- (entmod elst)
' E& P$ R; j, ^1 e - (setq elst nil)
7 E% S2 m& X F: Y: ?( I - (setq dtl nil)" s. {# o% q( U$ t9 Y
- (command "_change" en "" "p" "c" "1" "")! O% U+ U3 a" E2 d0 R ~
- (if old_osmode (setvar "osmode" old_osmode))* i. M3 c; R) a2 @, p/ w
- (if old_autosnap (setvar "autosnap" old_autosnap))* l' ~3 F d+ _- ]: p
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)