|
|
- (defun c:ss1()
5 q! Y. x5 n% c' B - (setq old_osmode (getvar "osmode")) T! R6 J6 p; z" F: [
- old_autosnap (getvar "autosnap")/ W/ W1 r- h$ R! F( P; `
- ) - y/ E G" V) A8 ]; O
- (setvar "cmdecho" 0)
& ?" o/ r+ H" O# ^ h; a - (setvar "DIMZIN" 0): a. L+ [ n I( I+ A
- (if (= Ty_le nil)
& [( ^. Z: \0 l* \; V& i - (progn
; }" }5 C4 E7 @2 V5 X0 O3 h# u: G - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))
" j: y1 g% ~2 d' y/ w - (if (= Ty_le nil)(setq Ty_le 1000.00))
! a2 A& ^, b4 n. g1 M$ Y# R - )
" j% I8 s' { K& w6 Q7 v - (progn# M! z' K: I( p8 F. p0 U7 r
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))5 y5 Q, _2 O9 s3 x: }( P- Q- l
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))5 F: ^- K7 s3 _6 }% A/ j
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
# g) R* F, y' v* y! _0 w - (progn) ~: ?2 v2 T$ _1 s
- (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
& w) E p2 e8 T' J2 s% c! V! v! Z3 ^ - )0 G7 ]7 a( b0 R9 H
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
5 m6 V9 ?* B6 |( k4 i& p# S - (progn
; D [' |, N U0 w - (setq Ty_le (getreal "\nnhap ti le <1000>:")): u% S) m* [* k! o7 n+ n$ }
- (if (= Ty_le nil)(setq Ty_le 1000.00))" P* u/ Q: z) A2 y0 r K
- )
: G) {6 l5 @# N# I1 e# c - ) 3 u9 B+ c5 E0 V8 t
- )
3 g7 N% Z* ]2 \0 F' W$ v6 d$ b' A# k - )
6 `: Y2 `3 Z8 [1 R% V# `2 j: L4 q" v - )6 H( T# L. E+ U! C) b( ]1 g
- (if (= So_Le nil)
5 [0 K1 s# [% E/ M! b* D K - (progn
0 L9 ? k, [. V( U8 G- ^. p - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
- s' i" Y: i1 L6 [5 p; z - (if (= So_Le nil)(setq So_Le 2))6 l" q0 G X5 y- B, p4 e
- )
$ E3 G& l7 F4 k - (progn
* e# k$ {$ _9 c - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
& B1 H1 o! c, @. g1 n - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
. K9 o* P$ p6 T% ~1 u8 F - (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K")). D; _2 ^% j, W( K! |
- (progn
8 P: [# o8 q7 a" j% S. V% c1 } - (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))4 S4 t5 U0 C! u4 `0 M
- )
+ {8 Z! }7 |, O0 L( D3 U - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))! J+ A# L% S' t" G# d6 c6 o4 ]
- (progn
O. Y" c n, x& B - (setq So_Le (getint "\nnhap so le dien tich <2>:")); i2 D4 V$ r& v1 P0 k6 `+ t+ z) P3 k
- (if (= So_Le nil)(setq So_Le 2))
0 w" I7 \$ e) N9 K - )
$ @, A# \% A" e - )
5 O& U, s' y, D* e8 m - ); [5 w8 @! R3 K V: y
- )
, |6 h/ v; z, U2 P" u2 x) v - ): b O1 c& Z5 J
- (setq He_so (/ 1000 Ty_le))
* r& F( f( x& c/ G6 g' @+ S1 X - (setq He_so2 (* He_so He_so))
2 m4 @& Z, x) P- y8 \4 j - (setq dtl 0)- O/ @7 H# [* U5 K0 C2 g
- (setq ss (ssadd))
8 y8 J; y" l8 d9 u2 J - (setq oslast (getvar "OSMODE"))
. p! i8 Y; X: k( I! a* b/ v - (command "osnap" "")
1 F C! r' B m - (print)4 X& f; Q) W' g/ E2 s# M0 r& ]3 T
- (print)" r* h- W+ o1 c) s# {
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))8 q0 E. @9 U1 j; C
- (while (/= pt1 nil): l4 z5 t( U3 _4 d+ U2 v2 k( i' P- j" K3 i
- (command "-boundary" pt1 "")
3 b# Q, o9 [( o2 d' D" j - (setq et (entlast))" g" z* ^& w+ j& Z# U
- (ssadd et ss)4 \! s& C$ k: o. t: f7 E6 X( ~
- (command "area" "e" "last")
, L5 w8 h2 c7 O1 t: G5 F3 V - (setq vsize ( /(getvar "VIEWSIZE") 50 )). a, y( ~; G' g1 U; f
- (command "hatch" "ANSI31" vsize "0" "last" "")
2 ~4 T4 h) i: q+ M+ g+ Y - (setq et (entlast)); O4 U# R2 W4 B4 l0 o
- (ssadd et ss): E0 L, x& Y& D7 o) w( p6 E% e
- (setq dtcon (getvar "AREA"))) w6 C, ^" M; h# Q: H4 o: Q2 z
- (setq dtl (+ dtcon dtl))
8 i s* Q# H. w! u6 X1 D - (print)" M9 d' {% B) j8 ]# _
- (print)& K7 h" l0 i% v: g. K3 x$ g
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))- }) [& {. G& p; a8 x% H) x' \7 s
- )
; d6 j# Z" e& v) Q - (command "setvar" "OSMODE" oslast)9 B0 N: Z: ]/ K& v5 F9 I
- (command "erase" ss "")6 Q* S. C! ]2 S0 [. l1 l
- (setq ss nil)' h; \! i+ w) F2 M4 I* j9 e2 {
- (command "redraw")
2 x, b* P: T; q/ @0 X' k/ B - (setq dtl (/ (/ dtl He_so2) 1))
4 ^7 ]& s& K9 \( d, o - (setq en (car (entsel "Thay cho so : ")))
9 B) }, s" f) \5 |, V! l - (while (= en nil)3 D' W; P- b6 C F) Q& ?/ F: q
- (setq en (car (entsel "Thay cho so : ")))
$ n: w) R& M5 u4 N7 s1 R' d - )5 k* G9 R7 L! u+ i9 d) j( ]% d7 p
- (setq elst (entget en))
/ y5 ?% {5 M% r X2 {6 G5 t - (setq elstold (assoc 1 elst)) 7 Q! C5 `! t0 d" G
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))/ F7 a* m' ?' y& { ?( L
- (setq elst (subst elstnew elstold elst))
5 a% h; V j/ o - (entmod elst)
4 v/ ?" e" K7 z1 {8 t4 n - (setq elst nil)
# O9 j e- z$ ?/ E4 p; A5 u - (setq dtl nil)" o0 p0 O O8 w; O6 c
- (command "_change" en "" "p" "c" "1" "")1 ^3 }* ~9 D' d% ]7 b- T& d# t' h
- (if old_osmode (setvar "osmode" old_osmode))2 } j' c$ o" F# F" O* C
- (if old_autosnap (setvar "autosnap" old_autosnap))& w1 c/ O$ v4 ]2 T
- )
% h0 Z, B" d) I - ;==============================================================================7 F$ m" ]. B# J, T) T
- (defun c:ss()
- H$ u! c# P G* g0 f" E# S( M - (setq old_osmode (getvar "osmode")
/ D; v: i2 F- @, `) _0 ? - old_autosnap (getvar "autosnap")/ _8 P; M2 i, m
- )
! w$ @" P5 D, L1 p5 a+ _' ^/ [1 C - (setvar "cmdecho" 0), W; F4 k) c( v: z, j4 A; N
- (setvar "DIMZIN" 0)
" c7 m6 i2 ?& \2 a - (setq He_so (/ 1000 Ty_le))
0 l Z+ ?' B! I9 U9 C5 x8 ]3 | - (setq He_so2 (* He_so He_so))
V, m& J+ ~6 t3 s. ` - (setq dtl 0)9 t0 p0 k' M" H/ W
- (setq ss (ssadd))
( W$ ^# W8 l9 D9 h, _8 k3 \1 h - (setq oslast (getvar "OSMODE"))* c) J7 y k2 j: d4 R9 }
- (command "osnap" "")
/ y, W- l4 m9 T0 d2 ^9 r4 e - (print)
) v& ~" E- _! A$ e- \! F - (print); p& ~% o! b/ P9 l1 ~% F
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))2 E$ l/ W' M9 b+ J# ~
- (while (/= pt1 nil)
! H, G$ M! {7 A! q9 u7 P) c - (command "-boundary" pt1 "")5 i1 A, J9 D, v# ]9 S6 ~$ w4 Y
- (setq et (entlast))
8 t3 c" ~1 q+ S( y - (ssadd et ss)
' U4 s/ R# L3 x - (command "area" "e" "last")
* F3 T3 @& d* i# O - (setq vsize ( /(getvar "VIEWSIZE") 50 ))
4 w! F9 S' {+ {! e) y. |. f2 u - (command "hatch" "ANSI31" vsize "0" "last" "")
. F! `* ^" h! m! w - (setq et (entlast))- s- V5 _& X) n- M' Q
- (ssadd et ss)+ `9 T$ c& S* @, t) q' _
- (setq dtcon (getvar "AREA"))
/ H' u# O( `, @% E+ ` - (setq dtl (+ dtcon dtl))
; D2 @2 E0 s' g# F+ Z% d3 p - (print)2 X Y" h6 l! c- L, r {. u
- (print), l0 E2 s2 ^4 i: X6 m7 {) f
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))/ t6 x0 C \3 c1 J' v& _/ h1 |5 L
- )
, y8 E( n8 P0 K2 T, d4 f& \0 C - (command "setvar" "OSMODE" oslast)6 M! D. m3 T# i h8 W% b8 B9 C
- (command "erase" ss "")
& b, H0 Y P' A- ?$ O- K$ c - (setq ss nil)
. v) W4 ^: e+ {! `/ F% a - (command "redraw")
0 _- d- B! ]. b& [ - (setq dtl (/ (/ dtl He_so2) 1)) 2 i7 N5 n3 a) a
- (setq en (car (entsel "Thay cho so : ")))% T+ M, s% ~% m! M" d
- (while (= en nil)
# s7 ]. ^3 P/ J. c8 Z - (setq en (car (entsel "Thay cho so : ")))
( e- t5 U% p2 [; Z! _ - )- M& z8 |/ A* t; Q% a' w! T
- (setq elst (entget en))% K" }. I9 ^- Q' \5 N
- (setq elstold (assoc 1 elst))
; T! L# }* ~9 A! N" t; M - (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
7 b5 i0 Y- V" t! B' t; d; t- D - (setq elst (subst elstnew elstold elst))
: H* C( d& `: y* K; x9 {0 n- ]$ p - (entmod elst)
# g; b1 a6 a- |9 T+ m! p" P0 l* m ~ - (setq elst nil)
# V* y) }/ ]. P - (setq dtl nil)' F; w! W$ S# |% g0 J
- (command "_change" en "" "p" "c" "1" "")4 m8 |( q, O8 }7 S; i+ j
- (if old_osmode (setvar "osmode" old_osmode))
! M2 K0 Y& j, O- q) E6 [) u3 o - (if old_autosnap (setvar "autosnap" old_autosnap))/ f) F/ z7 E/ `5 p& @ M2 V
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)