|
|
- (defun c:ss1()
& I# F" U8 v0 ]) x. c/ }* q" q" h( h - (setq old_osmode (getvar "osmode")* C3 w7 r0 W/ ]. [$ @
- old_autosnap (getvar "autosnap"); }3 u( E. v3 B4 m# `
- )
0 c) X6 g3 g: x - (setvar "cmdecho" 0)
, I: a, I. a4 Z - (setvar "DIMZIN" 0)
* \! @% r/ ]$ ]- T# V) O - (if (= Ty_le nil)0 e2 O1 Q# B I5 [. o3 I6 d9 [
- (progn
- }, @/ g) j9 Y2 }; z - (setq Ty_le (getreal "\Nnhap ti le <1000>:"))
' w( \% G* J8 D& n - (if (= Ty_le nil)(setq Ty_le 1000.00))) d4 H$ a/ T% _" T# G; C
- )
, Z z8 g; t2 C$ u* j/ p# Y1 i+ I - (progn u! S# e- Z$ H
- (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))0 U: g& G( q, k; O
- (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))/ u" V7 g, \) ~8 n% j
- (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
' i. ~6 ]$ F1 c, E5 ^# o5 y - (progn
/ j1 Z! L4 M! G* L3 w% E - (princ (strcat "\nti le = " (rtos Ty_le 2 0)))
% B$ s3 B9 f* K6 p( ]) F - )% g! p: u% m3 I2 ~4 T( N
- (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
5 _% T+ p' z$ p. m/ u - (progn
" I# V! h" s/ Y - (setq Ty_le (getreal "\nnhap ti le <1000>:"))
# Z: K- q" E1 c+ Z" l7 }# i - (if (= Ty_le nil)(setq Ty_le 1000.00))) c: G3 F9 f `) y( j0 P
- )
5 J" t# {6 r$ P2 c - ) + C" Z) k/ A0 g/ ?; ^1 W- n
- )
: m" r8 ^1 |7 ]* N, t6 H - )
# X; L6 _4 c; }2 r; k/ @) h - )9 m5 V5 F& Y6 o( u/ \& @- c
- (if (= So_Le nil)! j9 i5 w# t! f$ [) l% s$ I
- (progn, l0 j5 Z/ p3 M9 t) H5 T" N
- (setq So_Le (getint "\nnhap so le dien tich <2>:"))' l0 E, q1 m+ q
- (if (= So_Le nil)(setq So_Le 2))" W8 h g6 c/ d# {1 t
- )* c6 y% H# \7 s5 f, ~# t
- (progn
1 D" g, c. o3 v - (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
. v' P0 s7 k2 @ { Q, D# Q - (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))) X! f3 L9 d1 x' o* `
- (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
) H- z, w, l2 i# [! x+ v - (progn
( ?6 J, n- M9 T. p8 Q - (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
% C( n6 h# z5 |2 N" K I+ H) h% u - )
3 ^# v( Y4 ^ W9 W2 {' h - (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
0 A' j8 r8 ?5 t8 y - (progn
2 }* @/ h7 V! a0 X# P! c# ^ - (setq So_Le (getint "\nnhap so le dien tich <2>:"))
- O! n' H7 V" X8 M5 U8 R3 [: n - (if (= So_Le nil)(setq So_Le 2)). V% T8 L, _ t/ j1 n$ G2 k
- )0 `* X+ d, s& H. y `4 u
- )
@# n# c- ^9 ]+ P) x* ] - )$ ?+ H4 M" m" m1 c3 r
- )1 n" }6 A6 o0 q; b. _7 m# r5 B! g# u
- )7 R/ v. f Z2 }9 g. o8 b% c
- (setq He_so (/ 1000 Ty_le))6 K" S2 l6 P+ A$ `. C! j
- (setq He_so2 (* He_so He_so)) 1 k5 S1 X# |0 @- c) I- o
- (setq dtl 0)9 Y; N8 h: s6 F8 d k: p( C
- (setq ss (ssadd))
, }4 a7 J' ^: u7 a - (setq oslast (getvar "OSMODE"))
4 Z7 K/ B/ a# L6 @ - (command "osnap" ""): d# P0 n) J) ]
- (print)
7 ~/ o) _1 I: Y+ C# Y2 \- ^8 t2 R' P - (print)$ K- X5 e% X6 h: Y' ]7 B
- (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
; H* F: N" G# s: O5 M - (while (/= pt1 nil); F8 U) F0 q9 |* @. w- F: V; i# \8 W
- (command "-boundary" pt1 "")
3 g* j7 U3 G& r* N - (setq et (entlast)), Y% A8 h1 Q, Q7 [5 q
- (ssadd et ss)- W" @4 C( v- h8 R! X; \
- (command "area" "e" "last")
- k( c* ]6 u9 O" L. a - (setq vsize ( /(getvar "VIEWSIZE") 50 ))0 N6 x4 l# o# R/ |" k
- (command "hatch" "ANSI31" vsize "0" "last" "")$ z+ o0 S- S# X0 I
- (setq et (entlast))
8 N2 m6 H( Z' G# W( w - (ssadd et ss)8 N5 a' d+ F1 k' H
- (setq dtcon (getvar "AREA"))
5 n2 A1 [1 o, p5 A/ P. e$ A2 k - (setq dtl (+ dtcon dtl))
% c) p5 w+ S. i' n' k - (print)
# E |6 l* z! R# n2 {) x$ k. D - (print)
; [7 P/ ` N/ M& W5 m - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
9 b+ U% b7 Y j/ o) U - )
+ e! B0 L" y- h7 H4 v" L, u - (command "setvar" "OSMODE" oslast)9 u: K0 t7 x. ^% T
- (command "erase" ss "")
- l! [; V& c* l1 d0 x' k5 v - (setq ss nil)
2 `, U/ }& l1 x4 h* ^ - (command "redraw")
) f+ p. H% T7 _! h - (setq dtl (/ (/ dtl He_so2) 1)) - h( ]) c; B7 K* Q! h+ {
- (setq en (car (entsel "Thay cho so : ")))6 S. \9 c: b$ V( m
- (while (= en nil)8 V0 o; W5 |6 ]2 b5 Y
- (setq en (car (entsel "Thay cho so : ")))
6 ]' w: r7 P! e9 ^ - ); Y4 b1 Q4 X6 F* p
- (setq elst (entget en))
; }) Q/ | E! g+ b) a$ B - (setq elstold (assoc 1 elst)) w% I f5 g1 t) U
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))8 ?3 B: x/ b/ J% E+ _6 F" s9 G
- (setq elst (subst elstnew elstold elst))% L/ W7 L2 b a& m/ x' o: H
- (entmod elst)
: O/ W% J3 t* D' d. Q4 p. h - (setq elst nil) O1 b8 R6 z# A
- (setq dtl nil)) C( w9 B0 P1 w8 l! t
- (command "_change" en "" "p" "c" "1" ""). L5 L! c+ A8 H
- (if old_osmode (setvar "osmode" old_osmode))
( {# `: D& o$ q4 }5 {$ J- } - (if old_autosnap (setvar "autosnap" old_autosnap))
E5 O$ K! |' h& `, @ - )* v/ b, Z. Z5 {/ {
- ;==============================================================================
$ d q2 P( h0 W6 t, | - (defun c:ss()) B% _/ ^. s" ^+ O6 a
- (setq old_osmode (getvar "osmode")' w; m; _- C) @3 a) V& B
- old_autosnap (getvar "autosnap")
5 V8 ]' I$ E, N9 l' k; p/ G E" l - ) * t' `4 Y& X, U- b1 H
- (setvar "cmdecho" 0)
+ ~& \- U, s) c6 \$ t - (setvar "DIMZIN" 0)1 w, E1 T v) X# h# Q! R. c% C
- (setq He_so (/ 1000 Ty_le))
5 O% V. H9 v6 U7 J - (setq He_so2 (* He_so He_so)) % I1 \5 o+ N' |2 q% S& w
- (setq dtl 0)# c, f9 D! v1 _; Q& K
- (setq ss (ssadd))4 C' b' W! ]% q1 Q1 y! d
- (setq oslast (getvar "OSMODE"))# h$ ]& ~ \: i8 J3 I( O: P1 u) D+ _
- (command "osnap" "")8 @6 N( {0 B3 n, u2 H
- (print)3 P+ D G6 j2 R
- (print)
- s- ^' Q3 G/ M - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
# k4 B8 G8 l/ D) ]# V- g" o - (while (/= pt1 nil)
0 K* V4 L' Z! q# l9 x) }3 y5 M - (command "-boundary" pt1 "")
7 O2 L2 Q% @" }1 ?" m* r# a; \ - (setq et (entlast))- }9 s! `7 h% j0 b1 K
- (ssadd et ss)! e/ ~) C2 [: m! g# r
- (command "area" "e" "last")" E: N# D2 s: x. p# g2 |
- (setq vsize ( /(getvar "VIEWSIZE") 50 ))
. ]7 K2 C$ F2 |% ^* Y' f6 O - (command "hatch" "ANSI31" vsize "0" "last" "")+ [" l: s6 p+ B
- (setq et (entlast))) q: g0 H- b6 Y: y: @' E$ @2 M
- (ssadd et ss). w2 J, Y9 J7 T
- (setq dtcon (getvar "AREA")): L% d( n) c6 i" @$ N8 h# R
- (setq dtl (+ dtcon dtl))
, D3 R) _' R; w# V, { - (print) ~9 j; Z% G. {' S! p5 n
- (print)
9 ~7 D5 n9 I/ Q$ g9 j2 t! d# N' T - (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
/ n- x, [4 o( [# q6 W2 U3 \3 [ - )) y4 S5 m$ G' W( X8 y
- (command "setvar" "OSMODE" oslast)
$ L% C: V9 X& @# ~$ [ - (command "erase" ss "")
( Z! l* @, n! Z1 J3 Q - (setq ss nil)' s, I, ~2 ~- v; B* R- x
- (command "redraw")& d5 [5 Q/ m6 @3 \) l
- (setq dtl (/ (/ dtl He_so2) 1)) $ k7 s. d W) `
- (setq en (car (entsel "Thay cho so : ")))4 m( P; Q5 p( \3 d
- (while (= en nil)
) R+ K7 n: x g6 w( {9 u& @ - (setq en (car (entsel "Thay cho so : ")))/ ]1 ?6 l1 i2 ]: C6 P: {, M' Z! g
- )7 ~, q9 o& h; l- z( ?+ a) e
- (setq elst (entget en))3 w4 [3 a4 \* S# z
- (setq elstold (assoc 1 elst)) " @( K% a8 c5 V, w! P# y
- (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
. k3 x2 H4 H1 `+ C5 S - (setq elst (subst elstnew elstold elst))( ~ R8 w% L: b' X
- (entmod elst). p o+ f9 b2 v4 T2 \. c
- (setq elst nil)
6 L3 k' D6 @) ]# y7 Q) U* E) X - (setq dtl nil)- A% z, ~& n- P: S! A* N' \% J
- (command "_change" en "" "p" "c" "1" "")
. w- N3 F$ o+ i+ ?, ] - (if old_osmode (setvar "osmode" old_osmode))' W/ b4 H4 e- U& ]
- (if old_autosnap (setvar "autosnap" old_autosnap))* `- o# a+ Q7 d0 D( D) d; t
- )
|
|
[Lấy địa chỉ]
Tác giả
Thẻ xem người ẩn danh
Đăng lúc 20/12/2014 21:05:00
)